home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / libplugin / splash.tcl < prev    next >
Text File  |  2000-11-02  |  1KB  |  43 lines
  1.  
  2. namespace eval ::splash:: {
  3.     set percent 0
  4. }
  5.  
  6. # splash::add --
  7. #    Adds message to the splash screen
  8. #
  9. # text  text to display
  10. # args  optional icon argumnet
  11.  
  12. proc ::splash::init {} {
  13.     variable text
  14.     set text "Welcome to the Comanche \nOpen-source management console\n"
  15.     append text "Visit us on the web at \nhttp://www.comanche.org\n"
  16.     append text "\nComanche is sponsored by Covalent \nhttp://www.covalent.net"
  17.  
  18.     wm withdraw .
  19.     ProgressDlg .pd -title Comanche -parent .  \
  20.     -textvariable ::splash::text -variable ::splash::percent -width 40 -height 12
  21.     centerScreen .pd
  22.     update idletasks
  23. }
  24.  
  25. proc ::splash::add { newtext args } {
  26.     variable text
  27.     variable percent
  28.     incr percent 5
  29.     #set text "Welcome to the Comanche open source management console\n"
  30.     #append text "Visit us on the web at http://comanche.org\n"
  31.     #append text "Comanche is sponsored by Covalent http://covalent.net\n\n"
  32.     #append text $newtext
  33.     update idletasks
  34. }
  35.  
  36. proc ::splash::end {} {
  37.     Dialog::enddialog .pd 0
  38.     destroy .pd
  39.     #grab release .pd
  40.     #grab set .
  41.     wm deiconify .
  42. }
  43.