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 / StatBar.tcl < prev    next >
Text File  |  2001-11-03  |  1KB  |  57 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: StatBar.tcl,v 1.1.1.1.2.1 2001/11/03 07:23:17 idiscovery Exp $
  4. #
  5. # StatBar.tcl --
  6. #
  7. #    The StatusBar of an application.
  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 tixStatusBar {
  17.     -classname TixStatusBar
  18.     -superclass tixPrimitive
  19.     -method {
  20.     }
  21.     -flag {
  22.     -fields
  23.     }
  24.     -static {
  25.     -fields
  26.     }
  27.     -configspec {
  28.     {-fields fields Fields ""}
  29.     }
  30. }
  31.  
  32. #--------------------------
  33. # Create Widget
  34. #--------------------------
  35. proc tixStatusBar:ConstructWidget {w} {
  36.     upvar #0 $w data
  37.  
  38.     tixChainMethod $w ConstructWidget
  39.  
  40.     foreach field $data(-fields) {
  41.     set name  [lindex $field 0]
  42.     set width [lindex $field 1]
  43.  
  44.     set data(w:width) [label $w.$name -width $width]
  45.     }
  46. }
  47.  
  48.  
  49. #----------------------------------------------------------------------
  50. #                         Public methods
  51. #----------------------------------------------------------------------
  52.  
  53.  
  54. #----------------------------------------------------------------------
  55. #                         Internal commands
  56. #----------------------------------------------------------------------
  57.