File Manager

X7ROOT File Manager

Current Path: /usr/share/tk8.5/ttk

📁 ..
📄 altTheme.tcl(3.26 KB)
📄 aquaTheme.tcl(1.95 KB)
📄 button.tcl(2.91 KB)
📄 clamTheme.tcl(4.16 KB)
📄 classicTheme.tcl(3.44 KB)
📄 combobox.tcl(12.1 KB)
📄 cursors.tcl(3.91 KB)
📄 defaults.tcl(3.6 KB)
📄 entry.tcl(15.77 KB)
📄 fonts.tcl(5.44 KB)
📄 menubutton.tcl(4.77 KB)
📄 notebook.tcl(5.49 KB)
📄 panedwindow.tcl(1.88 KB)
📄 progress.tcl(1.06 KB)
📄 scale.tcl(2.49 KB)
📄 scrollbar.tcl(3.02 KB)
📄 sizegrip.tcl(2.34 KB)
📄 spinbox.tcl(4.16 KB)
📄 treeview.tcl(8.66 KB)
📄 ttk.tcl(4.44 KB)
📄 utils.tcl(8.36 KB)
📄 vistaTheme.tcl(9.13 KB)
📄 winTheme.tcl(2.58 KB)
📄 xpTheme.tcl(1.88 KB)

Editing: progress.tcl

#
# 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
    }

$pb step $stepsize

set Timers($pb) [after $steptime \
    	[list ttk::progressbar::Autoincrement $pb $steptime $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
}

X7ROOT File Manager

Editing: progress.tcl

Upload File

Create Folder