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 / pane.itk < prev    next >
Text File  |  1999-02-24  |  5KB  |  135 lines
  1. #
  2. # Paned
  3. # ----------------------------------------------------------------------
  4. # Implements a pane for a paned window widget.  The pane is itself a 
  5. # frame with a child site for other widgets.  The pane class performs
  6. # basic option management.
  7. #
  8. # ----------------------------------------------------------------------
  9. #  AUTHOR: Mark L. Ulferts               EMAIL: mulferts@spd.dsccc.com
  10. #
  11. #  @(#) $Id: pane.itk,v 1.1 1998/07/27 18:49:42 stanton Exp $
  12. # ----------------------------------------------------------------------
  13. #            Copyright (c) 1995 DSC Technologies Corporation
  14. # ======================================================================
  15. # Permission to use, copy, modify, distribute and license this software 
  16. # and its documentation for any purpose, and without fee or written 
  17. # agreement with DSC, is hereby granted, provided that the above copyright 
  18. # notice appears in all copies and that both the copyright notice and 
  19. # warranty disclaimer below appear in supporting documentation, and that 
  20. # the names of DSC Technologies Corporation or DSC Communications 
  21. # Corporation not be used in advertising or publicity pertaining to the 
  22. # software without specific, written prior permission.
  23. # 
  24. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  25. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  26. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  27. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  28. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  29. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  30. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  31. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  32. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  33. # SOFTWARE.
  34. # ======================================================================
  35.  
  36. #
  37. # Default resources.
  38. #
  39. option add *Pane.minimum 10 widgetDefault
  40. option add *Pane.margin 8 widgetDefault
  41.  
  42. #
  43. # Usual options.
  44. #
  45. itk::usual Pane {
  46.     keep -background -cursor
  47. }
  48.  
  49. # ------------------------------------------------------------------
  50. #                               PANE
  51. # ------------------------------------------------------------------
  52. class iwidgets::Pane {
  53.     inherit itk::Widget
  54.  
  55.     constructor {args} {}
  56.  
  57.     itk_option define -minimum minimum Minimum 10
  58.     itk_option define -margin margin Margin 8
  59.  
  60.     public method childSite {} {}
  61. }
  62.  
  63. #
  64. # Provide a lowercased access method for the Pane class.
  65. # 
  66. proc ::iwidgets::pane {pathName args} {
  67.     uplevel ::iwidgets::Pane $pathName $args
  68. }
  69.  
  70. # ------------------------------------------------------------------
  71. #                        CONSTRUCTOR
  72. # ------------------------------------------------------------------
  73. body iwidgets::Pane::constructor {args} {
  74.     # 
  75.     # Create the pane childsite.
  76.     #
  77.     itk_component add childsite {
  78.     frame $itk_interior.childsite 
  79.     } {
  80.     keep -background -cursor
  81.     }
  82.     pack $itk_component(childsite) -fill both -expand yes
  83.     
  84.     #
  85.     # Set the itk_interior variable to be the childsite for derived 
  86.     # classes.
  87.     #
  88.     set itk_interior $itk_component(childsite)
  89.     
  90.     eval itk_initialize $args
  91. }
  92.  
  93. # ------------------------------------------------------------------
  94. #                             OPTIONS
  95. # ------------------------------------------------------------------
  96.  
  97. # ------------------------------------------------------------------
  98. # OPTION: -minimum
  99. #
  100. # Specifies the minimum size that the pane may reach.
  101. # ------------------------------------------------------------------
  102. configbody iwidgets::Pane::minimum {
  103.     set pixels \
  104.         [winfo pixels $itk_component(hull) $itk_option(-minimum)]
  105.     
  106.     set $itk_option(-minimum) $pixels
  107. }
  108.  
  109. # ------------------------------------------------------------------
  110. # OPTION: -margin
  111. #
  112. # Specifies the border distance between the pane and pane contents.
  113. # This is done by setting the borderwidth of the pane to the margin.
  114. # ------------------------------------------------------------------
  115. configbody iwidgets::Pane::margin {
  116.     set pixels [winfo pixels $itk_component(hull) $itk_option(-margin)]
  117.     set itk_option(-margin) $pixels
  118.     
  119.     $itk_component(childsite) configure \
  120.         -borderwidth $itk_option(-margin)
  121. }
  122.  
  123. # ------------------------------------------------------------------
  124. #                            METHODS
  125. # ------------------------------------------------------------------
  126.  
  127. # ------------------------------------------------------------------
  128. # METHOD: childSite
  129. #
  130. # Return the pane child site path name.
  131. # ------------------------------------------------------------------
  132. body iwidgets::Pane::childSite {} {
  133.     return $itk_component(childsite)
  134. }
  135.