/usr/share/amsn/plugins/chameleon/frame.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 111 112 | namespace eval ::chameleon::frame {
proc frame_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(-height)] } {
if {$options(-height) == 0} {
set ttk_options(-height) [list]
} else {
set ttk_options(-height) $options(-height)
}
}
return [array get ttk_options]
}
proc init_frameCustomOptions { } {
variable frame_widgetOptions
array set frame_widgetOptions {
-background -styleOption
-bd -borderwidth
-bg -styleOption
-border -borderwidth
-borderwidth -borderwidth
-class -class
-colormap -ignore
-container -ignore
-cursor -cursor
-height -toImplement
-highlightbackground -styleOption
-highlightcolor -styleOption
-highlightthickness -styleOption
-padx -toImplement
-pady -toImplement
-relief -styleOption
-takefocus -takefocus
-visual -ignore
-width -toImplement
}
}
proc frame_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
}
}
if {$option eq "-height"} {
set height [$w cget -height]
if {![string is digit -strict $height]} {
return 0
} else {
return $height
}
}
return ""
}
}
|