TABLE OF CONTENTS
- 1. Widgets/Toplevel
- 1.1. Toplevel/MainWindow
- 1.1.1. MainWindow/MainWindow.Bind_To_Main_Window_(function)
- 1.1.2. MainWindow/MainWindow.Bind_To_Main_Window_(procedure)
- 1.1.3. MainWindow/MainWindow.Get_Main_Window
- 1.1.4. MainWindow/MainWindow.Unbind_From_Main_Window_(function)
- 1.1.5. MainWindow/MainWindow.Unbind_From_Main_Window_(procedure)
- 1.2. Toplevel/Toplevel.Tk_Toplevel
- 1.3. Toplevel/Toplevel.Create_(function)
- 1.4. Toplevel/Toplevel.Create_(procedure)
- 1.5. Toplevel/Toplevel.Get_Widget
Widgets/Toplevel [ Packages ]
[ Top ] [ Widgets ] [ Packages ]
FUNCTION
Provides code for manipulate Tk widget Toplevel
SOURCE
package Tcl.Tk.Ada.Widgets.Toplevel with SPARK_Mode is pragma Elaborate_Body;
Toplevel/Toplevel.Tk_Toplevel [ Types ]
[ Top ] [ Toplevel ] [ 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 Tk_Toplevel is new Tk_Widget with private;
Toplevel/Toplevel.Create_(function) [ Subprograms ]
[ Top ] [ Toplevel ] [ Subprograms ]
FUNCTION
Creates a new Tk_Toplevel in the specified interpreter.
SOURCE
overriding function Create (pathName: in String; options: in String := ""; Interp: in Tcl_Interp := Null_Interp) return Tk_Toplevel 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 Tk_Toplevel
EXAMPLE
-- Create a new toplevel with pathname .mywindow and black background My_Window: constant Tk_Toplevel := Create(".mywindow", "-background black");
SEE ALSO
Toplevel.Create_(procedure)
COMMANDS
toplevel pathName ?options?
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
Toplevel/Toplevel.Create_(procedure) [ Subprograms ]
[ Top ] [ Toplevel ] [ Subprograms ]
FUNCTION
Creates a new Tk_Toplevel in the specified interpreter.
SOURCE
overriding procedure Create (Widgt: out Tk_Toplevel; pathName: in String; options: in String := ""; Interp: in Tcl_Interp := Null_Interp) with Global => null;
PARAMETERS
Widgt - Tk_Toplevel 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_Toplevel as parameter Widgt
EXAMPLE
-- Create toplevel My_Window with pathname .mywindow and width 200px on the current Tcl interpreter declare My_Window: Tk_Toplevel; begin Create(My_Window, ".mywindow", "-width 200"); end;
SEE ALSO
Toplevel.Create_(function)
COMMANDS
toplevel pathName ?options?
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
Toplevel/Toplevel.Get_Widget [ Subprograms ]
[ Top ] [ Toplevel ] [ Subprograms ]
FUNCTION
Get the existing Tk_Toplevel widget
SOURCE
overriding function Get_Widget (pathName: in String; Interp: in Tcl_Interp := Get_Context) return Tk_Toplevel 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 Tk_Toplevel widget
EXAMPLE
-- Get toplevel widget with name .mywindow on the current Tcl interpreter My_Window: constant Tk_Toplevel := Get_Widget(".mywindow");
HISTORY
8.6.9 - Added