Changeset 230


Ignore:
Timestamp:
Dec 4, 2009 5:02:34 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/orient.tcl

    • Property rcs:date changed from 2000/06/09 03:50:40 to 2000/07/06 21:28:01
    • Property rcs:lines changed from +18 -19 to +3 -20
    • Property rcs:rev changed from 1.2 to 1.3
    r200 r230  
    134134    global expgui expmap
    135135    pack [frame $expgui(orientFrame).hs] -side left -expand y -fill both
    136     grid [listbox $expgui(orientFrame).hs.title -height 1 -relief flat \
    137             -exportselection 0 \
    138             -font $expgui(histfont) ] -row 0 -column 0 -sticky ew
    139     grid [listbox $expgui(orientFrame).hs.lbox -height 10 -width 25 \
    140             -exportselection 0 \
    141             -font $expgui(histfont) \
    142             -xscrollcommand "$expgui(orientFrame).hs.x set" \
    143             -yscrollcommand "$expgui(orientFrame).hs.y set" \
    144             ] -row 1 -column 0 -sticky news
    145     # register the listbox so it gets updated
    146     lappend expgui(HistSelectList) $expgui(orientFrame).hs
    147     grid [scrollbar $expgui(orientFrame).hs.x -orient horizontal \
    148             -command "move2boxes \" $expgui(orientFrame).hs.title $expgui(orientFrame).hs.lbox \" "
    149     ] -row 2 -column 0 -sticky ew
    150     grid [scrollbar $expgui(orientFrame).hs.y \
    151             -command "$expgui(orientFrame).hs.lbox yview"] \
    152             -row 1 -column 1 -sticky ns
    153     grid columnconfigure $expgui(orientFrame).hs 0 -weight 1
    154     grid rowconfigure $expgui(orientFrame).hs 1 -weight 1
     136    MakeHistBox $expgui(orientFrame).hs
    155137    bind $expgui(orientFrame).hs.lbox <ButtonRelease-1> {
    156138        set expgui(curhist) [$expgui(orientFrame).hs.lbox curselection]
     
    164146        }
    165147    }
     148
    166149    # Create a frame on the right side
    167150    if $expgui(haveBW) {
Note: See TracChangeset for help on using the changeset viewer.