home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / importdiag.tcl < prev    next >
Encoding:
Text File  |  1997-11-21  |  1.6 KB  |  64 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c)    Cayenne Software Inc. 1997
  4. #
  5. #    File:         @(#)importdiag.tcl    /main/titanic/2
  6. #    Description:     Class to import tcl files into ObjectTeam
  7. #
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)importdiag.tcl    /main/titanic/2 21 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. if {![lempty [info procs ImportDiagramDialog::doImport]]} {
  12.     return
  13. }
  14.  
  15. require platform.tcl
  16.  
  17. proc ImportDiagramDialog::doImport {selectedSet} {
  18.     set tmpFile [BasicFS::tmpFile]
  19.     if {[catch {set fid [open $tmpFile w]} reason]} {
  20.     wmtkerror $reason
  21.     return
  22.     }
  23.  
  24.     foreach file $selectedSet {
  25.     # handle file name on MS Windows platform
  26.     set fileName [list $file]
  27.     puts $fid $fileName
  28.     }
  29.  
  30.     close $fid
  31.  
  32.     set script "[m4_path_name bin otsh$EXE_EXT] \
  33.         -b import \
  34.         -f [m4_path_name tcl importitfe.tcl] \
  35.         -- $tmpFile"
  36.     .main startCommand mtool $script "" "Starting OTSh..." {1 0} 0
  37. }
  38.  
  39. proc ImportDiagramDialog::startFileChooser {} {
  40.     uplevel #0 {
  41.     require classmaker.tcl
  42.     }
  43.  
  44.     set box .main.ImportDiagramDialog::fileChooser
  45.     if {![isCommand $box]} {
  46.     set filter "*.tcl"
  47.     if {$win95} {
  48.         set filter "TCL Files (*.tcl)|*.tcl|All Files (*.*)|*|"
  49.     }
  50.     FileChooser new $box \
  51.         -directory        [M4Login::getHomeDir] \
  52.         -selectionPolicy    EXTENDED \
  53.         -title        "Import" \
  54.         -filter        $filter \
  55.         -cancelPressed    {%this delete} \
  56.         -okPressed        {
  57.         ImportDiagramDialog::doImport \
  58.             [.main.ImportDiagramDialog::fileChooser selectedSet]
  59.         }
  60.     $box delHelpButton
  61.     }
  62.     $box popUp
  63. }
  64.