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 / SimpDlg.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: SimpDlg.tcl,v 1.1.1.1.2.1 2001/11/03 07:23:17 idiscovery Exp $
  4. #
  5. # SimpDlg.tcl --
  6. #
  7. #    This file implements Simple Dialog widgets
  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 tixSimpleDialog {
  17.     -classname TixSimpleDialog
  18.     -superclass tixDialogShell
  19.     -method {}
  20.     -flag   {
  21.     -buttons -message -type
  22.     }
  23.     -configspec {
  24.     {-buttons buttons Buttons ""}
  25.     {-message message Message ""}
  26.     {-type type Type info}
  27.     }
  28. }
  29.  
  30. proc tixSimpleDialog:ConstructWidget {w} {
  31.     upvar #0 $w data
  32.  
  33.     tixChainMethod $w ConstructWidget
  34.  
  35.     frame $w.top
  36.  
  37.     label $w.top.icon -image [tix getimage $data(-type)]
  38.     label $w.top.message -text $data(-message)
  39.  
  40.     pack $w.top.icon    -side left -padx 20 -pady 50 -anchor c
  41.     pack $w.top.message -side left -padx 10 -pady 50 -anchor c
  42.  
  43.     frame $w.bot
  44.  
  45.     pack $w.bot -side bottom -fill x
  46.     pack $w.top -side top -expand yes -fill both
  47. }
  48.