home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / iwidgets3.0.0 / scripts / panedwindow.itk < prev    next >
Text File  |  1999-02-24  |  29KB  |  894 lines
  1. #
  2. # Panedwindow
  3. # ----------------------------------------------------------------------
  4. # Implements a multiple paned window widget capable of orienting the panes
  5. # either vertically or horizontally.  Each pane is itself a frame acting
  6. # as a child site for other widgets.  The border separating each pane 
  7. # contains a sash which allows user positioning of the panes relative to
  8. # one another.  
  9. #
  10. # ----------------------------------------------------------------------
  11. #  AUTHOR: Mark L. Ulferts              EMAIL: mulferts@austin.dsccc.com
  12. #
  13. #  @(#) $Id: panedwindow.itk,v 1.1 1998/07/27 18:53:12 stanton Exp $
  14. # ----------------------------------------------------------------------
  15. #            Copyright (c) 1995 DSC Technologies Corporation
  16. # ======================================================================
  17. # Permission to use, copy, modify, distribute and license this software 
  18. # and its documentation for any purpose, and without fee or written 
  19. # agreement with DSC, is hereby granted, provided that the above copyright 
  20. # notice appears in all copies and that both the copyright notice and 
  21. # warranty disclaimer below appear in supporting documentation, and that 
  22. # the names of DSC Technologies Corporation or DSC Communications 
  23. # Corporation not be used in advertising or publicity pertaining to the 
  24. # software without specific, written prior permission.
  25. # 
  26. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  27. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  28. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  29. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  30. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  31. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  32. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  33. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  34. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  35. # SOFTWARE.
  36. # ======================================================================
  37.  
  38. #
  39. # Usual options.
  40. #
  41. itk::usual Panedwindow {
  42.     keep -background -cursor -sashcursor
  43. }
  44.  
  45. # ------------------------------------------------------------------
  46. #                            PANEDWINDOW
  47. # ------------------------------------------------------------------
  48. class iwidgets::Panedwindow {
  49.     inherit itk::Widget
  50.  
  51.     constructor {args} {}
  52.  
  53.     itk_option define -orient orient Orient horizontal 
  54.     itk_option define -sashborderwidth sashBorderWidth SashBorderWidth 2
  55.     itk_option define -sashcursor sashCursor SashCursor crosshair
  56.     itk_option define -sashwidth sashWidth SashWidth 10
  57.     itk_option define -sashheight sashHeight SashHeight 10
  58.     itk_option define -thickness thickness Thickness 3
  59.     itk_option define -sashindent sashIndent SashIndent -10
  60.  
  61.     public method index {index} 
  62.     public method childsite {args} 
  63.     public method fraction {percentage1 percentage2 args} 
  64.     public method add {tag args} 
  65.     public method insert {index tag args} 
  66.     public method delete {index} 
  67.     public method hide {index}    
  68.     public method show {index} 
  69.     public method paneconfigure {index args} 
  70.     public method reset {} 
  71.  
  72.     protected method _pwConfigureEventHandler {width height} 
  73.     protected method _startGrip {where num} 
  74.     protected method _endGrip {where num} 
  75.     protected method _configGrip {where num} 
  76.     protected method _handleGrip {where num} 
  77.     protected method _moveSash {where num} 
  78.  
  79.     private method _setFracArray {} 
  80.     private method _setActivePanes {} 
  81.     private method _calcFraction {where num} 
  82.     private method _makeSashes {} 
  83.     private method _placeSash {i} 
  84.     private method _placePanes {{start 0} {end end}} 
  85.     
  86.     private variable _initialized 0    ;# Denotes initialized state.
  87.     private variable _panes {}         ;# List of panes.
  88.     private variable _activePanes {}   ;# List of active panes.
  89.     private variable _sashes {}        ;# List of sashes.
  90.     private variable _separators {}    ;# List of separators.
  91.     private variable _frac             ;# Array of fraction percentages.
  92.     private variable _lowerlimit       ;# Margin distance above/left of sash.
  93.     private variable _upperlimit       ;# Margin distance below/right of sash.
  94.     private variable _dimension        ;# Width/Height at start of drag.
  95.     private variable _sashloc          ;# Array of dist of sash from above/left.
  96.     private variable _pixels           ;# Array of dist of sash from above/left.
  97.     private variable _minheight        ;# Array of min heights for panes.
  98.     private variable _minsashmoved     ;# Lowest sash moved during dragging.
  99.     private variable _maxsashmoved     ;# Highest sash moved during dragging.
  100.     private variable _dragging 0       ;# Boolean for dragging enabled.
  101.     private variable _movecount 0      ;# Kludge counter to get sashes to
  102.                                        ;# display without calling update 
  103.                                        ;# idletasks too often.
  104.     private variable _width 0          ;# hull's width.
  105.     private variable _height 0         ;# hull's height.
  106.     private variable _unique -1         ;# Unique number for pane names.
  107. }
  108.  
  109. #
  110. # Provide a lowercased access method for the Panedwindow class.
  111. # 
  112. proc ::iwidgets::panedwindow {pathName args} {
  113.     uplevel ::iwidgets::Panedwindow $pathName $args
  114. }
  115.  
  116. #
  117. # Use option database to override default resources of base classes.
  118. #
  119. option add *Panedwindow.width 10 widgetDefault
  120. option add *Panedwindow.height 10 widgetDefault
  121.  
  122. # ------------------------------------------------------------------
  123. #                        CONSTRUCTOR
  124. # ------------------------------------------------------------------
  125. body iwidgets::Panedwindow::constructor {args} {
  126.     itk_option add hull.width hull.height
  127.  
  128.     pack propagate $itk_component(hull) no
  129.     
  130.     #
  131.     # Add binding for the configure event.
  132.     #
  133.     bind pw-config-$this <Configure> [code $this _pwConfigureEventHandler %w %h]
  134.     bindtags $itk_component(hull) \
  135.         [linsert [bindtags $itk_component(hull)] 0 pw-config-$this]
  136.     
  137.     eval itk_initialize $args
  138. }
  139.  
  140. # ------------------------------------------------------------------
  141. #                             OPTIONS
  142. # ------------------------------------------------------------------
  143.  
  144. # ------------------------------------------------------------------
  145. # OPTION: -orient
  146. #
  147. # Specifies the orientation of the sashes.  Once the paned window
  148. # has been mapped, set the sash bindings and place the panes.
  149. # ------------------------------------------------------------------
  150. configbody iwidgets::Panedwindow::orient {
  151.     if {$_initialized} {
  152.     switch $itk_option(-orient) {
  153.         vertical {
  154.         for {set i 1} {$i < [llength $_panes]} {incr i} {
  155.             bind $itk_component(sash$i) <Button-1> \
  156.                 [code $this _startGrip %x $i]
  157.             bind $itk_component(sash$i) <B1-Motion> \
  158.                 [code $this _handleGrip %x $i]
  159.             bind $itk_component(sash$i) <B1-ButtonRelease-1> \
  160.                 [code $this _endGrip %x $i]
  161.             bind $itk_component(sash$i) <Configure> \
  162.                 [code $this _configGrip %x $i]
  163.         }
  164.         
  165.         _setFracArray
  166.         _makeSashes
  167.         _placePanes
  168.         }
  169.         
  170.         horizontal {
  171.         for {set i 1} {$i < [llength $_panes]} {incr i} {
  172.             bind $itk_component(sash$i) <Button-1> \
  173.                 [code $this _startGrip %y $i]
  174.             bind $itk_component(sash$i) <B1-Motion> \
  175.                 [code $this _handleGrip %y $i]
  176.             bind $itk_component(sash$i) <B1-ButtonRelease-1> \
  177.                 [code $this _endGrip %y $i]
  178.             bind $itk_component(sash$i) <Configure> \
  179.                 [code $this _configGrip %y $i]
  180.         }
  181.         
  182.         _setFracArray
  183.         _makeSashes
  184.         _placePanes
  185.         }
  186.         
  187.         default {
  188.         error "bad orientation option \"$itk_option(-orient)\":\
  189.             should be horizontal or vertical"
  190.         }
  191.     }
  192.     }
  193. }
  194.  
  195. # ------------------------------------------------------------------
  196. # OPTION: -sashborderwidth
  197. #
  198. # Specifies a non-negative value indicating the width of the 3-D
  199. # border to draw around the outside of the sash.
  200. # ------------------------------------------------------------------
  201. configbody iwidgets::Panedwindow::sashborderwidth {
  202.     set pixels [winfo pixels $itk_component(hull) \
  203.         $itk_option(-sashborderwidth)]
  204.     set itk_option(-sashborderwidth) $pixels
  205.     
  206.     if {$_initialized} {
  207.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  208.         $itk_component(sash$i) configure \
  209.             -borderwidth $itk_option(-sashborderwidth)
  210.     }
  211.     }
  212. }
  213.  
  214. # ------------------------------------------------------------------
  215. # OPTION: -sashcursor
  216. #
  217. # Specifies the type of cursor to be used when over the sash.
  218. # ------------------------------------------------------------------
  219. configbody iwidgets::Panedwindow::sashcursor {
  220.     if {$_initialized} {
  221.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  222.         $itk_component(sash$i) configure \
  223.             -cursor $itk_option(-sashcursor)
  224.     }
  225.     }
  226. }
  227.  
  228. # ------------------------------------------------------------------
  229. # OPTION: -sashwidth
  230. #
  231. # Specifies the width of the sash.
  232. # ------------------------------------------------------------------
  233. configbody iwidgets::Panedwindow::sashwidth {
  234.     set pixels [winfo pixels $itk_component(hull) \
  235.         $itk_option(-sashwidth)]
  236.     set itk_option(-sashwidth) $pixels
  237.     
  238.     if {$_initialized} {
  239.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  240.         $itk_component(sash$i) configure \
  241.             -width $itk_option(-sashwidth)
  242.     }
  243.     }
  244. }
  245.  
  246. # ------------------------------------------------------------------
  247. # OPTION: -sashheight
  248. #
  249. # Specifies the height of the sash,
  250. # ------------------------------------------------------------------
  251. configbody iwidgets::Panedwindow::sashheight {
  252.     set pixels [winfo pixels $itk_component(hull) \
  253.         $itk_option(-sashheight)]
  254.     set itk_option(-sashheight) $pixels
  255.     
  256.     if {$_initialized} {
  257.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  258.         $itk_component(sash$i) configure \
  259.             -height $itk_option(-sashheight)
  260.     }
  261.     }
  262. }
  263.  
  264. # ------------------------------------------------------------------
  265. # OPTION: -thickness
  266. #
  267. # Specifies the thickness of the separators.  It sets the width and
  268. # height of the separator to the thickness value and the borderwidth
  269. # to half the thickness.
  270. # ------------------------------------------------------------------
  271. configbody iwidgets::Panedwindow::thickness {
  272.     set pixels [winfo pixels $itk_component(hull) \
  273.         $itk_option(-thickness)]
  274.     set itk_option(-thickness) $pixels
  275.     
  276.     if {$_initialized} {
  277.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  278.         $itk_component(separator$i) configure \
  279.             -height $itk_option(-thickness)
  280.         $itk_component(separator$i) configure \
  281.             -width $itk_option(-thickness)
  282.         $itk_component(separator$i) configure \
  283.             -borderwidth [expr $itk_option(-thickness) / 2]
  284.     }
  285.     
  286.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  287.         _placeSash $i
  288.     }
  289.     }
  290. }
  291.  
  292. # ------------------------------------------------------------------
  293. # OPTION: -sashindent
  294. #
  295. # Specifies the placement of the sash along the panes.  A positive
  296. # value causes the sash to be offset from the near (left/top) side
  297. # of the pane, and a negative value causes the sash to be offset from
  298. # the far (right/bottom) side.  If the offset is greater than the 
  299. # width, then the sash is placed flush against the side.  
  300. # ------------------------------------------------------------------
  301. configbody iwidgets::Panedwindow::sashindent {
  302.     set pixels [winfo pixels $itk_component(hull) \
  303.         $itk_option(-sashindent)]
  304.     set itk_option(-sashindent) $pixels
  305.     
  306.     if {$_initialized} {
  307.     for {set i 1} {$i < [llength $_panes]} {incr i} {
  308.         _placeSash $i
  309.     }
  310.     }
  311. }
  312.  
  313. # ------------------------------------------------------------------
  314. #                            METHODS
  315. # ------------------------------------------------------------------
  316.  
  317. # ------------------------------------------------------------------
  318. # METHOD: index index
  319. #
  320. # Searches the panes in the paned window for the one with the 
  321. # requested tag, numerical index, or keyword "end".  Returns the pane's 
  322. # numerical index if found, otherwise error.
  323. # ------------------------------------------------------------------    
  324. body iwidgets::Panedwindow::index {index} {
  325.     if {[llength $_panes] > 0} {
  326.     if {[regexp {(^[0-9]+$)} $index]} {
  327.         if {$index < [llength $_panes]} {
  328.         return $index
  329.         } else {
  330.         error "Panedwindow index \"$index\" is out of range"
  331.         }
  332.         
  333.     } elseif {$index == "end"} {
  334.         return [expr [llength $_panes] - 1]
  335.         
  336.     } else {
  337.         if {[set idx [lsearch $_panes $index]] != -1} {
  338.         return $idx
  339.         }
  340.         
  341.         error "bad Panedwindow index \"$index\": must be number, end,\
  342.             or pattern"
  343.     }
  344.     
  345.     } else {
  346.     error "Panedwindow \"$itk_component(hull)\" has no panes"
  347.     }
  348. }
  349.  
  350. # ------------------------------------------------------------------
  351. # METHOD: childsite ?index?
  352. #
  353. # Given an index return the specifc childsite path name.  Invoked 
  354. # without an index return a list of all the child site panes.  The 
  355. # list is ordered from the near side (left/top).
  356. # ------------------------------------------------------------------
  357. body iwidgets::Panedwindow::childsite {args} {
  358.     if {! $_initialized} {
  359.     set _initialized 1
  360.     reset
  361.     }
  362.  
  363.     if {[llength $args] == 0} {
  364.     set children {}
  365.     
  366.     foreach pane $_panes {
  367.         lappend children [$itk_component($pane) childSite]
  368.     }
  369.     
  370.     return $children
  371.     
  372.     } else {
  373.     set index [index [lindex $args 0]]
  374.     return [$itk_component([lindex $_panes $index]) childSite]
  375.     }
  376. }
  377.  
  378. # ------------------------------------------------------------------
  379. # METHOD: fraction percentage percentage ?percentage ...?
  380. #
  381. # Sets the visible percentage of the panes.  Specifies a list of
  382. # percentages which are applied to the currently visible panes from 
  383. # the near side (left/top).  The number of percentages must be equal 
  384. # to the current number of visible (mapped) panes and add up to 100.
  385. # ------------------------------------------------------------------
  386. body iwidgets::Panedwindow::fraction {percentage1 percentage2 args} {
  387.     set args [linsert $args 0 $percentage1 $percentage2]
  388.     
  389.     if {[llength $args] == [llength $_activePanes]} {
  390.     set sum 0
  391.     
  392.     for {set i 0} {$i < [llength $args]} {incr i} {
  393.         set sum [expr $sum + [lindex $args $i]]
  394.     }
  395.     
  396.     if {$sum == 100} {
  397.         set perc 0.0
  398.         
  399.         for {set i 0} {$i < [llength $_activePanes]} {incr i} {
  400.         set _frac($i) $perc
  401.         set perc [expr $perc + [expr [lindex $args $i] / 100.0]]
  402.         }
  403.         
  404.         set _frac($i) 1.0
  405.         
  406.         if {[winfo ismapped $itk_component(hull)]} {
  407.         _placePanes
  408.         }
  409.         
  410.     } else {
  411.         error "bad fraction arguments \"$args\": they should add\
  412.             up to 100"
  413.     }
  414.     
  415.     } else {
  416.     error "wrong # args: should be \"$itk_component(hull)\
  417.         fraction percentage percentage ?percentage ...?\",\
  418.         where the number of percentages is\
  419.         [llength $_activePanes] and equal 100"
  420.     }
  421. }
  422.  
  423. # ------------------------------------------------------------------
  424. # METHOD: add tag ?option value option value ...?
  425. #
  426. # Add a new pane to the paned window to the far (right/bottom) side.
  427. # The method takes additional options which are passed on to the 
  428. # pane constructor.  These include -margin, and -minimum.  The path 
  429. # of the pane is returned.
  430. # ------------------------------------------------------------------
  431. body iwidgets::Panedwindow::add {tag args} {
  432.     #
  433.     # Create panes.
  434.     #
  435.     itk_component add $tag {
  436.     eval iwidgets::Pane $itk_interior.pane[incr _unique] $args
  437.     } {
  438.     keep -background -cursor
  439.     }
  440.     
  441.     lappend _panes $tag
  442.     lappend _activePanes $tag
  443.     
  444.     reset
  445.     
  446.     return $itk_component($tag)
  447. }
  448.  
  449. # ------------------------------------------------------------------
  450. # METHOD: insert index tag ?option value option value ...?
  451. #
  452. # Insert the specified pane in the paned window just before the one 
  453. # given by index.  Any additional options which are passed on to the 
  454. # pane constructor.  These include -margin, -minimum.  The path of 
  455. # the pane is returned.
  456. # ------------------------------------------------------------------
  457. body iwidgets::Panedwindow::insert {index tag args} {
  458.     #
  459.     # Create panes.
  460.     #
  461.     itk_component add $tag {
  462.     eval iwidgets::Pane $itk_interior.pane[incr _unique] $args
  463.     } {
  464.     keep -background -cursor
  465.     }
  466.     
  467.     set index [index $index]
  468.     set _panes [linsert $_panes $index $tag]
  469.     lappend _activePanes $tag
  470.     
  471.     reset
  472.     
  473.     return $itk_component($tag)
  474. }
  475.  
  476. # ------------------------------------------------------------------
  477. # METHOD: delete index
  478. #
  479. # Delete the specified pane.
  480. # ------------------------------------------------------------------
  481. body iwidgets::Panedwindow::delete {index} {
  482.     set index [index $index]
  483.     set tag [lindex $_panes $index]
  484.     
  485.     destroy $itk_component($tag)
  486.     
  487.     set _panes [lreplace $_panes $index $index]
  488.     
  489.     reset
  490. }
  491.  
  492. # ------------------------------------------------------------------
  493. # METHOD: hide index
  494. #
  495. # Remove the specified pane from the paned window. 
  496. # ------------------------------------------------------------------
  497. body iwidgets::Panedwindow::hide {index} {
  498.     set index [index $index]
  499.     set tag [lindex $_panes $index]
  500.     
  501.     if {[set idx [lsearch -exact $_activePanes $tag]] != -1} {
  502.     set _activePanes [lreplace $_activePanes $idx $idx]
  503.     }
  504.     
  505.     reset
  506. }   
  507.  
  508. # ------------------------------------------------------------------
  509. # METHOD: show index
  510. #
  511. # Display the specified pane in the paned window.
  512. # ------------------------------------------------------------------
  513. body iwidgets::Panedwindow::show {index} {
  514.     set index [index $index]
  515.     set tag [lindex $_panes $index]
  516.     
  517.     if {[lsearch -exact $_activePanes $tag] == -1} {
  518.     lappend _activePanes $tag
  519.     }
  520.     
  521.     reset
  522. }   
  523.  
  524. # ------------------------------------------------------------------
  525. # METHOD: paneconfigure index ?option? ?value option value ...?
  526. #
  527. # Configure a specified pane.  This method allows configuration of
  528. # panes from the Panedwindow level.  The options may have any of the 
  529. # values accepted by the add method.
  530. # ------------------------------------------------------------------
  531. body iwidgets::Panedwindow::paneconfigure {index args} {
  532.     set index [index $index]
  533.     set tag [lindex $_panes $index]
  534.     
  535.     return [uplevel $itk_component($tag) configure $args]
  536. }
  537.  
  538. # ------------------------------------------------------------------
  539. # METHOD: reset
  540. #
  541. # Redisplay the panes based on the default percentages of the panes.
  542. # ------------------------------------------------------------------
  543. body iwidgets::Panedwindow::reset {} {
  544.     if {$_initialized && [llength $_panes]} {
  545.     _setActivePanes
  546.     _setFracArray
  547.     
  548.     _makeSashes
  549.     _placePanes
  550.     }
  551. }
  552.  
  553. # ------------------------------------------------------------------
  554. # PROTECTED METHOD: _pwConfigureEventHandler
  555. #
  556. # Performs operations necessary following a configure event.  This
  557. # includes placing the panes.
  558. # ------------------------------------------------------------------
  559. body iwidgets::Panedwindow::_pwConfigureEventHandler {width height} {
  560.     set _width $width
  561.     set _height $height
  562.     if {$_initialized} {
  563.     _placePanes
  564.     } else {
  565.     set _initialized 1
  566.     reset
  567.     }
  568. }
  569.  
  570. # ------------------------------------------------------------------
  571. # PROTECTED METHOD: _startGrip where num
  572. #
  573. # Starts the sash drag and drop operation.  At the start of the drag
  574. # operation all the information is known as for the upper and lower
  575. # limits for sash movement.  The calculation is made at this time and
  576. # stored in protected variables for later access during the drag
  577. # handling routines.
  578. # ------------------------------------------------------------------
  579. body iwidgets::Panedwindow::_startGrip {where num} {
  580.     if {$itk_option(-orient) == "horizontal"} {
  581.       set _dimension $_height
  582.     } else {
  583.       set _dimension $_width
  584.     }
  585.     
  586.     set _minsashmoved $num
  587.     set _maxsashmoved $num
  588.     set totMinHeight 0
  589.     set cnt [llength $_activePanes]
  590.     set _sashloc(0) 0
  591.     set _pixels($cnt) [expr int($_dimension)]
  592.     for {set i 0} {$i < $cnt} {incr i} {
  593.       set _pixels($i) [expr int($_frac($i) * $_dimension)]
  594.       set margaft [$itk_component([lindex $_activePanes $i]) cget -margin]
  595.       set minaft [$itk_component([lindex $_activePanes $i]) cget -minimum]
  596.       set _minheight($i) [expr $minaft + (2 * $margaft)]
  597.       incr totMinHeight $_minheight($i)
  598.     }
  599.     set _dragging [expr $_dimension > $totMinHeight]
  600.  
  601.     grab  $itk_component(sash$num)
  602.     raise $itk_component(separator$num)
  603.     raise $itk_component(sash$num)
  604.     
  605.     $itk_component(sash$num) configure -relief sunken
  606. }
  607.  
  608. # ------------------------------------------------------------------
  609. # PROTECTED METHOD: _endGrip where num
  610. #
  611. # Ends the sash drag and drop operation.
  612. # ------------------------------------------------------------------
  613. body iwidgets::Panedwindow::_endGrip {where num} {
  614.     $itk_component(sash$num) configure -relief raised
  615.     grab release $itk_component(sash$num)
  616.     if {$_dragging} {
  617.       _calcFraction [expr $_sashloc($num) + $where] $num
  618.       _placePanes [expr $_minsashmoved - 1] $_maxsashmoved
  619.       set _dragging 0
  620.     }
  621. }
  622.  
  623. # ------------------------------------------------------------------
  624. # PROTECTED METHOD: _configGrip where num
  625. #
  626. # Configure  action for sash.
  627. # ------------------------------------------------------------------
  628. body iwidgets::Panedwindow::_configGrip {where num} {
  629.    set _sashloc($num) $where
  630. }
  631.  
  632. # ------------------------------------------------------------------
  633. # PROTECTED METHOD: _handleGrip where num
  634. #
  635. # Motion action for sash.
  636. # ------------------------------------------------------------------
  637. body iwidgets::Panedwindow::_handleGrip {where num} {
  638.  if {$_dragging} {
  639.   _moveSash [expr $where + $_sashloc($num)] $num
  640.   incr _movecount
  641.   if {$_movecount>4} {
  642.     set _movecount 0
  643.     update idletasks
  644.   }
  645.  }
  646. }
  647.  
  648. # ------------------------------------------------------------------
  649. # PROTECTED METHOD: _moveSash where num
  650. #
  651. # Move the sash to the absolute pixel location
  652. # ------------------------------------------------------------------
  653. body iwidgets::Panedwindow::_moveSash {where num} {
  654.   set _minsashmoved [expr ($_minsashmoved<$num)?$_minsashmoved:$num]
  655.   set _maxsashmoved [expr ($_maxsashmoved>$num)?$_maxsashmoved:$num]
  656.   set oldfrac $_frac($num)
  657.   _calcFraction $where $num
  658.   if {$_frac($num)!=$oldfrac} { _placeSash $num }
  659. }
  660.  
  661. # ------------------------------------------------------------------
  662. # PRIVATE METHOD: _setFracArray
  663. #
  664. # Calculates the percentages for the fraction array which lists the
  665. # percentages for each pane.
  666. # ------------------------------------------------------------------
  667. body iwidgets::Panedwindow::_setFracArray {} {
  668.     set perc 0.0
  669.     if {[llength $_activePanes] != 0} {
  670.     set percIncr [expr 1.0 / [llength $_activePanes]]
  671.     }
  672.     
  673.     for {set i 0} {$i < [llength $_activePanes]} {incr i} {
  674.     set _frac($i) $perc
  675.     set perc [expr $perc + $percIncr]
  676.     }
  677.     
  678.     set _frac($i) 1.0
  679. }
  680.  
  681. # ------------------------------------------------------------------
  682. # PRIVATE METHOD: _setActivePanes
  683. #
  684. # Resets the active pane list.
  685. # ------------------------------------------------------------------
  686. body iwidgets::Panedwindow::_setActivePanes {} {
  687.     set _prevActivePanes $_activePanes
  688.  
  689.     set _activePanes {}
  690.     
  691.     foreach pane $_panes {
  692.     if {[lsearch -exact $_prevActivePanes $pane] != -1} {
  693.         lappend _activePanes $pane
  694.     }
  695.     }
  696. }
  697.  
  698. # ------------------------------------------------------------------
  699. # PRIVATE METHOD: _calcFraction where num
  700. #
  701. # Determines the fraction for the sash.  Make sure the fraction does
  702. # not go past the minimum for the pane on each side of the separator.
  703. # ------------------------------------------------------------------
  704. body iwidgets::Panedwindow::_calcFraction {where num} {
  705.     
  706.     set _lowerlimit \
  707.         [expr $_pixels([expr $num - 1]) + $_minheight([expr $num - 1])]
  708.     set _upperlimit \
  709.         [expr $_pixels([expr $num + 1]) - $_minheight($num)]
  710.     
  711.     set dir [expr $where - $_pixels($num)]
  712.  
  713.     if {$where < $_lowerlimit && $dir <= 0} {
  714.      if {$num == 1} {
  715.       set _pixels($num) $_lowerlimit
  716.      } {
  717.       _moveSash [expr $where - $_minheight([expr $num - 1])] [expr $num -1]
  718.       set _pixels($num) \
  719.          [expr $_pixels([expr $num - 1]) + $_minheight([expr $num - 1])]
  720.      }
  721.     } elseif {$where > $_upperlimit && $dir >= 0} {
  722.      if {[expr $num + 1] == [llength $_activePanes]} {
  723.       set _pixels($num) $_upperlimit
  724.      } {
  725.       _moveSash [expr $where + $_minheight($num)] [expr $num +1]
  726.       set _pixels($num) \
  727.          [expr $_pixels([expr $num + 1]) - $_minheight($num)]
  728.      }
  729.     } else {
  730.       set _pixels($num) $where
  731.     }
  732.     set _frac($num) [expr $_pixels($num).0 / $_dimension]
  733. }
  734.  
  735. # ------------------------------------------------------------------
  736. # PRIVATE METHOD: _makeSashes
  737. #
  738. # Removes any previous sashes and separators and creates new one.
  739. # ------------------------------------------------------------------
  740. body iwidgets::Panedwindow::_makeSashes {} {
  741.     #
  742.     # Remove any existing sashes and separators.
  743.     #
  744.     foreach sash $_sashes {
  745.     destroy $itk_component($sash)
  746.     }
  747.     
  748.     foreach separator $_separators {
  749.     destroy $itk_component($separator)
  750.     }
  751.     
  752.     set _sashes {}
  753.     set _separators {}
  754.     
  755.     #
  756.     # Create one less separator and sash than the number of panes.  
  757.     #
  758.     for {set id 1} {$id < [llength $_activePanes]} {incr id} {
  759.     itk_component add sash$id {
  760.         frame $itk_interior.sash$id -relief raised \
  761.             -borderwidth $itk_option(-sashborderwidth) \
  762.             -cursor $itk_option(-sashcursor) \
  763.             -width $itk_option(-sashwidth) \
  764.             -height $itk_option(-sashheight)
  765.     } {
  766.         keep -background
  767.     }
  768.     
  769.     lappend _sashes sash$id
  770.     
  771.     switch $itk_option(-orient) {
  772.         vertical {
  773.         bind $itk_component(sash$id) <Button-1> \
  774.             [code $this _startGrip %x $id]
  775.         bind $itk_component(sash$id) <B1-Motion> \
  776.             [code $this _handleGrip %x $id]
  777.         bind $itk_component(sash$id) <B1-ButtonRelease-1> \
  778.             [code $this _endGrip %x $id]
  779.         bind $itk_component(sash$id) <Configure> \
  780.                 [code $this _configGrip %x $id]
  781.         }
  782.         
  783.         horizontal {
  784.         bind $itk_component(sash$id) <Button-1> \
  785.             [code $this _startGrip %y $id]
  786.         bind $itk_component(sash$id) <B1-Motion> \
  787.             [code $this _handleGrip %y $id]
  788.         bind $itk_component(sash$id) <B1-ButtonRelease-1> \
  789.             [code $this _endGrip %y $id]
  790.         bind $itk_component(sash$id) <Configure> \
  791.                 [code $this _configGrip %y $id]
  792.         }
  793.     }
  794.     
  795.     itk_component add separator$id {
  796.         frame $itk_interior.separator$id -relief sunken \
  797.             -height $itk_option(-thickness) \
  798.             -width $itk_option(-thickness) \
  799.             -borderwidth [expr $itk_option(-thickness) / 2]
  800.     } {
  801.         keep -background -cursor
  802.     }
  803.     
  804.     lappend _separators separator$id
  805.     }
  806. }
  807.  
  808. # ------------------------------------------------------------------
  809. # PRIVATE METHOD: _placeSash i
  810. #
  811. # Places the position of the sash and separator.
  812. # ------------------------------------------------------------------
  813. body iwidgets::Panedwindow::_placeSash {i} {
  814.     if {$itk_option(-orient) == "horizontal"} {
  815.     place $itk_component(separator$i) -in $itk_component(hull) \
  816.         -x 0 -relwidth 1 -rely $_frac($i) -anchor w \
  817.         -height $itk_option(-thickness)
  818.     
  819.     if {$itk_option(-sashindent) < 0} {
  820.         set sashPos [expr $_width + $itk_option(-sashindent)]
  821.         set sashAnchor e
  822.     } else {
  823.         set sashPos $itk_option(-sashindent)
  824.         set sashAnchor w
  825.     }
  826.     
  827.     place $itk_component(sash$i) -in $itk_component(hull) \
  828.         -x $sashPos -rely $_frac($i) -anchor $sashAnchor
  829.     
  830.     } else {
  831.     place $itk_component(separator$i) -in $itk_component(hull) \
  832.         -y 0 -relheight 1 -relx $_frac($i) -anchor n \
  833.         -width $itk_option(-thickness)
  834.     
  835.     if {$itk_option(-sashindent) < 0} {
  836.         set sashPos [expr $_height + $itk_option(-sashindent)]
  837.         set sashAnchor s
  838.     } else {
  839.         set sashPos $itk_option(-sashindent)
  840.         set sashAnchor n
  841.     }
  842.     
  843.     place $itk_component(sash$i) -in $itk_component(hull) \
  844.         -y $sashPos -relx $_frac($i) -anchor $sashAnchor
  845.     }
  846. }
  847.  
  848. # ------------------------------------------------------------------
  849. # PRIVATE METHOD: _placePanes
  850. #
  851. # Resets the panes of the window following movement of the sash.
  852. # ------------------------------------------------------------------
  853. body iwidgets::Panedwindow::_placePanes {{start 0} {end end}} {
  854.      if {$end=="end"} { set end [expr [llength $_activePanes] - 1] }
  855.      set _updatePanes [lrange $_activePanes $start $end]
  856.      if {$_updatePanes == $_activePanes} {
  857.        set _forgetPanes $_panes
  858.      } {
  859.        set _forgetPanes $_updatePanes
  860.      }
  861.     foreach pane $_forgetPanes {
  862.     place forget $itk_component($pane)
  863.     }
  864.    
  865.     
  866.     if {$itk_option(-orient) == "horizontal"} {
  867.     set i $start
  868.     foreach pane $_updatePanes {
  869.         place $itk_component($pane) -in $itk_component(hull) \
  870.             -x 0 -rely $_frac($i) -relwidth 1 \
  871.             -relheight [expr $_frac([expr $i + 1]) - $_frac($i)]
  872.         incr i
  873.     }
  874.     
  875.     } else {
  876.     set i $start
  877.     foreach pane $_updatePanes {
  878.         place $itk_component($pane) -in $itk_component(hull) \
  879.             -y 0 -relx $_frac($i) -relheight 1 \
  880.             -relwidth [expr $_frac([expr $i + 1]) - $_frac($i)]
  881.         incr i
  882.     }
  883.     
  884.     }
  885.  
  886.     for {set i [expr $start+1]} {$i <= $end} {incr i} {
  887.     if {[array names itk_component separator$i] != ""} {
  888.         _placeSash $i
  889.         raise $itk_component(separator$i)
  890.         raise $itk_component(sash$i)
  891.     }
  892.     }
  893. }
  894.