/usr/share/amsn/plugins/chameleon/entry.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 | namespace eval ::chameleon::entry {
proc entry_customParseConfArgs {w parsed_options args } {
array set options $args
array set ttk_options $parsed_options
if { [info exists options(-width)] } {
if {$options(-width) == 0} {
set ttk_options(-width) [list]
} else {
set ttk_options(-width) $options(-width)
}
}
return [array get ttk_options]
}
proc init_entryCustomOptions { } {
variable entry_widgetCommands
variable entry_widgetOptions
array set entry_widgetOptions {
-background -styleOption
-bd -styleOption
-bg -styleOption
-borderwidth -styleOption
-cursor -cursor
-disabledbackground -ignore
-disabledforeground -ignore
-exportselection -exportselection
-fg -styleOption
-font -styleOption
-foreground -styleOption
-highlightbackground -ignore
-highlightcolor -ignore
-highlightthickness -ignore
-insertbackground -ignore
-insertborderwidth -ignore
-insertofftime -ignore
-insertontime -ignore
-insertwidth -ignore
-invalidcommand -invalidcommand
-invcmd -invalidcommand
-justify -justify
-readonlybackground -ignore
-relief -styleOption
-selectbackground -ignore
-selectborderwidth -ignore
-selectforeground -ignore
-show -show
-state -state
-takefocus -takefocus
-text -textvariable
-textvariable -textvariable
-validate -validate
-validatecommand -validatecommand
-vcmd -validatecommand
-width -width
-xscrollcommand -xscrollcommand
}
array set entry_widgetCommands {
bbox {1 {$w bbox}}
delete {1 {$w delete}}
get {1 {$w get}}
icursor {2 {$w icursor}}
index {3 {$w index}}
insert {3 {$w insert}}
scan {2 {entry_scan $w}}
selection {2 {entry_selection $w}}
validate {1 {$w validate}}
xview {1 {$w xview}}
}
}
proc entry_scan { w args } {
#TODO implement scan
#TODO implement the 'anchor' index somehow...
}
proc entry_selection { w option args } {
if { $option eq "clear" || $option eq "present" || $option eq "range"} {
return [eval [list $w] selection $option $args]
}
}
}
|