TABLE OF CONTENTS

Tk/TkAda [ Packages ]

[ Top ] [ Tk ] [ Packages ]

FUNCTION

 This package provides the "thick" binding to Tcl.Tk.

SOURCE

package Tcl.Tk.Ada is

TkAda/TkAda.After_(default_interpreter) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Sleeps for Ms milliseconds in the "contextual" interpreter.

SOURCE

   procedure After(Ms: in Natural);

PARAMETERS

 Ms - Amount of miliseconds to sleep

EXAMPLE

   -- Sleep by 1 sec
   After(1000);

COMMANDS

 after ms

TkAda/TkAda.After_(default_interpreter_and_execute_script_and_function) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed after Ms milliseconds
 in the "contextual" interpreter.

SOURCE

   function After(Ms: in Natural; Script: in String) return String;

PARAMETERS

 Ms     - Amount of miliseconds after which script will be executed
 Script - Tcl script to execute

RESULT

 The function returns an identifier suitable for canceling the command.

EXAMPLE

   -- Write to console hello world after 1 sec
   After_Id: constant String := After(1000, "{puts {hello world}}");

COMMANDS

 after ms script

TkAda/TkAda.After_(default_interpreter_and_execute_script_and_procedure) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed after Ms milliseconds
 in the "contextual" interpreter.

SOURCE

   procedure After(Ms: in Natural; Script: in String);

PARAMETERS

 Ms     - Amount of miliseconds after which script will be executed
 Script - Tcl script to execute

EXAMPLE

   -- Write to console hello world after 1 sec
   After(1000, "{puts {hello world}}");

COMMANDS

 after ms script

TkAda/TkAda.After_(selected_interpreter) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Sleeps for Ms milliseconds in the specified interpreter.

SOURCE

   procedure After(Interp: in Tcl_Interp; Ms: in Natural);

PARAMETERS

 Interp - Tcl interpreter to sleep
 Ms     - Amount of miliseconds to sleep

EXAMPLE

   -- Sleep by 1 sec on My_Interp Tcl interpreter
   After(My_Interp, 1000);

COMMANDS

 after ms

TkAda/TkAda.After_(selected_interpreter_and_execute_script_and_function) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed after Ms milliseconds
 in the specified interpreter.

SOURCE

   function After
     (Interp: in Tcl_Interp; Ms: in Natural; Script: in String) return String;

PARAMETERS

 Interp - Tcl interpreter in which script will be executed
 Ms     - Amount of miliseconds after which script will be executed
 Script - Tcl script to execute

RESULT

 The function returns an identifier suitable for canceling the command.

EXAMPLE

   -- Write to console hello world after 1 sec on My_Interp Tcl interpreter
   After_Id: constant String := After(My_Interp, 1000, "{puts {hello world}}");

COMMANDS

 after ms script

TkAda/TkAda.After_(selected_interpreter_and_execute_script_and_procedure) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed after Ms milliseconds
 in the specified interpreter.

SOURCE

   procedure After(Interp: in Tcl_Interp; Ms: in Natural; Script: in String);

PARAMETERS

 Interp - Tcl interpreter in which script will be executed
 Ms     - Amount of miliseconds after which script will be executed
 Script - Tcl script to execute

EXAMPLE

     -- Write to console hello world after 1 sec on My_Interp Tcl interpreter
     After(My_Interp, 1000, "{puts {hello world}}");

COMMANDS

 after ms script

TkAda/TkAda.Cancel_(default_interpreter) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Cancels the execution of a delayed command in the "contextual"
 interpreter.

SOURCE

   procedure Cancel(id_or_script: in String);

PARAMETERS

 id_or_script - Id or script to cancel

EXAMPLE

   -- Cancel delayed command with id 412
   Cancel("412");

COMMANDS

 after cancel id_or_script

TkAda/TkAda.Cancel_(selected_interpreter) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Cancels the execution of a delayed command in the specified
 interpreter.

SOURCE

   procedure Cancel(Interp: in Tcl_Interp; id_or_script: in String);

PARAMETERS

 Interp       - Tcl interpreter in which command will be cancelled
 id_or_script - Id or script to cancel

EXAMPLE

   -- Cancel delayed command exit on My_Interp interpreter
   Cancel(My_Interp, "exit");

COMMANDS

 after cancel id_or_script

TkAda/TkAda.Get_Context [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Gets the current interpreter context.

SOURCE

   function Get_Context return Tcl_Interp;

RESULT

 Current Tcl interpreter

EXAMPLE

   -- Get the current Tcl interpreter
   My_Interpreter: constant Tcl_Interp := Get_Context;

TkAda/TkAda.Idle_(default_interpreter_and_function) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed later as an idle
 handler in the "contextual" interpreter.

SOURCE

   function Idle(Script: in String) return String;

PARAMETERS

 Script - Tcl script to execute

RESULT

 The function returns an identifier suitable for canceling the command.

EXAMPLE

   -- Print in console idle when the program has no events to parse
   Idle_Id: constant String := Idle("{puts idle}");

COMMANDS

 after idle script

TkAda/TkAda.Idle_(default_interpreter_and_procedure) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed later as an idle
 handler in the "contextual" interpreter.

SOURCE

   procedure Idle(Script: in String);

PARAMETERS

 Script - Tcl script to execute

EXAMPLE

   -- Print in console idle when the program has no events to parse
   Idle("{puts idle}");

COMMANDS

 after idle script

TkAda/TkAda.Idle_(selected_interpreter_and_function) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed later as an idle
 handler in the specified interpreter.

SOURCE

   function Idle(Interp: in Tcl_Interp; Script: in String) return String;

PARAMETERS

 Interp - Tcl interpreter in which script will be executed
 Script - Tcl script to execute

RESULT

 The function returns an identifier suitable for canceling the command.

EXAMPLE

   -- Print in console idle when the program has no events to parse on My_Interp interpreter
   Idle_Id: constant String := Idle(My_Interp, "{puts idle}");

COMMANDS

 after idle script

TkAda/TkAda.Idle_(selected_interpreter_and_procedure) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Arranges for the Tcl Script to be executed later as an idle
 handler in the specified interpreter.

SOURCE

   procedure Idle(Interp: in Tcl_Interp; Script: in String);

PARAMETERS

 Interp - Tcl interpreter in which script will be executed
 Script - Tcl script to execute

EXAMPLE

   -- Print in console idle when the program has no events to parse on My_Interp interpreter
   Idle(My_Interp, "{puts idle}");

COMMANDS

 after idle script

TkAda/TkAda.Info_(default_interpreter) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Get information about existing event handlers in the
 "contextual" interpreter.

SOURCE

   function Info(id: in String := "") return String;

PARAMETERS

 id - Id of the event hander to query

RESULT

 Returns information about existing event handlers in the
 "contextual" interpreter.

EXAMPLE

   -- Get all identifiers for existing event handlers
   Events_Id: constant String := Info;

COMMANDS

 after info ?id?

TkAda/TkAda.Info_(selected_interpreter) [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Get information about existing event handlers in the
 specified interpreter.

SOURCE

   function Info(Interp: in Tcl_Interp; id: in String := "") return String;

PARAMETERS

 Interp - Tcl interpreter in which the selected event handler is
 id     - Id of the event hander to query

RESULT

 Returns information about existing event handlers in the
 specified interpreter.

EXAMPLE

   -- Get the info about event with id 512 in My_Interp interpreter
   Event_Info: constant String := Info(My_Interp, "512");

COMMANDS

 after info ?id?

TkAda/TkAda.Set_Context [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Sets the interpreter context for all Tk calls which do not include
 either an Interp or Widget parameter.

SOURCE

   procedure Set_Context(Interp: in Tcl_Interp);

PARAMETERS

 Interp - Tcl interpreter to which context will be set

EXAMPLE

   -- Set Tcl interpreter to My_Interpreter
   Set_Context(My_Interpreter);

TkAda/TkAda.Set_Trace [ Subprograms ]

[ Top ] [ TkAda ] [ Subprograms ]

FUNCTION

 Turn on tracing of Tcl/Tk command execution.

SOURCE

   procedure Set_Trace(State: in Boolean);

PARAMETERS

 State - If true, turn on tracing.

EXAMPLE

   -- Enable tracing
   Set_Trace(True);