TABLE OF CONTENTS

Widgets/TtkProgressBar [ Packages ]

[ Top ] [ Widgets ] [ Packages ]

FUNCTION

 Provides code for manipulate Tk widget Ttk::ProgressBar

SOURCE

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

TtkProgressBar/TtkProgressBar.Ttk_ProgressBar [ Types ]

[ Top ] [ TtkProgressBar ] [ 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 Ttk_ProgressBar is new Tk_Widget with private;

TtkProgressBar/TtkProgressBar.Create_(function) [ Subprograms ]

[ Top ] [ TtkProgressBar ] [ Subprograms ]

FUNCTION

 Creates a new Ttk_ProgressBar in the specified interpreter.

SOURCE

   overriding function Create
     (pathName: in String; options: in String := "";
      Interp: in Tcl_Interp := Null_Interp) return Ttk_ProgressBar 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 Ttk_ProgressBar

EXAMPLE

   -- Create a new horizontal progressbar with pathname .myprogress
   My_Progress: constant Ttk_ProgressBar := Create(".myprogress", "-orient horizontal");

SEE ALSO

 TtkProgressBar.Create_(procedure)

COMMANDS

 ttk::progressbar pathName ?options?

HISTORY

 8.6.1 - Added

TtkProgressBar/TtkProgressBar.Create_(procedure) [ Subprograms ]

[ Top ] [ TtkProgressBar ] [ Subprograms ]

FUNCTION

 Creates a new Ttk_ProgressBar in the specified interpreter.

SOURCE

   overriding procedure Create
     (Widgt: out Ttk_ProgressBar; pathName: in String;
      options: in String := ""; Interp: in Tcl_Interp := Null_Interp) with
      Global => null;

PARAMETERS

 Widgt    - Ttk_ProgressBar 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 Ttk_ProgressBar as parameter Widgt

EXAMPLE

     -- Create vertical progressbar My_Progress with pathname .myprogress on the current Tcl interpreter
     declare
        My_Progress: Ttk_ProgressBar;
     begin
        Create(My_Progress, ".myprogress", "-orient vertical");
     end;

SEE ALSO

 TtkProgressBar.Create_(function)

COMMANDS

 ttk::progressbar pathName ?options?

HISTORY

 8.6.1 - Added

TtkProgressBar/TtkProgressBar.Get_Widget [ Subprograms ]

[ Top ] [ TtkProgressBar ] [ Subprograms ]

FUNCTION

 Get the existing Ttk_Scrollbar widget

SOURCE

   overriding function Get_Widget
     (pathName: in String; Interp: in Tcl_Interp := Get_Context)
      return Ttk_ProgressBar 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 Ttk_ProgressBar widget

EXAMPLE

     -- Get progressbar widget with name .myprogress on the current Tcl interpreter
     My_Progress: constant Ttk_ProgressBar := Get_Widget(".myprogress");

HISTORY

 8.6.9 - Added

TtkProgressBar/TtkProgressBar.Start [ Subprograms ]

[ Top ] [ TtkProgressBar ] [ Subprograms ]

FUNCTION

 Begin autoincrement mode, call Step every Interval miliseconds

SOURCE

   procedure Start(Bar: in Ttk_ProgressBar; Interval: in String := "50");

PARAMETERS

 Bar      - Ttk_ProgressBar in which autoincrement mode will be started
 Interval - Amount of miliseconds in which Step should be called.
            Default value is 50 (20 steps per second)

EXAMPLE

     -- Start the autoincrement mode on My_Progress progressbar every 100 miliseconds
     Start(My_Progress, "100");

COMMANDS

 Bar start ?interval?

HISTORY

 8.6.6 - Added

TtkProgressBar/TtkProgressBar.Step [ Subprograms ]

[ Top ] [ TtkProgressBar ] [ Subprograms ]

FUNCTION

 Increment value of the Ttk_ProgressBar by amount

SOURCE

   procedure Step(Bar: in Ttk_ProgressBar; Amount: in String := "");

PARAMETERS

 Bar    - Ttk_ProgressBar which value will be modified
 Amount - Amount to incremement. If empty, then value is incremented
          by 1.0. Default value is empty

EXAMPLE

   -- Increment My_Progress progressbar by 10
   Step(My_Progress, "10.0");

COMMANDS

 Bar step ?amount?

HISTORY

 8.6.2 - Added

TtkProgressBar/TtkProgressBar.Stop [ Subprograms ]

[ Top ] [ TtkProgressBar ] [ Subprograms ]

FUNCTION

 Stop autoincrement mode: cancels any recurring timer events in the
 selected Ttk_ProgressBar

SOURCE

   procedure Stop(Bar: in Ttk_ProgressBar);

PARAMETERS

 Bar - Ttk_ProgressBar in which autoincrement mode will be stoped

EXAMPLE

   -- Stop the autoincrement mode in My_Progress progressbar
   Stop(My_Progress);

COMMANDS

 Bar stop

HISTORY

 8.6.6 - Added