TABLE OF CONTENTS

Button/RadioButton [ Packages ]

[ Top ] [ Button ] [ Packages ]

FUNCTION

 Provides code for manipulate Tk widget RadioButton

SOURCE

package Tcl.Tk.Ada.Widgets.Button.RadioButton with
   SPARK_Mode
is
   pragma Elaborate_Body;

RadioButton/RadioButton.Tk_RadioButton [ Types ]

[ Top ] [ RadioButton ] [ Types ]

FUNCTION

 This is a type derived from Tk_Button.

SOURCE

   type Tk_RadioButton is new Tk_Button with private;

RadioButton/RadioButton.Create_(function) [ Subprograms ]

[ Top ] [ RadioButton ] [ Subprograms ]

FUNCTION

 Creates a new Tk_RadioButton in the specified interpreter.

SOURCE

   overriding function Create
     (pathName: in String; options: in String := "";
      Interp: in Tcl_Interp := Null_Interp) return Tk_RadioButton;

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 Tk_RadioButton

EXAMPLE

   -- Create a new button with pathname .mybutton and label select me
   My_Button: constant Tk_RadioButton := Create(".mybutton", "-text {select me}");

SEE ALSO

 RadioButton.Create_(procedure)

COMMANDS

 radiobutton pathName ?options?

HISTORY

 8.6.1 - Moved from Tcl.Tk.Ada.Widgets

RadioButton/RadioButton.Create_(procedure) [ Subprograms ]

[ Top ] [ RadioButton ] [ Subprograms ]

FUNCTION

 Creates a new Tk_RadioButton in the specified interpreter.

SOURCE

   overriding procedure Create
     (Widgt: out Tk_RadioButton; pathName: in String; options: in String := "";
      Interp: in Tcl_Interp := Null_Interp);

PARAMETERS

 Widgt    - Tk_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 Tk_RadioButton as parameter Widgt

EXAMPLE

     -- Create radiobutton My_Button with pathname .mybutton and label click me on the current Tcl interpreter
     declare
        My_Button: Tk_RadioButton;
     begin
        Create(My_Button, ".mybutton", "-text {click me}");
     end;

SEE ALSO

 RadioButton.Create_(function)

COMMANDS

 radiobutton pathName ?options?

HISTORY

 8.6.1 - Moved from Tcl.Tk.Ada.Widgets

RadioButton/RadioButton.Deselect [ Subprograms ]

[ Top ] [ RadioButton ] [ Subprograms ]

FUNCTION

 Deselect the button.

SOURCE

   procedure Deselect(Buttn: in Tk_RadioButton);

PARAMETERS

 Buttn - Tk_RadioButton to deselect

EXAMPLE

     -- Deselect My_Radiobutton
     Deselect(My_Radiobutton);

COMMANDS

 Buttn deselect

HISTORY

 8.6.1 - Moved from Tcl.Tk.Ada.Widgets

RadioButton/RadioButton.Get_Widget [ Subprograms ]

[ Top ] [ RadioButton ] [ Subprograms ]

FUNCTION

 Get the existing Tk_RadioButton widget

SOURCE

   overriding function Get_Widget
     (pathName: in String; Interp: in Tcl_Interp := Get_Context)
      return Tk_RadioButton;

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 Tk_RadioButton widget

EXAMPLE

     -- Get button widget with name .mybutton on the current Tcl interpreter
     My_Button: constant Tk_RadioButton := Get_Widget(".mybutton");

HISTORY

 8.6.9 - Added

RadioButton/RadioButton.Tk_Select [ Subprograms ]

[ Top ] [ RadioButton ] [ Subprograms ]

FUNCTION

 Select the button.

SOURCE

   procedure Tk_Select(Buttn: in Tk_RadioButton);

PARAMETERS

 Buttn - Tk_RadioButton to select

EXAMPLE

   -- Select My_Radiobutton
   Tk_Select(My_Radiobutton);

COMMANDS

 Buttn select

HISTORY

 8.6.1 - Moved from Tcl.Tk.Ada.Widgets

RadioButton/RadioButton.Toggle [ Subprograms ]

[ Top ] [ RadioButton ] [ Subprograms ]

FUNCTION

 Toggle the button.

SOURCE

   procedure Toggle(Buttn: in Tk_RadioButton);

PARAMETERS

 Buttn - Tk_RadioButton to toggle

EXAMPLE

   -- Toggle My_Radiobutton
   Toggle(My_Radiobutton);

COMMANDS

 Buttn toggle

HISTORY

 8.6.1 - Moved from Tcl.Tk.Ada.Widgets