TABLE OF CONTENTS

TkAda/TkBusy [ Packages ]

[ Top ] [ TkAda ] [ Packages ]

FUNCTION

 Provides code for manipulate Tk command Busy

SOURCE

package Tcl.Tk.Ada.Busy with SPARK_Mode is

TkBusy/TkBusy.Busy [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Set selected window busy

SOURCE

   procedure Busy(Window: in Tk_Widget'Class; Options: in String := "");
   procedure Hold(Window: in Tk_Widget'Class; Options: in String := "") renames
     Busy;

PARAMETERS

 Window  - Tk_Widget which will be set busy
 Options - Tk options for busy command

EXAMPLE

   -- Set the My_Main_Window widget busy
   Tcl.Tk.Ada.Busy.Busy(My_Main_Window);
   
   -- Set the My_Main_Window widget busy and mouse curson on it to watch cursor
   Tcl.Tk.Ada.Busy.Hold(My_Main_Window, "-cursor watch");

COMMANDS

 tk busy window ?options?
 tk busy hold window ?options?

HISTORY

 8.6.2 - Added

TkBusy/TkBusy.cget [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Get value of the selected option for the selected busy window

SOURCE

   function cget
     (Window: in Tk_Widget'Class; Option: in String) return String with
      Pre => Option /= "";

PARAMETERS

 Window - Tk_Widget which is set as busy
 Option - Busy option to query

RESULT

 Value of the selected option of the selected busy window

EXAMPLE

     -- Get the currently set cursor for busy My_Main_Window
     Cursor_Name: constant String := Tcl.Tk.Ada.Busy.cget(My_Main_Window, "-cursor");

COMMANDS

 tk busy cget window option

HISTORY

 8.6.3 - Added

TkBusy/TkBusy.Configure_(function) [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Get busy configuration values for the selected busy Tk_Widget

SOURCE

   function Configure
     (Window: in Tk_Widget'Class; Option: in String := "") return String;

PARAMETERS

 Window  - Busy Tk_Widget which will be queried for options
 Option  - Tk busy option's value to get from the Tk_Widget. Default
           value is empty

RESULT

 If Option is empty, return all configuration options with their
 values, otherwise return value of the selected option

EXAMPLE

      -- Get the currently set cursor for busy My_Main_Window
      Cursor_Name: constant String := Tcl.Tk.Ada.Busy.Configure(My_Main_Window, "-cursor");
      
      -- Get all available options for the busy My_Main_Window
      Options_List: constant String := Tcl.Tk.Ada.Busy.Configure(My_Main_Window);

SEE ALSO

 TkBusy.Configure_(procedure)

COMMANDS

 tk busy configure window ?option?

HISTORY

 8.6.3 - Added

TkBusy/TkBusy.Configure_(procedure) [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Change configuration of the selected busy Tk_Widget

SOURCE

   procedure Configure(Window: in Tk_Widget'Class; Options: in String) with
      Pre => Options /= "";

PARAMETERS

 Window  - Busy Tk_Widget to configure
 Options - Tk options to set to the selected Tk_Widget

EXAMPLE

      -- Change the busy cursor for the My_Main_Window
      Tcl.Tk.Ada.Busy.Configure(My_Main_Window, "-cursor watch");

SEE ALSO

 TkBusy.Configure_(function)

COMMANDS

 tk busy configure window option value ?option2 value2...?

HISTORY

 8.6.3 - Added

TkBusy/TkBusy.Current [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Get list of Tk_Widgets names currently set as busy

SOURCE

   function Current(Pattern: in String := "") return String;

PARAMETERS

 Pattern - Pattern which must be match in busy Tk_Widget names.
           Default value is empty

RESULT

 If Pattern is empty, return all busy Tk_Widgets names. If Pattern is
 specified, return only this which match the Pattern.

EXAMPLE

     -- Get names of all busy windows
     Busy_Windows: constant String := Tcl.Tk.Ada.Busy.Current;
     
     -- Get names of busy windows which names contains mywindow
     Busy_Windows: constant String := Tcl.Tk.Ada.Busy.Current("*mywindow*");

COMMANDS

 tk busy current ?pattern?

HISTORY

 8.6.3 - Added

TkBusy/TkBusy.Forget [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Make window enabled again

SOURCE

   procedure Forget(Window: in Tk_Widget'Class);

PARAMETERS

 Window - Tk_Widget which will be enabled

EXAMPLE

   -- Enable the widget My_Main_Window
   Tcl.Tk.Ada.Busy.Forget(My_Main_Window);

COMMANDS

 tk busy forget window

HISTORY

 8.6.2 - Added

TkBusy/TkBusy.Status [ Subprograms ]

[ Top ] [ TkBusy ] [ Subprograms ]

FUNCTION

 Get information if the selected Tk_Widget is busy or not

SOURCE

   function Status(Window: in Tk_Widget'Class) return String;

PARAMETERS

 Window - Tk_Widget which will be queried for status

RESULT

 1 if Tk_Widget is busy, otherwise 0

EXAMPLE

   -- Get the status of widget My_Main_Window
   Busy_Status: constant String := Tcl.Tk.Ada.Busy.Status(My_Main_Window);

COMMANDS

 tk busy status window

HISTORY

 8.6.3 - Added