home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / u_desk.tcl < prev    next >
Encoding:
Text File  |  1996-12-05  |  1.3 KB  |  39 lines
  1. # Redefine startCommandWithOptions, so a window title can be specified.
  2. # Default title is 'Options..'
  3. # Can be used by existing procs, but, is used by creproj.tcl (creat project).
  4. method WmtTool::startCommandWithOptions {this type cmd endCmd msg upd busy {dir ""} {title "Options.."}} {
  5.     # Ask options first before starting command
  6.     set box $this.startCommandWithOptions
  7.     ClassMaker::extend EntryDialog OptionsEntryDialog \
  8.     {type cmdBefore cmdAfter endCmd msg upd busy dir}
  9.     # find the $OPTIONS string to determine the place of the options
  10.     set index [string first \$OPTIONS "$cmd"]
  11.     set cmdBefore "$cmd"
  12.     set cmdAfter ""
  13.     if {$index != -1} {
  14.     set cmdBefore [string range "$cmd" 0 [expr {$index -1}]]
  15.     set index [expr { $index + 9}]
  16.     set cmdAfter [string range "$cmd" $index end]
  17.     }
  18.     OptionsEntryDialog new $box \
  19.     -modal yes \
  20.     -title $title \
  21.     -type $type \
  22.     -cmdBefore $cmdBefore \
  23.     -cmdAfter $cmdAfter \
  24.     -endCmd $endCmd \
  25.     -msg $msg \
  26.     -upd $upd \
  27.     -busy $busy \
  28.     -dir $dir \
  29.     -cancelPressed {%this delete} \
  30.     -okPressed {
  31.         $wmttoolObj startCommand "[%this type]" \
  32.         "[%this cmdBefore] [%this entry] [%this cmdAfter]" "[%this endCmd]"\
  33.         "[%this msg]" "[%this upd]" "[%this busy]" "[%this dir]"
  34.         %this delete
  35.     }
  36.     $box delHelpButton
  37.     $box popUp
  38. }
  39.