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: ttk.tcl
Close
# # Ttk widget set initialization script. # ### Source library scripts. # namespace eval ::ttk { variable library if {![info exists library]} { set library [file dirname [info script]] } } source [file join $::ttk::library fonts.tcl] source [file join $::ttk::library cursors.tcl] source [file join $::ttk::library utils.tcl] ## ttk::deprecated $old $new -- # Define $old command as a deprecated alias for $new command # $old and $new must be fully namespace-qualified. # proc ttk::deprecated {old new} { interp alias {} $old {} ttk::do'deprecate $old $new } ## do'deprecate -- # Implementation procedure for deprecated commands -- # issue a warning (once), then re-alias old to new. # proc ttk::do'deprecate {old new args} { deprecated'warning $old $new interp alias {} $old {} $new uplevel 1 [linsert $args 0 $new] } ## deprecated'warning -- # Gripe about use of deprecated commands. # proc ttk::deprecated'warning {old new} { puts stderr "$old deprecated -- use $new instead" } ### Backward-compatibility. # # # Make [package require tile] an effective no-op; # see SF#3016598 for discussion. # package ifneeded tile 0.8.6 { package provide tile 0.8.6 } # ttk::panedwindow used to be named ttk::paned. Keep the alias for now. # ::ttk::deprecated ::ttk::paned ::ttk::panedwindow ### ::ttk::ThemeChanged -- # Called from [::ttk::style theme use]. # Sends a <<ThemeChanged>> virtual event to all widgets. # proc ::ttk::ThemeChanged {} { set Q . while {[llength $Q]} { set QN [list] foreach w $Q { event generate $w <<ThemeChanged>> foreach child [winfo children $w] { lappend QN $child } } set Q $QN } } ### Public API. # proc ::ttk::themes {{ptn *}} { set themes [list] foreach pkg [lsearch -inline -all -glob [package names] ttk::theme::$ptn] { lappend themes [namespace tail $pkg] } return $themes } ## ttk::setTheme $theme -- # Set the current theme to $theme, loading it if necessary. # proc ::ttk::setTheme {theme} { variable currentTheme ;# @@@ Temp -- [::ttk::style theme use] doesn't work if {$theme ni [::ttk::style theme names]} { package require ttk::theme::$theme } ::ttk::style theme use $theme set currentTheme $theme } ### Load widget bindings. # source [file join $::ttk::library button.tcl] source [file join $::ttk::library menubutton.tcl] source [file join $::ttk::library scrollbar.tcl] source [file join $::ttk::library scale.tcl] source [file join $::ttk::library progress.tcl] source [file join $::ttk::library notebook.tcl] source [file join $::ttk::library panedwindow.tcl] source [file join $::ttk::library entry.tcl] source [file join $::ttk::library combobox.tcl] ;# dependency: entry.tcl source [file join $::ttk::library spinbox.tcl] ;# dependency: entry.tcl source [file join $::ttk::library treeview.tcl] source [file join $::ttk::library sizegrip.tcl] ## Label and Labelframe bindings: # (not enough to justify their own file...) # bind TLabelframe <<Invoke>> { tk::TabToWindow [tk_focusNext %W] } bind TLabel <<Invoke>> { tk::TabToWindow [tk_focusNext %W] } ### Load settings for built-in themes: # proc ttk::LoadThemes {} { variable library # "default" always present: uplevel #0 [list source [file join $library defaults.tcl]] set builtinThemes [style theme names] foreach {theme scripts} { classic classicTheme.tcl alt altTheme.tcl clam clamTheme.tcl winnative winTheme.tcl xpnative {xpTheme.tcl vistaTheme.tcl} aqua aquaTheme.tcl } { if {[lsearch -exact $builtinThemes $theme] >= 0} { foreach script $scripts { uplevel #0 [list source [file join $library $script]] } } } } ttk::LoadThemes; rename ::ttk::LoadThemes {} ### Select platform-specific default theme: # # Notes: # + On OSX, aqua theme is the default # + On Windows, xpnative takes precedence over winnative if available. # + On X11, users can use the X resource database to # specify a preferred theme (*TkTheme: themeName); # otherwise "default" is used. # proc ttk::DefaultTheme {} { set preferred [list aqua vista xpnative winnative] set userTheme [option get . tkTheme TkTheme] if {$userTheme ne {} && ![catch { uplevel #0 [list package require ttk::theme::$userTheme] }]} { return $userTheme } foreach theme $preferred { if {[package provide ttk::theme::$theme] ne ""} { return $theme } } return "default" } ttk::setTheme [ttk::DefaultTheme] ; rename ttk::DefaultTheme {} #*EOF*