home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / iwidgets2.2.0 / scripts / tabnotebook.itk < prev    next >
Text File  |  1999-02-24  |  36KB  |  1,074 lines
  1. #
  2. # Tabnotebook Widget
  3. # ----------------------------------------------------------------------
  4. # The Tabnotebook command creates a new window (given by the pathName 
  5. # argument) and makes it into a Tabnotebook widget. Additional options, 
  6. # described above may be specified on the command line or in the option 
  7. # database to configure aspects of the Tabnotebook such as its colors, 
  8. # font, and text. The Tabnotebook command returns its pathName argument. 
  9. # At the time this command is invoked, there must not exist a window 
  10. # named pathName, but pathName's parent must exist.
  11. # 
  12. # A Tabnotebook is a widget that contains a set of tabbed pages. It 
  13. # displays one page from the set as the selected page. A Tab displays 
  14. # the label for the page to which it is attached and serves as a page 
  15. # selector.   When a page's tab is selected, the page's contents are 
  16. # displayed in the page area. The selected tab has a three-dimensional 
  17. # effect to make it appear to float above the other tabs. The tabs are 
  18. # displayed as a group along either the left, top, right, or bottom 
  19. # edge. When first created a Tabnotebook has no pages. Pages may be 
  20. # added or deleted using widget commands described below.
  21. # 
  22. # A special option may be provided to the Tabnotebook. The -auto 
  23. # option specifies whether the Tabnotebook will automatically handle 
  24. # the unpacking and packing of pages when pages are selected. A value 
  25. # of true sig nifies that the notebook will automatically manage it. This 
  26. # is the default value. A value of false signifies the notebook will not 
  27. # perform automatic switching of pages.
  28. # 
  29. # ----------------------------------------------------------------------
  30. #  AUTHOR: Bill W. Scott                 EMAIL: bscott@spd.dsccc.com
  31. #
  32. #  @(#) $Id: tabnotebook.itk,v 1.1 1998/07/27 18:49:53 stanton Exp $
  33. # ----------------------------------------------------------------------
  34. #            Copyright (c) 1995 DSC Technologies Corporation
  35. # ======================================================================
  36. # Permission to use, copy, modify, distribute and license this software 
  37. # and its documentation for any purpose, and without fee or written 
  38. # agreement with DSC, is hereby granted, provided that the above copyright 
  39. # notice appears in all copies and that both the copyright notice and 
  40. # warranty disclaimer below appear in supporting documentation, and that 
  41. # the names of DSC Technologies Corporation or DSC Communications 
  42. # Corporation not be used in advertising or publicity pertaining to the 
  43. # software without specific, written prior permission.
  44. # 
  45. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  46. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  47. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  48. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  49. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  50. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  51. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  52. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  53. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  54. # SOFTWARE.
  55. # ======================================================================
  56.  
  57. #
  58. # Default resources.
  59. #
  60. option add *Tabnotebook.borderWidth 2 widgetDefault
  61. option add *Tabnotebook.state normal widgetDefault
  62. option add *Tabnotebook.disabledForeground #a3a3a3 widgetDefault
  63. option add *Tabnotebook.scrollCommand {} widgetDefault
  64. option add *Tabnotebook.equalTabs true widgetDefault
  65. option add *Tabnotebook.font \
  66.     -Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-* widgetDefault
  67. option add *Tabnotebook.width 300 widgetDefault
  68. option add *Tabnotebook.height 150 widgetDefault
  69. option add *Tabnotebook.foreground Black widgetDefault
  70. option add *Tabnotebook.background #d9d9d9 widgetDefault
  71. option add *Tabnotebook.tabForeground Black widgetDefault
  72. option add *Tabnotebook.tabBackground #d9d9d9 widgetDefault
  73. option add *Tabnotebook.backdrop #d9d9d9 widgetDefault
  74. option add *Tabnotebook.margin 4 widgetDefault
  75. option add *Tabnotebook.tabBorders true widgetDefault
  76. option add *Tabnotebook.bevelAmount 0 widgetDefault
  77. option add *Tabnotebook.raiseSelect false widgetDefault
  78. option add *Tabnotebook.auto true widgetDefault
  79. option add *Tabnotebook.start 4 widgetDefault
  80. option add *Tabnotebook.padX 4 widgetDefault
  81. option add *Tabnotebook.padY 4 widgetDefault
  82. option add *Tabnotebook.gap overlap widgetDefault
  83. option add *Tabnotebook.angle 15 widgetDefault
  84. option add *Tabnotebook.tabPos s widgetDefault
  85.  
  86. #
  87. # Usual options.
  88. #
  89. itk::usual Tabnotebook {
  90.     keep -backdrop -background -borderwidth -cursor -disabledforeground \
  91.      -font -foreground -tabbackground -tabforeground
  92. }
  93.  
  94. # ------------------------------------------------------------------
  95. #                            TABNOTEBOOK
  96. # ------------------------------------------------------------------
  97. class iwidgets::Tabnotebook {
  98.     inherit itk::Widget
  99.     
  100.     constructor {args} {}
  101.     destructor {}
  102.     
  103.     itk_option define -borderwidth borderWidth BorderWidth 2 
  104.     itk_option define -state state State normal
  105.     itk_option define \
  106.         -disabledforeground disabledForeground DisabledForeground #a3a3a3
  107.     itk_option define -scrollcommand scrollCommand ScrollCommand {}
  108.     itk_option define -equaltabs equalTabs EqualTabs true
  109.     itk_option define -font font Font \
  110.         -Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*
  111.     itk_option define -width width Width 300
  112.     itk_option define -height height Height 150
  113.     itk_option define -foreground foreground Foreground Black
  114.     itk_option define -background background Background  #d9d9d9
  115.     itk_option define -tabforeground tabForeground TabForeground Black
  116.     itk_option define -tabbackground tabBackground TabBackground #d9d9d9
  117.     itk_option define -backdrop backdrop Backdrop #d9d9d9
  118.     itk_option define -margin margin Margin 4 
  119.     itk_option define -tabborders tabBorders TabBorders true 
  120.     itk_option define -bevelamount bevelAmount BevelAmount 0 
  121.     itk_option define -raiseselect raiseSelect RaiseSelect false 
  122.     itk_option define -auto auto Auto true
  123.     itk_option define -start start Start 4 
  124.     itk_option define -padx padX PadX 4 
  125.     itk_option define -pady padY PadY 4 
  126.     itk_option define -gap gap Gap overlap 
  127.     itk_option define -angle angle Angle 15 
  128.     itk_option define -tabpos tabPos TabPos s 
  129.     
  130.     public method add { args }
  131.     public method configure { args } 
  132.     public method childsite { args }
  133.     public method delete { args } 
  134.     public method index { args } 
  135.     public method insert { index args }
  136.     public method prev { } 
  137.     public method next { }
  138.     public method pageconfigure { index args } 
  139.     public method select { index } 
  140.     public method view { args } 
  141.     
  142.     protected method _reconfigureTabset { } 
  143.     protected method _canvasReconfigure { wid hgt }
  144.     protected method _pageReconfigure { pageName page wid hgt }
  145.     
  146.     private method _getArgs { optList args }
  147.     private method _redrawBorder { wid hgt } 
  148.     private method _recomputeBorder { }
  149.     private method _pack { tabPos } 
  150.     
  151.     private variable _canvasWidth 0       ;# currently tabnote canvas width
  152.     private variable _canvasHeight 0      ;# currently tabnote canvas height
  153.     private variable _nbOptList {}        ;# list of notebook options available
  154.     private variable _tsOptList {}        ;# list of tabset options available
  155.     
  156.     private variable _tabPos s            ;# holds -tabPos, because of ordering
  157.     
  158.     private variable _borderRecompute false   ;# did we dirty border after cfg?
  159.     private variable _tabsetReconfigure false ;# did we dirty tabsets after cfg?
  160.     
  161. }
  162.  
  163. # ----------------------------------------------------------------------
  164. #                              CONSTRUCTOR
  165. # ----------------------------------------------------------------------
  166. body iwidgets::Tabnotebook::constructor {args} {
  167.     #
  168.     # Create the outermost canvas to maintain geometry.
  169.     #
  170.     itk_component add canvas {
  171.     canvas $itk_interior.canvas -highlightthickness 0
  172.     } {
  173.     keep -cursor -background -width -height
  174.     }
  175.     bind $itk_component(canvas) <Configure> \
  176.         [code $this _canvasReconfigure %w %h]
  177.     
  178.     
  179.     # .......................
  180.     # Create the NOTEBOOK
  181.     #
  182.     itk_component add notebook {
  183.     iwidgets::Notebook $itk_interior.canvas.notebook 
  184.     } {
  185.     keep -cursor -background 
  186.     }
  187.     
  188.     #
  189.     # Ouch, create a dummy page, go pageconfigure to get its options
  190.     # and munge them into a list for later doling by pageconfigure
  191.     #
  192.     $itk_component(notebook) add
  193.     set nbConfigList [$itk_component(notebook) pageconfigure 0]
  194.     foreach config $nbConfigList {
  195.     lappend _nbOptList [lindex $config 0]
  196.     }
  197.     $itk_component(notebook) delete 0
  198.     
  199.     # 
  200.     # Create the tabset.
  201.     #
  202.     itk_component add tabset {
  203.     iwidgets::Tabset $itk_interior.canvas.tabset \
  204.         -command [code $this component notebook select]
  205.     } {
  206.     keep -cursor 
  207.     }
  208.     
  209.     eval itk_initialize $args
  210.     
  211.     #
  212.     # Ouch, create a dummy tab, go tabconfigure to get its options
  213.     # and munge them into a list for later doling by pageconfigure
  214.     #
  215.     $itk_component(tabset) add
  216.     set tsConfigList [$itk_component(tabset) tabconfigure 0]
  217.     foreach config $tsConfigList {
  218.     lappend _tsOptList [lindex $config 0]
  219.     }
  220.     $itk_component(tabset) delete 0
  221.     
  222.     bind $itk_component(tabset) <Configure> \
  223.         [code $this _reconfigureTabset]
  224.     
  225.     _pack $_tabPos
  226.     
  227. }
  228.  
  229. proc ::iwidgets::tabnotebook {pathName args} {
  230.     uplevel ::iwidgets::Tabnotebook $pathName $args
  231. }
  232.  
  233.  
  234. # -------------------------------------------------------------
  235. # DESTRUCTOR: destroy the Tabnotebook
  236. # -------------------------------------------------------------
  237. body iwidgets::Tabnotebook::destructor {} {
  238. }
  239.  
  240. # ----------------------------------------------------------------------
  241. # OPTION -borderwidth
  242. #
  243. # Thickness of Notebook Border
  244. # ----------------------------------------------------------------------
  245. configbody iwidgets::Tabnotebook::borderwidth {
  246.     if {$itk_option(-borderwidth) != {}} {
  247.     #_recomputeBorder
  248.     set _borderRecompute true
  249.     }
  250. }
  251.  
  252. # ----------------------------------------------------------------------
  253. # OPTION -state
  254. #
  255. # State of the tabs in the tab notebook: normal or disabled
  256. # ----------------------------------------------------------------------
  257. configbody iwidgets::Tabnotebook::state {
  258.     if {$itk_option(-state) != {}} {
  259.     $itk_component(tabset) configure -state $itk_option(-state)
  260.     #_reconfigureTabset
  261.     set _tabsetReconfigure true
  262.     
  263.     }
  264. }
  265.  
  266. # ----------------------------------------------------------------------
  267. # OPTION -disabledforeground
  268. #
  269. # Specifies a foreground color to use for displaying a 
  270. # tab's label when its state is disabled.
  271. # ----------------------------------------------------------------------
  272. configbody iwidgets::Tabnotebook::disabledforeground {
  273.     
  274.     if {$itk_option(-disabledforeground) != {}} {
  275.     $itk_component(tabset) configure \
  276.         -disabledforeground $itk_option(-disabledforeground)
  277.     #_reconfigureTabset
  278.     set _tabsetReconfigure true
  279.     }
  280. }
  281.  
  282. # ----------------------------------------------------------------------
  283. # OPTION -scrollcommand
  284. #
  285. # Standard option. See options man pages.
  286. # ----------------------------------------------------------------------
  287. configbody iwidgets::Tabnotebook::scrollcommand {
  288.     
  289.     if {$itk_option(-scrollcommand) != {}} {
  290.     $itk_component(notebook) \
  291.         configure -scrollcommand $itk_option(-scrollcommand)
  292.     }
  293. }
  294.  
  295. # ----------------------------------------------------------------------
  296. # OPTION -equaltabs
  297. #
  298. # Specifies whether to force tabs to be equal sized or not. 
  299. # A value of true means constrain tabs to be equal sized. 
  300. # A value of false allows each tab to size based on the text 
  301. # label size. The value may have any of the forms accepted by 
  302. # the Tcl_GetBoolean, such as true, false, 0, 1, yes, or no.
  303. # ----------------------------------------------------------------------
  304. configbody iwidgets::Tabnotebook::equaltabs {
  305.     
  306.     if {$itk_option(-equaltabs) != {}} {
  307.     $itk_component(tabset) \
  308.         configure -equaltabs $itk_option(-equaltabs)
  309.     #_reconfigureTabset
  310.     set _tabsetReconfigure true
  311.     }
  312. }
  313.  
  314. # ----------------------------------------------------------------------
  315. # OPTION -font
  316. #
  317. # Font for tab labels when they are set to text (-label set)
  318. # ----------------------------------------------------------------------
  319. configbody iwidgets::Tabnotebook::font {
  320.     
  321.     if {$itk_option(-font) != {}} {
  322.     $itk_component(tabset) configure -font $itk_option(-font)
  323.     #_reconfigureTabset
  324.     set _tabsetReconfigure true
  325.     }
  326. }
  327.  
  328. # ----------------------------------------------------------------------
  329. # OPTION -width
  330. #
  331. # Width of the Tabnotebook
  332. # ----------------------------------------------------------------------
  333. configbody iwidgets::Tabnotebook::width {
  334.     if {$itk_option(-width) != {}} {
  335.     $itk_component(canvas) configure -width $itk_option(-width)
  336.     #_recomputeBorder
  337.     set _borderRecompute true
  338.     }
  339. }
  340.  
  341. # ----------------------------------------------------------------------
  342. # OPTION -height
  343. #
  344. # Height of the Tabnotebook
  345. # ----------------------------------------------------------------------
  346. configbody iwidgets::Tabnotebook::height {
  347.     if {$itk_option(-height) != {}} {
  348.     $itk_component(canvas) configure -height $itk_option(-height)
  349.     #_recomputeBorder
  350.     set _borderRecompute true
  351.     }
  352. }
  353.  
  354. # ----------------------------------------------------------------------
  355. # OPTION -foreground
  356. #
  357. # Specifies a foreground color to use for displaying a page 
  358. # and its associated tab label (this is the selected state).
  359. # ----------------------------------------------------------------------
  360. configbody iwidgets::Tabnotebook::foreground {
  361.     
  362.     if {$itk_option(-foreground) != {}} {
  363.     $itk_component(tabset) configure \
  364.         -selectforeground $itk_option(-foreground)
  365.     }
  366. }
  367.  
  368. # ----------------------------------------------------------------------
  369. # OPTION -background
  370. #
  371. # Specifies a background color to use for displaying a page 
  372. # and its associated tab bg (this is the selected state).
  373. # ----------------------------------------------------------------------
  374. configbody iwidgets::Tabnotebook::background {
  375.     
  376.     if {$itk_option(-background) != {}} {
  377.     $itk_component(tabset) configure \
  378.         -selectbackground $itk_option(-background)
  379.     #_recomputeBorder
  380.     set _borderRecompute true
  381.     }
  382. }
  383.  
  384. # ----------------------------------------------------------------------
  385. # OPTION -tabforeground
  386. #
  387. # Specifies a foreground color to use for displaying tab labels 
  388. # when they are in their unselected state.
  389. # ----------------------------------------------------------------------
  390. configbody iwidgets::Tabnotebook::tabforeground {
  391.     
  392.     if {$itk_option(-tabforeground) != {}} {
  393.     $itk_component(tabset) configure \
  394.         -foreground $itk_option(-tabforeground)
  395.     }
  396. }
  397.  
  398. # ----------------------------------------------------------------------
  399. # OPTION -tabbackground
  400. #
  401. # Specifies a background color to use for displaying tab backgrounds 
  402. # when they are in their unselected state.
  403. # ----------------------------------------------------------------------
  404. configbody iwidgets::Tabnotebook::tabbackground {
  405.     
  406.     if {$itk_option(-tabbackground) != {}} {
  407.     $itk_component(tabset) configure \
  408.         -background $itk_option(-tabbackground)
  409.     }
  410. }
  411.  
  412. # ----------------------------------------------------------------------
  413. # OPTION -backdrop
  414. #
  415. # Specifies a background color to use when filling in the 
  416. # area behind the tabs.
  417. # ----------------------------------------------------------------------
  418. configbody iwidgets::Tabnotebook::backdrop {
  419.     
  420.     if {$itk_option(-backdrop) != {}} {
  421.     $itk_component(tabset) configure \
  422.         -backdrop $itk_option(-backdrop)
  423.     }
  424. }
  425.  
  426. # ----------------------------------------------------------------------
  427. # OPTION -margin
  428. #
  429. # Sets the backdrop margin between tab edge and backdrop edge
  430. # ----------------------------------------------------------------------
  431. configbody iwidgets::Tabnotebook::margin {
  432.     if {$itk_option(-margin) != {}} {
  433.     $itk_component(tabset) configure -margin $itk_option(-margin)
  434.     }
  435. }
  436.  
  437. # ----------------------------------------------------------------------
  438. # OPTION -tabborders
  439. #
  440. # Boolean that specifies whether to draw the borders of
  441. # the unselected tabs (tabs in background)
  442. # ----------------------------------------------------------------------
  443. configbody iwidgets::Tabnotebook::tabborders {
  444.     if {$itk_option(-tabborders) != {}} {
  445.     $itk_component(tabset) \
  446.         configure -tabborders $itk_option(-tabborders)
  447.     #_reconfigureTabset
  448.     set _tabsetReconfigure true
  449.     }
  450. }
  451.  
  452. # ----------------------------------------------------------------------
  453. # OPTION -bevelamount
  454. #
  455. # Specifies pixel size of tab corners. 0 means no corners.
  456. # ----------------------------------------------------------------------
  457. configbody iwidgets::Tabnotebook::bevelamount {
  458.     if {$itk_option(-bevelamount) != {}} {
  459.     $itk_component(tabset) \
  460.         configure -bevelamount $itk_option(-bevelamount)
  461.     #_reconfigureTabset
  462.     set _tabsetReconfigure true
  463.     }
  464. }
  465.  
  466. # ----------------------------------------------------------------------
  467. # OPTION -raiseselect
  468. #
  469. # Sets whether to raise selected tabs
  470. # ----------------------------------------------------------------------
  471. configbody iwidgets::Tabnotebook::raiseselect {
  472.     if {$itk_option(-raiseselect) != {}} {
  473.     $itk_component(tabset) \
  474.         configure -raiseselect $itk_option(-raiseselect)
  475.     #_reconfigureTabset
  476.     set _tabsetReconfigure true
  477.     }
  478. }
  479.  
  480. # ----------------------------------------------------------------------
  481. # OPTION -auto
  482. #
  483. # Determines whether pages are automatically unpacked and
  484. # packed when pages get selected.
  485. # ----------------------------------------------------------------------
  486. configbody iwidgets::Tabnotebook::auto {
  487.     if {$itk_option(-auto) != {}} {
  488.     $itk_component(notebook) configure -auto $itk_option(-auto)
  489.     }
  490. }
  491.  
  492. # ----------------------------------------------------------------------
  493. # OPTION -start
  494. # ----------------------------------------------------------------------
  495. configbody iwidgets::Tabnotebook::start {
  496.     
  497.     if {$itk_option(-start) != {}} {
  498.     $itk_component(tabset) configure \
  499.         -start $itk_option(-start)
  500.     #_reconfigureTabset
  501.     set _tabsetReconfigure true
  502.     }
  503. }
  504.  
  505. # ----------------------------------------------------------------------
  506. # OPTION -padx
  507. #
  508. # Specifies a non-negative value indicating how much extra space 
  509. # to request for a tab around its label in the X-direction. 
  510. # When computing how large a window it needs, the tab will add 
  511. # this amount to the width it would normally need The tab will 
  512. # end up with extra internal space to the left and right of its 
  513. # text label. This value may have any of the forms acceptable 
  514. # to Tk_GetPixels.
  515. # ----------------------------------------------------------------------
  516. configbody iwidgets::Tabnotebook::padx {
  517.     
  518.     if {$itk_option(-padx) != {}} {
  519.     $itk_component(tabset) configure -padx $itk_option(-padx)
  520.     #_reconfigureTabset
  521.     set _tabsetReconfigure true
  522.     }
  523. }
  524.  
  525. # ----------------------------------------------------------------------
  526. # OPTION -pady
  527. #
  528. # Specifies a non-negative value indicating how much extra space to 
  529. # request for a tab around its label in the Y-direction. When computing 
  530. # how large a window it needs, the tab will add this amount to the 
  531. # height it would normally need The tab will end up with extra internal 
  532. # space to the top and bot tom of its text label. This value may have 
  533. # any of the forms acceptable to Tk_GetPixels.
  534. # ----------------------------------------------------------------------
  535. configbody iwidgets::Tabnotebook::pady {
  536.     
  537.     if {$itk_option(-pady) != {}} {
  538.     $itk_component(tabset) configure -pady $itk_option(-pady)
  539.     #_reconfigureTabset
  540.     set _tabsetReconfigure true
  541.     }
  542. }
  543.  
  544. # ----------------------------------------------------------------------
  545. # OPTION -gap
  546. #
  547. # Specifies the amount of pixel space to place between each tab. 
  548. # Value may be any pixel offset value. In addition, a special keyword 
  549. # 'overlap' can be used as the value to achieve a standard overlap of 
  550. # tabs. This value may have any of the forms acceptable to Tk_GetPixels.
  551. # ----------------------------------------------------------------------
  552. configbody iwidgets::Tabnotebook::gap {
  553.     
  554.     if {$itk_option(-gap) != {}} {
  555.     $itk_component(tabset) configure -gap $itk_option(-gap)
  556.     #_reconfigureTabset
  557.     set _tabsetReconfigure true
  558.     }
  559. }
  560.  
  561. # ----------------------------------------------------------------------
  562. # OPTION -angle
  563. #
  564. # Specifes the angle of slope from the inner edge to the outer edge 
  565. # of the tab. An angle of 0 specifies square tabs. Valid ranges are 
  566. # 0 to 45 degrees inclusive. Default is 15 degrees. If tabPos is 
  567. # e or w, this option is ignored.
  568. # ----------------------------------------------------------------------
  569. configbody iwidgets::Tabnotebook::angle {
  570.     
  571.     if {$itk_option(-angle) != {}} {
  572.     $itk_component(tabset) configure -angle $itk_option(-angle)
  573.     #_reconfigureTabset
  574.     set _tabsetReconfigure true
  575.     }
  576. }
  577.  
  578. # ----------------------------------------------------------------------
  579. # OPTION -tabpos
  580. #
  581. # Specifies the location of the set of tabs in relation to the 
  582. # Notebook area. Must be n, s, e, or w.   Defaults to s.
  583. # ----------------------------------------------------------------------
  584. configbody iwidgets::Tabnotebook::tabpos {
  585.     
  586.     if {$itk_option(-tabpos) != {}} {
  587.     set _tabPos $itk_option(-tabpos)
  588.     $itk_component(tabset) configure \
  589.         -tabpos $itk_option(-tabpos)
  590.     pack forget $itk_component(canvas)
  591.     pack forget $itk_component(tabset)
  592.     pack forget $itk_component(notebook)
  593.     _pack $_tabPos
  594.     }
  595. }
  596.  
  597. # -------------------------------------------------------------
  598. # METHOD: configure ?<option>? ?<value> <option> <value>...?
  599. #
  600. # Acts as an addendum to the itk::Widget::configure method.
  601. #
  602. # Checks the _recomputeBorder flag and the _tabsetReconfigure to
  603. # determine what work has been batched to after the configure
  604. # -------------------------------------------------------------
  605. body iwidgets::Tabnotebook::configure { args } {
  606.     set result [eval itk::Archetype::configure $args]
  607.     
  608.     # check for flags then do update...
  609.     if { $_borderRecompute == "true" } { 
  610.     _recomputeBorder
  611.     set _borderRecompute false
  612.     }
  613.     
  614.     if { $_tabsetReconfigure == "true" } { 
  615.     _reconfigureTabset
  616.     set _tabsetReconfigure false
  617.     }
  618.     
  619.     return $result
  620.     
  621. }
  622.  
  623. # -------------------------------------------------------------
  624. # METHOD: add ?<option> <value>...?
  625. #
  626. # Creates a page and appends it to the list of pages.
  627. # processes pageconfigure for the page added.
  628. #
  629. # Returns the page's childsite frame
  630. # -------------------------------------------------------------
  631. body iwidgets::Tabnotebook::add { args } {
  632.     
  633.     # The args list should be an even # of params, if not then
  634.     # prob missing value for last item in args list. Signal error.
  635.     set len [llength $args]
  636.     if { [expr $len % 2] } {
  637.     error "value for \"[lindex $args [expr $len - 1]]\" missing"
  638.     }
  639.     
  640.     # pick out the notebook args
  641.     set nbArgs [eval _getArgs [list $_nbOptList] $args]
  642.     set pageName [eval $itk_component(notebook) add $nbArgs]
  643.     
  644.     # pick out the tabset args
  645.     set tsArgs [eval _getArgs [list $_tsOptList] $args]
  646.     eval $itk_component(tabset)   add $tsArgs
  647.     
  648.     set page [index end]
  649.     bind $pageName <Configure> \
  650.         [code $this _pageReconfigure $pageName $page %w %h]
  651.     return $pageName
  652. }
  653.  
  654. # -------------------------------------------------------------
  655. # METHOD: childsite ?<index>?
  656. #
  657. # If index is supplied, returns the child site widget 
  658. # corresponding to the page index.  If called with no arguments,
  659. # returns a list of all child sites
  660. # -------------------------------------------------------------
  661. body iwidgets::Tabnotebook::childsite { args } {
  662.     return [eval $itk_component(notebook) childsite $args]
  663. }
  664.  
  665. # -------------------------------------------------------------
  666. # METHOD: delete <index1> ?<index2>?
  667. #
  668. # Deletes a page or range of pages from the notebook
  669. # -------------------------------------------------------------
  670. body iwidgets::Tabnotebook::delete { args } {
  671.     eval $itk_component(notebook) delete $args
  672.     eval $itk_component(tabset)   delete $args
  673. }
  674.  
  675.  
  676. # -------------------------------------------------------------
  677. # METHOD: index <index>
  678. #
  679. # Given an index identifier returns the numeric index of the page
  680. # -------------------------------------------------------------
  681. body iwidgets::Tabnotebook::index { args } {
  682.     return [eval $itk_component(notebook) index $args]
  683. }
  684.  
  685. # -------------------------------------------------------------
  686. # METHOD: insert <index> ?<option> <value>...?
  687. #
  688. # Inserts a page before a index. The before page may
  689. # be specified as a label or a page position.
  690. #
  691. # Note that since we use eval to preserve the $args list,
  692. # we must use list around $index to keep it together as a unit
  693. #
  694. # Returns the name of the page's child site
  695. # -------------------------------------------------------------
  696. body iwidgets::Tabnotebook::insert { index args } {
  697.     
  698.     # pick out the notebook args
  699.     set nbArgs [eval _getArgs [list $_nbOptList] $args]
  700.     set pageName [eval $itk_component(notebook) insert [list $index] $nbArgs]
  701.     
  702.     # pick out the tabset args
  703.     set tsArgs [eval _getArgs [list $_tsOptList] $args]
  704.     eval $itk_component(tabset)   insert [list $index] $tsArgs
  705.     
  706.     return $pageName
  707.     
  708. }
  709.  
  710. # -------------------------------------------------------------
  711. # METHOD: prev
  712. #
  713. # Selects the previous page. Wraps at first back to last page.
  714. # -------------------------------------------------------------
  715. body iwidgets::Tabnotebook::prev { } {
  716.     eval $itk_component(notebook) prev
  717.     eval $itk_component(tabset)   prev
  718. }
  719.  
  720. # -------------------------------------------------------------
  721. # METHOD: next
  722. #
  723. # Selects the next page. Wraps at last back to first page.
  724. # -------------------------------------------------------------
  725. body iwidgets::Tabnotebook::next { } {
  726.     eval $itk_component(notebook) next
  727.     eval $itk_component(tabset)   next
  728. }
  729.  
  730. # -------------------------------------------------------------
  731. # METHOD: pageconfigure <index> ?<option> <value>...?
  732. #
  733. # Performs configure on a given page denoted by index.
  734. # Index may be a page number or a pattern matching the label
  735. # associated with a page.
  736. # -------------------------------------------------------------
  737. body iwidgets::Tabnotebook::pageconfigure { index args } {
  738.     
  739.     set nbArgs [eval _getArgs [list $_nbOptList] $args]
  740.     set tsArgs [eval _getArgs [list $_tsOptList] $args]
  741.     
  742.     set len [llength $args]
  743.     switch $len {
  744.     0 {
  745.         # Here is the case where they just want to query options
  746.         set nbConfig \
  747.             [eval $itk_component(notebook) pageconfigure $index $nbArgs]
  748.         set tsConfig \
  749.             [eval $itk_component(tabset)   tabconfigure $index $tsArgs]
  750.         #
  751.         # BUG: this currently just concatenates a page and a tab's
  752.         # config lists together... We should bias to the Page
  753.         # since this is what we are using as primary when both??
  754.         #
  755.         # a pageconfigure index -background will return something like:
  756.         # -background background Background #9D008FF583C1 gray70 \
  757.             # -background background background white gray 70
  758.         #
  759.         return [concat $nbConfig $tsConfig]
  760.     }
  761.     1 {
  762.         # Here is the case where they are asking for only one
  763.         # one options value... need to figure out which one
  764.         # (page or tab) can service this. Then only return
  765.         # that one's result.
  766.         
  767.         if { [llength $nbArgs] != 0 } {
  768.         return [eval $itk_component(notebook) \
  769.             pageconfigure $index $nbArgs]
  770.         } elseif { [llength $tsArgs] != 0 } {
  771.         return [eval $itk_component(tabset) \
  772.             tabconfigure $index $tsArgs]
  773.         } else {
  774.         error "unknown option \"$args\""
  775.         }
  776.         
  777.     }
  778.     default {
  779.         
  780.         # pick out the notebook args
  781.         set nbConfig \
  782.             [eval $itk_component(notebook) \
  783.             pageconfigure [list $index] $nbArgs]
  784.         
  785.         # pick out the tabset args
  786.         set tsConfig \
  787.             [eval $itk_component(tabset)   \
  788.             tabconfigure [list $index] $tsArgs]
  789.         
  790.         return ""
  791.         #return [concat $nbConfig $tsConfig]
  792.         
  793.     }
  794.     }
  795. }
  796.  
  797. # -------------------------------------------------------------
  798. # METHOD: select index
  799. #
  800. # Select a page by index
  801. # -------------------------------------------------------------
  802. body iwidgets::Tabnotebook::select { index } {
  803.     $itk_component(notebook) select $index
  804.     $itk_component(tabset)   select $index
  805. }
  806.  
  807. # -------------------------------------------------------------
  808. # METHOD: view
  809. #
  810. # Return the current page
  811. #
  812. #         view index
  813. #
  814. # Selects the page denoted by index to be current page
  815. #
  816. #      view 'moveto' fraction
  817. #
  818. # Selects the page by using fraction amount
  819. #
  820. #      view 'scroll' num what
  821. #
  822. # Selects the page by using num as indicator of next or
  823. # previous
  824. #
  825. # -------------------------------------------------------------
  826. body iwidgets::Tabnotebook::view { args } {
  827.     eval $itk_component(notebook) view $args
  828.     $itk_component(tabset) select [index select]
  829. }
  830.  
  831. # -------------------------------------------------------------
  832. # PRIVATE METHOD: _getArgs
  833. #
  834. # Given an optList returned from a configure on an object and
  835. # given a candidate argument list, peruse throught the optList
  836. # and build a new argument list with only those options found
  837. # in optList.
  838. #
  839. # This is used by the add, insert, and pageconfigure methods.
  840. # It is useful for a container kind of class like Tabnotebook
  841. # to be smart about args it gets for its concept of a "page"
  842. # which is actually a Notebook Page and a Tabset Tab.
  843. #
  844. # -------------------------------------------------------------
  845. body iwidgets::Tabnotebook::_getArgs { optList args } {
  846.     
  847.     set len [llength $args]
  848.     
  849.     set retArgs {}
  850.     
  851.     for {set i 0} {$i < $len} {incr i} {
  852.     # get the option for this pair
  853.     set opt [lindex $args $i]
  854.     
  855.     # move ahead to the value
  856.     incr i
  857.     
  858.     # option exists!
  859.     if { [lsearch -exact $optList $opt] != -1} {
  860.         lappend retArgs $opt
  861.         if {$i < [llength $args]} {
  862.         lappend retArgs [lindex $args $i]
  863.         }
  864.         # option does not exist
  865.     }
  866.     }
  867.     
  868.     return $retArgs
  869. }
  870.  
  871. # -------------------------------------------------------------
  872. # PROTECTED METHOD: _reconfigureTabset
  873. #
  874. # bound to the tabset reconfigure... We call our canvas 
  875. # reconfigure as if the canvas resized, it then configures
  876. # the tabset correctly.
  877. # -------------------------------------------------------------
  878. body iwidgets::Tabnotebook::_reconfigureTabset { } {
  879.     
  880.     _canvasReconfigure $_canvasWidth $_canvasHeight
  881.     
  882. }
  883.  
  884. # -------------------------------------------------------------
  885. # PROTECTED METHOD: _canvasReconfigure
  886. #
  887. # bound to window Reconfigure event of the canvas
  888. # keeps the tabset area stretched in its major dimension.
  889. # -------------------------------------------------------------
  890. body iwidgets::Tabnotebook::_canvasReconfigure { wid hgt } {
  891.     
  892.     if { $_tabPos == "n" || $_tabPos == "s" } {
  893.     $itk_component(tabset) configure -width $wid
  894.     } else {
  895.     $itk_component(tabset) configure -height $hgt
  896.     }
  897.     
  898.     set _canvasWidth $wid
  899.     set _canvasHeight $hgt
  900.     
  901.     _redrawBorder $wid $hgt 
  902.     
  903. }
  904.  
  905. # -------------------------------------------------------------
  906. # PRIVATE METHOD: _redrawBorder
  907. #
  908. # called by methods when the packing changes, borderwidths, etc.
  909. # and height
  910. # -------------------------------------------------------------
  911. body iwidgets::Tabnotebook::_redrawBorder { wid hgt } {
  912.     
  913.     # Get the top of the Notebook area...
  914.     
  915.     set nbTop [winfo y $itk_component(notebook)]
  916.     set canTop [expr $nbTop - $itk_option(-borderwidth)]
  917.     
  918.     $itk_component(canvas) delete BORDER
  919.     if { $itk_option(-borderwidth) > 0 } {
  920.     
  921.     # For south, east, and west -- draw the top/north edge
  922.     if { $_tabPos != "n" } {
  923.         $itk_component(canvas) create line \
  924.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  925.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  926.             $wid \
  927.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  928.             -width $itk_option(-borderwidth) \
  929.             -fill [iwidgets::colors::topShadow $itk_option(-background)] \
  930.             -tags BORDER
  931.     }
  932.     
  933.     # For north, east, and west -- draw the bottom/south edge
  934.     if { $_tabPos != "s" } {
  935.         $itk_component(canvas) create line \
  936.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  937.             [expr floor($hgt - ($itk_option(-borderwidth)/2.0))] \
  938.             [expr floor($wid - ($itk_option(-borderwidth)/2.0))] \
  939.             [expr floor($hgt - ($itk_option(-borderwidth)/2.0))] \
  940.             -width $itk_option(-borderwidth) \
  941.             -fill [iwidgets::colors::bottomShadow $itk_option(-background)] \
  942.             -tags BORDER
  943.     } 
  944.     
  945.     # For north, south, and east -- draw the left/west edge
  946.     if { $_tabPos != "w" } {
  947.         $itk_component(canvas) create line \
  948.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  949.             0 \
  950.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  951.             $hgt \
  952.             -width $itk_option(-borderwidth) \
  953.             -fill [iwidgets::colors::topShadow $itk_option(-background)] \
  954.             -tags BORDER
  955.     }
  956.     
  957.     # For north, south, and west -- draw the right/east edge
  958.     if { $_tabPos != "e" } {
  959.         $itk_component(canvas) create line \
  960.             [expr floor($wid - ($itk_option(-borderwidth)/2.0))] \
  961.             [expr floor(0 + ($itk_option(-borderwidth)/2.0))] \
  962.             [expr floor($wid - ($itk_option(-borderwidth)/2.0))] \
  963.             $hgt \
  964.             -width $itk_option(-borderwidth) \
  965.             -fill [iwidgets::colors::bottomShadow $itk_option(-background)] \
  966.             -tags BORDER
  967.     }
  968.     }
  969.     
  970. }
  971.  
  972. # -------------------------------------------------------------
  973. # PRIVATE METHOD: _recomputeBorder
  974. #
  975. # Based on current width and height of our canvas, repacks
  976. # the notebook with padding for borderwidth, and calls
  977. # redraw border method 
  978. # -------------------------------------------------------------
  979. body iwidgets::Tabnotebook::_recomputeBorder { } {
  980.     
  981.     set wid [winfo width $itk_component(canvas)]
  982.     set hgt [winfo height $itk_component(canvas)]
  983.     
  984.     _pack $_tabPos
  985.     _redrawBorder $wid $hgt
  986. }
  987.  
  988. # -------------------------------------------------------------
  989. # PROTECTED METHOD: _pageReconfigure
  990. #
  991. # This method will eventually reconfigure the tab notebook's 
  992. # notebook area to contain the resized child site
  993. # -------------------------------------------------------------
  994. body iwidgets::Tabnotebook::_pageReconfigure { pageName page wid hgt } {
  995.     
  996. }
  997.  
  998. # -------------------------------------------------------------
  999. # PRIVATE METHOD: _pack
  1000. #
  1001. # This method packs the notebook and tabset correctly according
  1002. # to the current $tabPos
  1003. # -------------------------------------------------------------
  1004. body iwidgets::Tabnotebook::_pack { tabPos } {
  1005.     
  1006.     pack $itk_component(canvas) -fill both -expand yes 
  1007.     pack propagate $itk_component(canvas) no
  1008.     
  1009.     switch $tabPos {
  1010.     n {
  1011.         # north
  1012.         pack $itk_component(tabset) \
  1013.             -anchor nw \
  1014.             -fill x \
  1015.             -expand no
  1016.         pack $itk_component(notebook) \
  1017.             -fill both \
  1018.             -expand yes \
  1019.             -padx $itk_option(-borderwidth) \
  1020.             -pady $itk_option(-borderwidth) \
  1021.             -side bottom 
  1022.     }
  1023.     s {
  1024.         # south
  1025.         pack $itk_component(notebook) \
  1026.             -anchor nw \
  1027.             -fill both \
  1028.             -expand yes \
  1029.             -padx $itk_option(-borderwidth) \
  1030.             -pady $itk_option(-borderwidth)
  1031.         
  1032.         pack $itk_component(tabset) \
  1033.             -side left \
  1034.             -fill x \
  1035.             -expand yes
  1036.     }
  1037.     w {
  1038.         # west
  1039.         pack $itk_component(tabset) \
  1040.             -anchor nw \
  1041.             -side left \
  1042.             -fill y \
  1043.             -expand no
  1044.         pack $itk_component(notebook) \
  1045.             -anchor nw \
  1046.             -side left \
  1047.             -fill both \
  1048.             -expand yes \
  1049.             -padx $itk_option(-borderwidth) \
  1050.             -pady $itk_option(-borderwidth)
  1051.         
  1052.     }
  1053.     e {
  1054.         # east
  1055.         pack $itk_component(notebook) \
  1056.             -side left \
  1057.             -anchor nw \
  1058.             -fill both \
  1059.             -expand yes \
  1060.             -padx $itk_option(-borderwidth) \
  1061.             -pady $itk_option(-borderwidth)
  1062.         
  1063.         pack $itk_component(tabset) \
  1064.             -fill y \
  1065.             -expand yes
  1066.     }
  1067.     }
  1068.     
  1069.     set wid [winfo width $itk_component(canvas)]
  1070.     set hgt [winfo height $itk_component(canvas)]
  1071.     
  1072.     _redrawBorder $wid $hgt
  1073. }
  1074.