TABLE OF CONTENTS
- 1. TkAda/TkPack
TkAda/TkPack [ Packages ]
[ Top ] [ TkAda ] [ Packages ]
FUNCTION
Provides code for manipulate Tk command Pack
SOURCE
package Tcl.Tk.Ada.Pack with SPARK_Mode is
TkPack/TkPack.Pack [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Pack selected widget with selected options
SOURCE
procedure Pack(Slave: in Tk_Widget'Class; Options: in String := "");
PARAMETERS
Slave - Tk_Widget to pack Options - Option to pack action
EXAMPLE
-- Add My_Entry widget and strech it in all directions Pack.Pack(My_Entry, "-fill both");
COMMANDS
pack slave ?options?
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
TkPack/TkPack.Pack_Configure [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Tells the packer how to configure the specified Slave window.
SOURCE
procedure Pack_Configure (Slave: in Tk_Widget'Class; Options: in String := "");
PARAMETERS
Slave - Tk_Widget to configure Options - Pack options for the slave
EXAMPLE
-- Put My_Label widget after .mytext widget Pack_Configure(My_Label, "-after .mytext");
COMMANDS
pack configure slave ?options?
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
TkPack/TkPack.Pack_Forget [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Removes the Slave window from the packing list for its master and unmaps their windows.
SOURCE
procedure Pack_Forget(Slave: in Tk_Widget'Class);
PARAMETERS
Slave - Tk_Widget to remove
EXAMPLE
-- Remove (hide) My_Label widget from UI Pack_Forget(My_Label);
COMMANDS
pack forget slave
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
TkPack/TkPack.Pack_Info [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Get pack options of the selected widget
SOURCE
function Pack_Info(Slave: in Tk_Widget'Class) return String;
PARAMETERS
Slave - Tk_Widget to query
RESULT
String with list whose elements are the current configuration state of the specified Slave window.
EXAMPLE
-- Get the pack configuration of the My_Label widget Pack_Options: constant String := Pack_Info(My_Label);
COMMANDS
pack info slave
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
TkPack/TkPack.Pack_Propagate_(function) [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Get propagation state of selected widget
SOURCE
function Pack_Propagate(Master: in Tk_Widget'Class) return Boolean;
PARAMETERS
Master - Tk_Widget which propagation state will be check
RESULT
Returns state of propagation in the specified Master window.
EXAMPLE
-- Get the propagation state of the My_Main_Window pack Propagation: constant String := Pack_Propagate(My_Main_Window);
SEE ALSO
TkPack.Pack_Propagate_(procedure)
COMMANDS
pack propagate master
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
TkPack/TkPack.Pack_Propagate_(procedure) [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Enables or disables propagation for the specified Master window.
SOURCE
procedure Pack_Propagate(Master: in Tk_Widget'Class; State: in Boolean);
PARAMETERS
Master - Tk_Widget which propagation will be set State - If true, enable propagation, false disable it
EXAMPLE
-- Enable propagation on My_Main_Window pack Pack_Propagate(My_Main_Window, "true");
SEE ALSO
TkPack.Pack_Propagate_(function)
COMMANDS
pack propagate master boolean
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets
TkPack/TkPack.Pack_Slaves [ Subprograms ]
[ Top ] [ TkPack ] [ Subprograms ]
FUNCTION
Get list of slaves widget of selected widget
SOURCE
function Pack_Slaves(Master: in Tk_Widget'Class) return String;
PARAMETERS
Master - Tk_Widget which will be queried for slaves
RESULT
Returns a list of slaves in the packing order of the specified Master window.
EXAMPLE
-- Get the list of slaves for the My_Main_Window pack Slaves: constant String := Pack_Slaves(My_Main_Window)
COMMANDS
pack slaves master
HISTORY
8.6.1 - Moved from Tcl.Tk.Ada.Widgets