/usr/share/amsn/plugins/chameleon/label.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 109 110 | namespace eval ::chameleon::label {
proc label_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 && [info exists options(-bd)] } {
set ttk_options(-padding) $options(-bd)
} else {
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)
}
}
if { [info exists options(-image)] } {
array unset ttk_options -width
}
return [array get ttk_options]
}
proc init_labelCustomOptions { } {
variable label_widgetOptions
array set label_widgetOptions {
-activebackground -ignore
-activeforeground -ignore
-anchor -anchor
-background -background
-bd -styleOption
-bg -background
-bitmap -ignore
-border -styleOption
-borderwidth -styleOption
-class -class
-compound -compound
-cursor -cursor
-disabledforeground -ignore
-fg -foreground
-font -font
-foreground -foreground
-height -ignore
-highlightbackground -ignore
-highlightcolor -ignore
-highlightthickness -ignore
-image -image
-justify -justify
-padx -toImplement
-pady -toImplement
-relief -relief
-state -state
-takefocus -takefocus
-text -text
-textvariable -textvariable
-underline -underline
-width -toImplement
-wraplength -wraplength
}
}
proc label_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"} {
set width [$w cget -width]
if {![string is digit -strict $width]} {
return 0
} else {
return $width
}
}
return ""
}
}
|