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 / WInfo.tcl < prev   
Text File  |  2001-11-03  |  1KB  |  41 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: WInfo.tcl,v 1.1.1.1.2.1 2001/11/03 07:26:10 idiscovery Exp $
  4. #
  5. # WInfo.tcl --
  6. #
  7. #    This file implements the command tixWInfo, which return various
  8. #    information about a Tix widget.
  9. #
  10. # Copyright (c) 1993-1999 Ioi Kim Lam.
  11. # Copyright (c) 2000-2001 Tix Project Group.
  12. #
  13. # See the file "license.terms" for information on usage and redistribution
  14. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  15. #
  16.  
  17. proc tixWInfo {option w} {
  18.     upvar #0 $w data
  19.  
  20.     case $option {
  21.     tix {
  22.         # Is this a Tix widget?
  23.         #
  24.         return [info exists data(className)]
  25.     }
  26.     compound {
  27.         # Is this a compound widget?
  28.         #    Currently this is the same as "tixWinfo tix" because only
  29.         # Tix compilant compound widgets are supported
  30.         return [info exists data(className)]
  31.     }
  32.     class {
  33.         if {[info exists data(className)]} {
  34.         return $data(className)
  35.         } else {
  36.         return ""
  37.         }
  38.     }
  39.     }
  40. }
  41.