TABLE OF CONTENTS

TtkButton/TtkRadioButton [ Packages ]

[ Top ] [ TtkButton ] [ Packages ]

FUNCTION

 Provides code for Tk TtkR::RadioButton

SOURCE

package Tcl.Tk.Ada.Widgets.TtkButton.TtkRadioButton with
   SPARK_Mode
is
   pragma Elaborate_Body;

TtkRadioButton/TtkRadioButton.Ttk_RadioButton [ Types ]

[ Top ] [ TtkRadioButton ] [ Types ]

FUNCTION

 This is a non-abstract type derived directly from Tk_Widget.
 Each of the derived widgets redefines the Create subprogram
 in order to create the correct type of widget.

SOURCE

   type Ttk_RadioButton is new Ttk_Button with private;

TtkRadioButton/TtkRadioButton.Create_(function) [ Subprograms ]

[ Top ] [ TtkRadioButton ] [ Subprograms ]

FUNCTION

 Creates a new Ttk_RadioButton in the specified interpreter.

SOURCE

   overriding function Create
     (pathName: in String; options: in String := "";
      Interp: in Tcl_Interp := Null_Interp) return Ttk_RadioButton with
      Global => null;

PARAMETERS

 pathName - Tk path (starts with dot) for the widget
 options  - Options which will be passed to the widget. Default value is
            empty
 Interp   - Tcl interpreter to which the widget will be created. If null,
            the widget will be created in the "contextual" interpreter.
            Default value is null.

RESULT

 Newly created Ttk_RadioButton

EXAMPLE

   -- Create a new radiobutton with pathname .mybutton and text hello world
   My_Button: constant Ttk_RadioButton := Create(".mybutton", "-text {hello world}");

SEE ALSO

 TtkRadioButton.Create_(procedure)

COMMANDS

 ttk::radiobutton pathName ?options?

HISTORY

 8.6.1 - Added

TtkRadioButton/TtkRadioButton.Create_(procedure) [ Subprograms ]

[ Top ] [ TtkRadioButton ] [ Subprograms ]

FUNCTION

 Creates a new Ttk_RadioButton in the specified interpreter.

SOURCE

   overriding procedure Create
     (Widgt: out Ttk_RadioButton; pathName: in String;
      options: in String := ""; Interp: in Tcl_Interp := Null_Interp) with
      Global => null;

PARAMETERS

 Widgt    - Ttk_RadioButton which will be created
 pathName - Tk path (starts with dot) for the widget
 options  - Options which will be passed to the widget. Default value is
            empty
 Interp   - Tcl interpreter to which the widget will be created. If null,
            the widget will be created in the "contextual" interpreter.
            Default value is null.

OUTPUT

 Newly created Ttk_RadioButton as parameter Widgt

EXAMPLE

     -- Create radiobutton My_Button with pathname .mybutton and selected state on the current Tcl interpreter
     declare
        My_Button: Ttk_RadioButton;
     begin
        Create(My_Button, ".mybutton", "-state selected");
     end;

SEE ALSO

 TtkRadioButton.Create_(function)

COMMANDS

 ttk::radiobutton pathName ?options?

HISTORY

 8.6.1 - Added

TtkRadioButton/TtkRadioButton.Get_Widget [ Subprograms ]

[ Top ] [ TtkRadioButton ] [ Subprograms ]

FUNCTION

 Get the existing Ttk_RadioButton widget

SOURCE

   overriding function Get_Widget
     (pathName: in String; Interp: in Tcl_Interp := Get_Context)
      return Ttk_RadioButton with
      Global => null;

PARAMETERS

 pathName - Tk path (starts with dot) for the widget
 Interp   - Tcl interpreter on which the widget exists. Can be empty.
            Default value is current Tcl interpreter

RESULT

 Existing Ttk_RadioButton widget

EXAMPLE

     -- Get radiobutton widget with name .myradiobutton on the current Tcl interpreter
     My_Radiobutton: constant Ttk_RadioButton := Get_Widget(".myradiobutton");

HISTORY

 8.6.9 - Added