home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / dialogshell < prev    next >
Text File  |  2003-09-01  |  971b  |  36 lines
  1. # ----------------------------------------------------------------------
  2. #  DEMO: dialogshell in [incr Widgets]
  3. # ----------------------------------------------------------------------
  4. package require Iwidgets 4.0
  5.  
  6. iwidgets::radiobox .rb -labeltext "Use modality to\nlock up your\napplication:"
  7. pack .rb -padx 4 -pady 4
  8.  
  9. .rb add none -text "-modality none"
  10. .rb add application -text "-modality application"
  11. .rb add global -text "-modality global"
  12. .rb select none
  13.  
  14. button .activate -text "Push Me" -command {
  15.     .ds configure -modality [.rb get]
  16.     .ds activate
  17. }
  18. pack .activate
  19.  
  20. #
  21. # Build a generic dialog
  22. #
  23. iwidgets::dialogshell .ds
  24.  
  25. .ds add dismiss -text "Dismiss" -command {.ds deactivate}
  26. .ds default dismiss
  27.  
  28. #
  29. # Add something to the top of the dialog...
  30. #
  31. set win [.ds childsite]
  32. label $win.ex -text "Minimal Dialog\n(put your widgets here)" \
  33.     -background black -foreground white \
  34.     -width 40 -height 5
  35. pack $win.ex -expand yes -fill both -padx 4 -pady 4
  36.