Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / tk8.6.4 / library / ttk / progress.tcl

diff --git a/util/src/TclTk/tk8.6.4/library/ttk/progress.tcl b/util/src/TclTk/tk8.6.4/library/ttk/progress.tcl
deleted file mode 100644 (file)
index 34dce72..0000000
--- a/util/src/TclTk/tk8.6.4/library/ttk/progress.tcl
+++ /dev/null
@@ -1,49 +0,0 @@
-#
-# Ttk widget set: progress bar utilities.
-#
-
-namespace eval ttk::progressbar {
-    variable Timers    ;# Map: widget name -> after ID
-}
-
-# Autoincrement --
-#      Periodic callback procedure for autoincrement mode
-#
-proc ttk::progressbar::Autoincrement {pb steptime stepsize} {
-    variable Timers
-
-    if {![winfo exists $pb]} {
-       # widget has been destroyed -- cancel timer
-       unset -nocomplain Timers($pb)
-       return
-    }
-
-    set Timers($pb) [after $steptime \
-       [list ttk::progressbar::Autoincrement $pb $steptime $stepsize] ]
-
-    $pb step $stepsize
-}
-
-# ttk::progressbar::start --
-#      Start autoincrement mode.  Invoked by [$pb start] widget code.
-#
-proc ttk::progressbar::start {pb {steptime 50} {stepsize 1}} {
-    variable Timers
-    if {![info exists Timers($pb)]} {
-       Autoincrement $pb $steptime $stepsize
-    }
-}
-
-# ttk::progressbar::stop --
-#      Cancel autoincrement mode. Invoked by [$pb stop] widget code.
-#
-proc ttk::progressbar::stop {pb} {
-    variable Timers
-    if {[info exists Timers($pb)]} {
-       after cancel $Timers($pb)
-       unset Timers($pb)
-    }
-    $pb configure -value 0
-}
-
-