home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / LabFrame.tcl < prev    next >
Text File  |  2001-12-08  |  1KB  |  50 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: LabFrame.tcl,v 1.1.1.1.2.2 2001/12/09 02:54:02 idiscovery Exp $
  4. #
  5. # LabFrame.tcl --
  6. #
  7. #     TixLabelFrame Widget: a frame box with a label
  8. #
  9. # Copyright (c) 1993-1999 Ioi Kim Lam.
  10. # Copyright (c) 2000-2001 Tix Project Group.
  11. #
  12. # See the file "license.terms" for information on usage and redistribution
  13. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14. #
  15.  
  16. tixWidgetClass tixLabelFrame {
  17.     -classname TixLabelFrame
  18.     -superclass tixLabelWidget
  19.     -method {
  20.     frame
  21.     }
  22.     -flag {}
  23.     -static {}
  24.     -configspec {
  25.     {-labelside labelSide LabelSide acrosstop}
  26.     {-padx padX Pad 2}
  27.     {-pady padY Pad 2}
  28.     }
  29.     -alias {}
  30.     -default {
  31.     {*Label.anchor          c}
  32.     {.frame.borderWidth    2}
  33.     {.frame.relief        groove}
  34.     {.border.borderWidth    2}
  35.     {.border.relief        groove}
  36.     {.borderWidth          2}
  37.     {.padX              2}
  38.     {.padY              2}
  39.     {.anchor          sw}
  40.     }
  41. }
  42.  
  43. #----------------------------------------------------------------------
  44. # Public methods
  45. #----------------------------------------------------------------------
  46. proc tixLabelFrame:frame {w args} {
  47.  
  48.     return [eval tixCallMethod $w subwidget frame $args]
  49. }
  50.