/usr/lib/grass64/bwidget/progressdlg.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 83 84 85 86 87 88 89 | # ------------------------------------------------------------------------------
# progressdlg.tcl
# This file is part of Unifix BWidget Toolkit
# ------------------------------------------------------------------------------
# Index of commands:
# - ProgressDlg::create
# ------------------------------------------------------------------------------
namespace eval ProgressDlg {
Dialog::use
ProgressBar::use
Widget::bwinclude ProgressDlg Dialog "" \
remove {
-modal -image -bitmap -side -anchor -cancel -default
-homogeneous -padx -pady -spacing
}
Widget::bwinclude ProgressDlg ProgressBar .frame.pb \
remove {-orient -width -height}
Widget::declare ProgressDlg {
{-width TkResource 25 0 label}
{-height TkResource 2 0 label}
{-textvariable TkResource "" 0 label}
{-font TkResource "" 0 label}
{-stop String "" 0}
{-command String "" 0}
}
Widget::addmap ProgressDlg "" .frame.msg \
{-width {} -height {} -textvariable {} -font {} -background {}}
proc ::ProgressDlg { path args } { return [eval ProgressDlg::create $path $args] }
proc use {} {}
}
# ------------------------------------------------------------------------------
# Command ProgressDlg::create
# ------------------------------------------------------------------------------
proc ProgressDlg::create { path args } {
Widget::init ProgressDlg "$path#ProgressDlg" $args
eval Dialog::create $path [Widget::subcget "$path#ProgressDlg" ""] \
-image [Bitmap::get hourglass] -modal none -side bottom -anchor c
wm protocol $path WM_DELETE_WINDOW {;}
set frame [Dialog::getframe $path]
bind $frame <Destroy> "Widget::destroy $path#ProgressDlg"
$frame configure -cursor watch
eval label $frame.msg [Widget::subcget "$path#ProgressDlg" .frame.msg] \
-relief flat -borderwidth 0 -highlightthickness 0 -anchor w -justify left
pack $frame.msg -side top -pady 3m -anchor nw -fill x -expand yes
set var [Widget::cget "$path#ProgressDlg" -variable]
eval ProgressBar::create $frame.pb [Widget::subcget "$path#ProgressDlg" .frame.pb] \
-width 100
pack $frame.pb -side bottom -anchor w -fill x -expand yes
set stop [Widget::cget "$path#ProgressDlg" -stop]
set cmd [Widget::cget "$path#ProgressDlg" -command]
if { $stop != "" && $cmd != "" } {
Dialog::add $path -text $stop -name $stop -command $cmd
}
Dialog::draw $path
BWidget::grab local $path
proc ::$path { cmd args } "return \[eval ProgressDlg::\$cmd $path \$args\]"
return $path
}
# ------------------------------------------------------------------------------
# Command ProgressDlg::configure
# ------------------------------------------------------------------------------
proc ProgressDlg::configure { path args } {
return [Widget::configure "$path#ProgressDlg" $args]
}
# ------------------------------------------------------------------------------
# Command ProgressDlg::cget
# ------------------------------------------------------------------------------
proc ProgressDlg::cget { path option } {
return [Widget::cget "$path#ProgressDlg" $option]
}
|