OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
tcltk
/
tk8.6
/
ttk
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
altTheme.tcl
3.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
aquaTheme.tcl
1.95 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
button.tcl
2.91 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
clamTheme.tcl
4.49 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
classicTheme.tcl
3.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
combobox.tcl
12.13 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
cursors.tcl
3.91 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
defaults.tcl
4.25 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
entry.tcl
16.01 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
fonts.tcl
5.44 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
menubutton.tcl
4.8 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
notebook.tcl
5.49 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
panedwindow.tcl
1.88 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
progress.tcl
1.06 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scale.tcl
2.63 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scrollbar.tcl
3.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
sizegrip.tcl
2.34 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
spinbox.tcl
4.16 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
treeview.tcl
8.65 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
ttk.tcl
4.44 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
utils.tcl
8.36 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
vistaTheme.tcl
9.12 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
winTheme.tcl
2.58 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
xpTheme.tcl
1.88 KB
03/24/2018 06:42:17 PM
rw-r--r--
Editing: progress.tcl
Close
# # 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 }