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 / Shell.tcl < prev    next >
Text File  |  2001-11-03  |  1KB  |  48 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: Shell.tcl,v 1.1.1.1.2.1 2001/11/03 07:22:44 idiscovery Exp $
  4. #
  5. # Shell.tcl --
  6. #
  7. #    This is the base class to all shell widget
  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. #
  17. # type : normal, transient, overrideredirect
  18. #
  19. tixWidgetClass tixShell {
  20.     -superclass tixPrimitive
  21.     -classname  TixShell
  22.     -flag {
  23.     -title
  24.     }
  25.     -configspec {
  26.     {-title title Title ""}
  27.     }
  28.     -forcecall {
  29.     -title
  30.     }
  31. }
  32.  
  33. #----------------------------------------------------------------------
  34. # ClassInitialization:
  35. #----------------------------------------------------------------------
  36. proc tixShell:CreateRootWidget {w args} {
  37.     upvar #0 $w data
  38.     upvar #0 $data(className) classRec
  39.  
  40.     toplevel $w -class $data(ClassName)
  41.     wm transient $w ""
  42.     wm withdraw $w
  43. }
  44.  
  45. proc tixShell:config-title {w value} {
  46.     wm title $w $value
  47. }
  48.