home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / shiftwin.sit / Shift Window / card_3478.txt < prev    next >
Encoding:
Text File  |  1988-08-14  |  2.3 KB  |  80 lines
  1. -- card: 3478 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2619
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 7
  9. ----- text -----
  10. Shift Window
  11.  
  12. -- part contents for background part 1
  13. ----- text -----
  14. --SHIFT WINDOW (for MultiFinder users) [Mac Plus, SE, II]
  15. --These scripts move the card window 
  16. --to the bottom of the Mac screen, so you can see the Finder.
  17. --After installing the scripts, you 
  18. --just Shift-Click anywhere on the background of your Home card
  19. --
  20. --Installation Procedure:
  21. --There are two scripts here. 
  22. --1.  Copy the first one and paste it
  23. --     into the Background Script of your Home card. Click OK.
  24. --2.  Copy the second one and paste it into the Stack script of
  25. --┬á┬á┬áyour Home stack, immediately after the line: on startUp.
  26. --3.┬áQuit HyperCard and run it again. 
  27. --4.  Now, whenever you Shift-Click on the background of your
  28. --┬á┬á Home card, the card window will jump to the bottom of the
  29. --┬á┬á screen out of your way so you can work on other windows.
  30. --┬á┬á To get it back, just Shift-Click again on the background of
  31. --┬á┬á the Home Card (not on the Title Bar).
  32.  
  33. --Script 1 (Paste this into the Background script of your Home Card)
  34.  
  35. on mouseUp
  36.   global defaultCWLoc
  37.   --defaultCWLoc (default card window location) is initialized
  38.   --in the Home Stack script and handled by "onStartup".
  39.   if the shiftKey is not down then
  40.     pass mouseUp --just in case another object needs the mouseUp
  41.     exit mouseUp
  42.   end if
  43.   if defaultCWLoc is "0,0" then put "0,335" into outaMyWay --Mac Plus & SE
  44.   if defaultCWLoc is "64,69" then put "64,473" into outaMyWay -- Mac II
  45.   get loc of card window
  46.   if it is not defaultCWLoc then
  47.     show card window at defaultCWLoc
  48.     exit mouseUp
  49.   end if
  50.   show card window at outaMyWay --from which you Shift-Click in the
  51.   -- background of the Home card to get it back!
  52. end mouseUp
  53. --end of the Shift Window script that goes into the Background
  54. --script of your Home card. 
  55.  
  56. --***********************
  57.  
  58. -- Script 2:  Now, paste the following two lines into
  59. --the Stack script of your Home Stack, immediately after the
  60. --words "on startUp"
  61.  
  62.   global defaultCWLoc -- for Shift Window
  63.   put the loc of card window into defaultCWLoc
  64.  
  65. --End of the Shift Window scripts
  66. --Paul Foraker x5172
  67.  
  68.  
  69.  
  70.  
  71.  
  72. -- part contents for background part 2
  73. ----- text -----
  74. Shift Window scripts
  75. (revised for Mac Plus,
  76. Mac SE, and Mac II)
  77.  
  78.  
  79.  
  80.