/usr/share/amsn/plugins/chameleon/menubutton.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 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | namespace eval ::chameleon::menubutton {
proc menubutton_customParseConfArgs {w parsed_options args } {
array set options $args
array set ttk_options $parsed_options
if { [info exists options(-padx)] && [string is digit -strict $options(-padx)] } {
set padx $options(-padx)
} else {
set padx 0
}
if { [info exists options(-pady)] && [string is digit -strict $options(-pady)] } {
set pady $options(-pady)
} else {
set pady 0
}
if {$padx == 0 && $pady != 0 } {
set ttk_options(-padding) [list 2 $pady]
} elseif {$padx != 0 && $pady == 0 } {
set ttk_options(-padding) [list $padx 2]
} elseif {$padx != 0 && $pady != 0 } {
set ttk_options(-padding) [list $padx $pady]
}
# if { [info exists options(-width)] } {
# if {$options(-width) == 0} {
# set ttk_options(-width) [list]
# } else {
# set ttk_options(-width) $options(-width)
# }
# }
set ttk_options(-width) -1
return [array get ttk_options]
}
proc init_menubuttonCustomOptions { } {
variable menubutton_widgetCommands
variable menubutton_widgetOptions
array set menubutton_widgetOptions {
-activebackground -ignore
-activeforeground -ignore
-anchor -ignore
-background -styleOption
-bd -styleOption
-bg -styleOption
-bitmap -ignore
-borderwidth -styleOption
-compound -compound
-cursor -cursor
-direction -direction
-disabledforeground -ignore
-fg -styleOption
-font -styleOption
-foreground -styleOption
-height -ignore
-highlightbackground -ignore
-highlightcolor -ignore
-highlightthickness -ignore
-image -image
-indicatoron -ignore
-justify -ignore
-menu -menu
-padx -ignore
-pady -ignore
-relief -styleOption
-state -state
-takefocus -takefocus
-text -text
-textvariable -textvariable
-underline -underline
-width -toImplement
-wraplength -ignore
}
}
proc menubutton_customCget { w option } {
set padding [$w cget -padding]
if { [llength $padding] > 0 } {
foreach {padx pady} $padding {break}
}
if { $option eq "-padx" && [info exists padx] } {
return $padx
}
if { $option eq "-pady" && [info exists pady] } {
return $pady
}
if {$option eq "-width"} {
return 0
set width [$w cget -width]
if {![string is digit -strict $width]} {
return 0
} else {
return $width
}
}
return ""
}
}
|