/usr/share/amsn/plugins/chameleon/scrollbar.tcl is in amsn-data 0.98.9-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | namespace eval ::chameleon::scrollbar {
proc scrollbar_customParseConfArgs {w parsed_options args } {
array set options $args
array set ttk_options $parsed_options
if { [info exists options(-orient)] } {
set pattern ""
for {set i 0} {$i < [string length $options(-orient)] } {incr i} {
if {$i == 0 } {
append pattern [string index $options(-orient) $i]
} else {
append pattern "\[[string index $options(-orient) $i]\]"
}
}
append pattern "*"
if {[string match $pattern "vertical"]} {
set ttk_options(-orient) "vertical"
} elseif {[string match $pattern "horizontal"]} {
set ttk_options(-orient) "horizontal"
} else {
set ttk_options(-orient) $options(-orient)
}
}
return [array get ttk_options]
}
proc init_scrollbarCustomOptions { } {
variable scrollbar_widgetCommands
variable scrollbar_widgetOptions
array set scrollbar_widgetOptions {
-activebackground -ignore
-activerelief -ignore
-background -styleOption
-bd -styleOption
-bg -styleOption
-borderwidth -styleOption
-command -command
-elementborderwidth -ignore
-height -ignore
-highlightbackground -ignore
-highlightcolor -ignore
-highlightthickness -ignore
-jump -ignore
-orient -toImplement
-relief -styleOption
-repeatdelay -ignore
-repeatinterval -ignore
-troughcolor -ignore
-width -ignore
}
array set scrollbar_widgetCommands {
activate {1 {scrollbar_activate $w}}
delta {1 {$w delta}}
fraction {1 {$w fraction}}
get {1 {$w get}}
identify {2 {$w identify}}
moveto {1 {$w moveto}}
scroll {2 {$w scroll}}
set {2 {$w set}}
}
}
proc scrolbar_activate { w {element ""}} {
#TODO
}
proc scrollbar_customCget { w option } {
if {$option eq "-orient"} {
return [$w cget -orient]
}
return ""
}
}
|