[GRASS-SVN] r35030 - grass/branches/releasebranch_6_4/lib/gtcltk
svn_grass at osgeo.org
svn_grass at osgeo.org
Fri Dec 26 02:14:13 EST 2008
Author: cmbarton
Date: 2008-12-26 02:14:12 -0500 (Fri, 26 Dec 2008)
New Revision: 35030
Modified:
grass/branches/releasebranch_6_4/lib/gtcltk/gronsole.tcl
grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl
Log:
select.tcl: fixed mouse wheel scrolling, dictionary sorting (PERMANENT at top)
gronsole.tcl: switched to cut icon for cutting text
Modified: grass/branches/releasebranch_6_4/lib/gtcltk/gronsole.tcl
===================================================================
--- grass/branches/releasebranch_6_4/lib/gtcltk/gronsole.tcl 2008-12-26 07:13:38 UTC (rev 35029)
+++ grass/branches/releasebranch_6_4/lib/gtcltk/gronsole.tcl 2008-12-26 07:14:12 UTC (rev 35030)
@@ -187,7 +187,9 @@
}
proc Gronsole::create_command {path cmd} {
+ global iconpath
variable _data
+
set textarea $path.text
incr _data($path,count)
@@ -208,7 +210,7 @@
bind $cmdlabel <Button-1> "Gronsole::do_click $path $ci"
# set cmdlabel [text $frame.cmdline.cmd -height 1 -width 10]
# $cmdlabel insert end $cmd
- set ex [button $frame.cmdline.eX -text "X" -command "Gronsole::destroy_command $path $ci"]
+ set ex [button $frame.cmdline.eX -image [image create photo -file "$iconpath/edit-cut.gif"] -command "Gronsole::destroy_command $path $ci"]
pack $ex -side right
pack $frame.cmdline.tags -side right
set iconwidth ""
Modified: grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl
===================================================================
--- grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl 2008-12-26 07:13:38 UTC (rev 35029)
+++ grass/branches/releasebranch_6_4/lib/gtcltk/select.tcl 2008-12-26 07:14:12 UTC (rev 35030)
@@ -26,7 +26,7 @@
set bind_scroll_list {}
-proc handle_scroll {ammount} {
+proc handle_scroll {amount} {
global bind_scroll_list
foreach {x y} {-1 -1} {}
@@ -46,7 +46,7 @@
set l [string length $parent]
if {[string equal -length $l $parent $keyboard_focus] || \
[string equal -length $l $parent $mouse_focus]} {
- $window yview scroll [expr {-$ammount/120}] units
+ $window yview scroll [expr -1 * $amount] units
}
}
@@ -176,7 +176,7 @@
-image [Bitmap::get folder] -drawcross auto
}
set path "$location_path/$dir/$element/"
- foreach fp [ lsort [glob -nocomplain $path/*] ] {
+ foreach fp [ lsort -dictionary [glob -nocomplain $path/*] ] {
set file [file tail $fp]
$tree insert end ms_$dir $file@$dir -text $file -data $file \
-image [Bitmap::get file] -drawcross never
@@ -189,12 +189,12 @@
$tree insert end root ms_$sympath -text SYMBOLS -data $sympath -open 1 \
-image [Bitmap::get openfold] -drawcross auto
- foreach ic_dir [ lsort [glob -nocomplain $sympath/*] ] {
+ foreach ic_dir [ lsort -dictionary [glob -nocomplain $sympath/*] ] {
set dir_tail [file tail $ic_dir]
$tree insert end ms_$sympath ms_$dir_tail -text $dir_tail -data $dir_tail \
-image [Bitmap::get folder] -drawcross auto
- foreach ic_file [ lsort [glob -nocomplain $sympath/$dir_tail/*] ] {
+ foreach ic_file [ lsort -dictionary [glob -nocomplain $sympath/$dir_tail/*] ] {
set file [file tail $ic_file]
$tree insert end ms_$dir_tail $dir_tail/$file -text $file -data $file \
-image [Bitmap::get file] -drawcross never
More information about the grass-commit
mailing list