home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / rexx / menu_dosshell.edge < prev    next >
Text File  |  1994-10-23  |  1KB  |  39 lines
  1. /*
  2. ** $VER: OpenDOSShell.edge 1.2 (Sunday 08-Aug-93 02:49:57)
  3. **
  4. ** Skript, das eine Shell-Console auf dem Edge-Bildschirm öffnet. Das
  5. ** aktuelle Verzeichnis wird von Edge übernommen, wenn der Pfad auf null
  6. ** steht. Die Fenster-Position/Größe/Titel wird aus der Variable _GE_User0,
  7. ** die Shell-Startup aus _GE_User1 ausgelesen.
  8. ** 
  9. ** Geschrieben von Thomas Liljetoft, deutsche Kommentare von Thomas Heinze
  10. */
  11.  
  12.  
  13. options results
  14.  
  15. 'getenvvar' _ge_screenname        /* Name des aktuellen Bildschirms auslesen */
  16. screenname = result
  17.  
  18. 'getenvvar' _fe_path                /* Pfad der aktuellen Datei auslesen */
  19. path = result
  20.  
  21. 'getenvvar' _ge_user0            /* Fenster-Position/Größe/Titel auslesen */
  22. window = result
  23. if length(window) = 0 then window = "20/20/600/50/AmigaShell/close"
  24.  
  25. 'getenvvar' _ge_user1            /* Startup-Datei auslesen */
  26. startup = result
  27.  
  28. /* zum aktuellen Pfad wechseln */
  29. call pragma(d,path)
  30.  
  31. /* Eine Shell-Console öffnen */
  32.  
  33. if length(startup) ~= 0 then
  34.     address command newshell '"'"con:"window"/SCREEN "screenname'"' from startup
  35. else
  36.     address command newshell '"'"con:"window"/SCREEN "screenname'"'
  37.  
  38. exit(RC)
  39.