Changeset 230

Timestamp:

Dec 4, 2009 5:02:34 PM (14 years ago)

Author:

toby

Message:

# on 2000/07/06 21:28:01, toby did:
use MakeHistBox? for histogram selection box

File:

• trunk/orient.tcl (modified) (2 diffs, 3 props)

trunk/orient.tcl

@@ -134 +134 @@
     global expgui expmap
     pack [frame $expgui(orientFrame).hs] -side left -expand y -fill both
-    grid [listbox $expgui(orientFrame).hs.title -height 1 -relief flat \
-            -exportselection 0 \
-            -font $expgui(histfont) ] -row 0 -column 0 -sticky ew
-    grid [listbox $expgui(orientFrame).hs.lbox -height 10 -width 25 \
-            -exportselection 0 \
-            -font $expgui(histfont) \
-            -xscrollcommand "$expgui(orientFrame).hs.x set" \
-            -yscrollcommand "$expgui(orientFrame).hs.y set" \
-            ] -row 1 -column 0 -sticky news
-    # register the listbox so it gets updated
-    lappend expgui(HistSelectList) $expgui(orientFrame).hs
-    grid [scrollbar $expgui(orientFrame).hs.x -orient horizontal \
-            -command "move2boxes \" $expgui(orientFrame).hs.title $expgui(orientFrame).hs.lbox \" " 
-    ] -row 2 -column 0 -sticky ew
-    grid [scrollbar $expgui(orientFrame).hs.y \
-            -command "$expgui(orientFrame).hs.lbox yview"] \
-            -row 1 -column 1 -sticky ns
-    grid columnconfigure $expgui(orientFrame).hs 0 -weight 1
-    grid rowconfigure $expgui(orientFrame).hs 1 -weight 1
+    MakeHistBox $expgui(orientFrame).hs
     bind $expgui(orientFrame).hs.lbox <ButtonRelease-1> {
         set expgui(curhist) [$expgui(orientFrame).hs.lbox curselection]
@@ -164 +146 @@
         }
     }
+
     # Create a frame on the right side
     if $expgui(haveBW) {