home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / byndhypr.sit / OsmoIsland / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-12-15  |  3KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2956</cardID>
  8.     <listID>3936</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>------------------------------------------------------------------------  Cool Revelations stack!----  Cyan ΓÇó Spokane, Washington ΓÇó (509) 238-6789----  All scripts are copyright ┬⌐ 1990 by Cyan. All rights reserved.--  You may use these scripts in your own non-commercial stacks.------------------------------------------------------------------------on openStackhide menubarend openStackon resumeStackhide menubarend resumeStackon closeStackif the windows contains "View" thenclose window "View"end ifend closeStackon suspendStackif the windows contains "View" thenclose window "View"end ifend suspendStackfunction ScaleAdjust theScale, thePointadd trunc(40-(40 / (2 ^ theScale))) to first item of thePointadd trunc(40-(40 / (2 ^ theScale))) to second item of thePointreturn thePointend ScaleAdjuston idleglobal windowlocif the windows contains "View" thenput the loc of the card window into newlocif newloc Γëá windowloc thenput the scale of window "View" into theScaleget the scroll of window "View"subtract trunc(40-(40 / (2 ^ theScale))) from first item of itsubtract trunc(40-(40 / (2 ^ theScale))) from second item of itadd (first item of windowloc - first item of newloc) to first item of itadd (second item of windowloc - second item of newloc) to second item of itif theScale is not 0 then get ScaleAdjust(theScale,it)set the scroll of window "View" to itput newloc into windowlocend ifend ifend idleon adjustWindowput the scale of window "View" into theScaleget the loc of window "View"if theScale is not 0 then get ScaleAdjust(theScale,it)set the scroll of window "View" to itend adjustWindowon mouseDowninPictureput the scale of window "View" into theScaleif the commandkey is down thenset loc of card button dragger to the mouselocchoose button toolrepeat until the mouse is upset loc of card button dragger to the mouselocend repeatput the mouseH - 40 & "," & the mouseV - 40 into thelocchoose browse toolget thelocif theScale is not 0 then get ScaleAdjust(theScale,it)set the scroll of window "View" to itset the loc of window "View" to thelocelserepeat until the mouse is upput the mouseH - 40 & "," & the mouseV - 40 into thelocget thelocif theScale is not 0 then get ScaleAdjust(theScale,it)set the scroll of window "View" to itset the loc of window "View" to thelocend repeatend ifend mouseDowninPicture</script>
  17.     <background id="2660" file="background_2660.xml" name="" />
  18.     <card id="2956" file="card_2956.xml" marked="false" name="" owner="2660" />
  19. </stack>
  20.