/usr/lib/grass64/bwidget/separator.tcl is in grass-gui 6.4.3-3.
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 | # ------------------------------------------------------------------------------
# separator.tcl
# This file is part of Unifix BWidget Toolkit
# ------------------------------------------------------------------------------
# Index of commands:
# - Separator::create
# - Separator::configure
# - Separator::cget
# ------------------------------------------------------------------------------
namespace eval Separator {
Widget::declare Separator {
{-background TkResource "" 0 frame}
{-relief Enum groove 0 {ridge groove}}
{-orient Enum horizontal 1 {horizontal vertical}}
{-bg Synonym -background}
}
Widget::addmap Separator "" :cmd {-background {}}
proc ::Separator { path args } { return [eval Separator::create $path $args] }
proc use {} {}
}
# ------------------------------------------------------------------------------
# Command Separator::create
# ------------------------------------------------------------------------------
proc Separator::create { path args } {
Widget::init Separator $path $args
if { [Widget::getoption $path -relief] == "groove" } {
set relief sunken
} else {
set relief raised
}
if { [Widget::getoption $path -orient] == "horizontal" } {
frame $path \
-background [Widget::getoption $path -background] \
-borderwidth 1 \
-relief $relief \
-height 2
} else {
frame $path \
-background [Widget::getoption $path -background] \
-borderwidth 1 \
-relief $relief \
-width 2
}
bind $path <Destroy> {Widget::destroy %W; rename %W {}}
rename $path ::$path:cmd
proc ::$path { cmd args } "return \[eval Separator::\$cmd $path \$args\]"
return $path
}
# ------------------------------------------------------------------------------
# Command Separator::configure
# ------------------------------------------------------------------------------
proc Separator::configure { path args } {
set res [Widget::configure $path $args]
if { [Widget::hasChanged $path -relief relief] } {
if { $relief == "groove" } {
$path:cmd configure -relief sunken
} else {
$path:cmd configure -relief raised
}
}
return $res
}
# ------------------------------------------------------------------------------
# Command Separator::cget
# ------------------------------------------------------------------------------
proc Separator::cget { path option } {
return [Widget::cget $path $option]
}
|