STAK ` w0w#* V""""""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APP  %$@P Z@on openStack global FieldGestSet put GestInit ("EditField") into FieldGestSet end openStack on closeStack global FieldGestSet if FieldGestSet <> 0 then GestClose FieldGestSet end if end closeStack ield "CardsField" put return after card field "CardsField" go card curcard set lockScreen to false end newCard on deleteCard -- should remove the name of the field end deleteCard MASTPTPܳw=8[[\rLIST@; PAGE w8  r o`FTBL GenevaChicago!Avant GardeHelvetica MarkOutline2Z FREEFree Object STBL  FREEFree Object BKGD  SlideGestmouseDown global EditFieldGest if EditFieldGest <> 0 then GestTrack EditFieldGest end if end mou.CARD  RRHT Returnon mouseUp go to card id 4983 end mouseUp ta! 1pA!1`FREEFree Object $#D  & PRSTHH @-I{,, `Pd ?h gestures. Three gestu@PRNT (2((VH`HJgBg/./<~|>\-c4t]b]*=U4E ,L7>h2>(Th?$?'3\DUP% E M C c>1|c>$D| S S  Vf GE@ ( ( 3 $D " t|1 ## ## ## t w ts6 ` t6 d6 ` t"( 3p2@  FREEFree Object titi`BMAPV)(A! 1pA!1CARD7Z tutuF+ ;0``BMAPV)(<  q0 `BMAPYV)(A `BMAPZV)(A! Aq1P" 19FREEFree Object `BMAPV)(<  q0 `BMAP V)(A ! 1pA!119 FREEFree Object @BMAPVV CARDw@ "M@@ CardsFieldon mouseDown global FieldGestSet if FieldGestSet <> 0 then GestTrack FieldGestSet end if end mouseDown F C Homeon mouseUp go home end mouseUp V DC Scripton mouseUp Edit Script of this card end mouseUpP C6Cp Helpon mouseUp go to card id 6770 end mouseUp R Cހ  Abouton mouseUp go to card id 3005 end mouseUp  line2 First Cardfunction findline y -- finds the line of text from a given point put y - top of card field "CardsField" into i divide i by textHeight of card field "CardsField" put trunc (i) into i add 1 to i if the number of cards < i then put the number of cards + 1 into i end if return i end findline on gInsert startx, starty, endx, endy, minx, miny, maxx, maxy -- insert a line at the middle of the arrow put findline ((miny + maxy) / 2) into curline ask "Set the name of the new headline" put it into cname if cname <> "" then put return after line curline of card field "CardsField" add 1 to curline put cname after line curline of card field "CardsField" end if end gInsert on gIndent sx, sy, ex, ey, mx, my, maxx, maxy -- indent or de-indent the current line put findline(sy) into i put findline(ey) into j -- a check to avoid deleting by mistake if j = i then if the number of cards >= i then if sx < ex then put " " before line i of card field "CardsField" else delete line i of card field "CardsField" end if end if end if end gIndent on gDelete sx, sy, ex, ey, mx, my, maxx, maxy -- delete the current line put findline(sy) into i put findline(ey) into j -- a check to avoid deleting by mistake if j = i then delete line i of card field "CardsField" end if end gDelete on gMove sx, sy, ex, ey, mx, my, maxx, maxy -- put the line on start point after the line of end point put findline(sy) into stline put findline(ey) into endline subtract 1 from endline put line stline of card field "CardsField" into buf delete line stline of card field "CardsField" put return after line endline of card field "CardsField" add 1 to endline put buf after line endline of card field "CardsField" end gMove on gNull sx, sy, ex, ey, mx, my, maxx, maxy -- insert a line ( or edit the line ) -- should make the line editable -- and should lock the text again end gNull on gPage sx, sy, ex, ey, mx, my, maxx, maxy -- scroll by the amount indented end gPage @MgMM$@FREEFree Object Z.,SR@j @< @$"S\S@S\SN [h[n\\[@&Q4` NN S0[TPPS0[nshN,S^\96 LSStSSx wB$[O/<N, 9DN,0NS\ SP"SHFS@lS8S,S$S 0N,%Script of card id 4983 = "First Card" "4N,,Te-T,,-dTUeU-N,*Uc+*c}@N,*S\ S"StFSlSx = YS0N, *dN,T/e2T,,-P/T-1Q12/00T-2dTUeU-Jf/Bg4N,$V$V$TN,??* \,^,E-tSS S^DAq&34b 5qz!F\1F`!^}Xk%R\]\>>>>>>>>>> @@,^SXSH S^N, end e,line(N,@(Z@(Ll@&JBLl4N,S^+C `ST*N, Nu4N,SS^*:G `SDN, +9-\N, Go%Script of card id 4983 = "First Card"- Next WindowLN, ((N,@(Z@(Ll@&JBLl N, ~ OptionsGridFatBits Power Keys-1N,ize...Brush Shape...Edit Pattern...Polygon Sides...-2 Draw Filled Draw Centered Draw Multiple-3RotateSlantDistort PerspectiveHN,NV nJgHhN n,HNN^ _ NNVH8 n C""HnHz/Np FREEFree Object y, maxx, maxy put findline(sy) into stline put findline(ey) into endline subtract 1 from endline if stline <> 1 then lock screen push card go card stline doMenu "Cut Card" go card endline doMenu "Paste Card" pop card unlock screen put line stline of card field "CardsField" into buf delete line stline of card field "CardsField" put return after line endline of card field "CardsField" add 1 to endline put buf after line endline of card field "CardsField" end if end gMove nCARDo tyty,g` lJWJgF l",^g6&lp f/.N~ lB| l , l `< l., l m*| l,,. g l ` * l ѐLN^ _\ONNV/ (nHlN'2/.N</BMAPV)+A,! Aq1P1921"`FREEFree Object J_VJf/Bg/< N+  @g2/,p/N l PB?<%NjBg/.NZ n,HN l ,А)@ l ,А)@(_N^ _ NNVH(nB lJVrl^g/</</.N)lHlHl<N "BgHlHmrN'Bfp,Yf /.N^`/.N/.N<, "g~BHlN'2 lHr"@WD@HlHl<N ",fHzHlNJ_g~/.Nv, BA,JAW/Hz~HlN2 tAW@g`&l l^Jg>r Wg4 l "l",Wg9l/.Nx l , l LN^.Nu--NVH(n-l&l, &nHnN'HnHnN . l ^Jf nJWg.///.NH/,/,/N l А)@ l А)@LN^.NuNVH(nB/,N'b.R///.NHlHlN&2LN^.NuNVXH8BnB.YB=|/.B/.NN"Bg> J_VJf/Bg/< N+  @g/.p/N?<%Nj n PB`, n-P n-PBn.f/N/N/N$O8LN^ _NNV nHhN n(gN n,HNFN^ _\ONNVH8B.B.J@g<;|l+npBBN +_tNbHnN Jmng ?<|Nj`-mt/.NBg/. Ng| n HS@gS@g4S@gRS@gp`Bg n /(?(HnN)f?</N`tBg n /( HnN)f^?</N`RBg n /(HnN)f/N0. k :SE k <+PJPWJf/Bg/?N, @g( l Ph<t] A >dh?Z '6`Ns@$28p$'yپ)j ]XL!#D  I @& O)}]c g?| `T @  TAJEQa@$@4|" $@$ #E@EQa@T@ . 05 505838383C H#4k/<=p4~~C ` C" %p ` %~~' /R'   C$>@6OC =xx<[ 4~?X|~4 a@;` `) 4at1~?2~ #0S  B < (y`0,yG oj SR`z@C`. D)^d@<<x6>>|VRwV~~>2,@#`"33c@"8"DyHD:p+K`?D@?|?KxJ@04| EJ >D?x|?; ("p "hxZ 80j@ (+*x y8Wx'LO$B @r $3)WOt2e3+ߏ_>x{ x@ @&R8Rpw0 `0 3O'O"\ t2b" `"@:J-ZS>)K]XZ! ZR)Z-]$KH X?cc((`4# @(}yt,zp8J|>(y5t.l 8H2$6`3H3yc66hZ8( 8) "h(`BMAP}V)(A! 1pA!1`BMAPV)(<  q0  FREEFree Object CARDw@ . /)?@ CardsFieldon mouseDown global FieldGestSet if FieldGestSet <> 0 then GestTrack FieldGestSet end if end mouseDown F 5e Homeon mouseUp go home end mouseUp Vf Scripton mouseUp Edit Script of this card end mouseUpFirst Card tata titi toto First Cardon openCard global FieldGestSet put GestInit ("EditField") into FieldGestSet end openCard on closeCard global FieldGestSet if FieldGestSet <> 0 then GestClose FieldGestSet end if end closeCard function findline y put y - top of card field "CardsField" into i divide i by textHeight of card field "CardsField" put trunc (i) into i add 1 to i if the number of cards < i then put the number of cards + 1 into i end if return i end findline on gInsert sx, sy, ex, ey, mx, my, maxx, maxy put findline ((my + maxy) / 2) into curline ask "Set the name of the new card" put it into cname if cname <> "" then lock screen push card if the number of cards < curline then put the number of cards into curline end if go card curline doMenu "New Card" set the name of this card to cname choose text tool click at 40, 40 type cname choose browse tool pop card unlock screen put return after line curline of card field "CardsField" add 1 to curline put cname after line curline of card field "CardsField" end if end gInsert on gGoto sx, sy, ex, ey, mx, my, maxx, maxy put findline (sy) into i if i <= the number of cards then go card i end if end gGoto on gDelete sx, sy, ex, ey, mx, my, maxx, maxy put findline(sy) into i put findline(ey) into j -- a check to avoid deleting by mistake if i <> 1 and the number of cards <= i and j = i then delete line i of card field "CardsField" lock screen push card go card i doMenu "Delete Card" pop card unlock screen end if end gDelete on gMove sx, sy, ex, ey, mx, my, maxx, maxy put findline(sy) into stline put findline(ey) into endline subtract 1 from endline if stline <> 1 then lock screen push card go card stline doMenu "Cut Card" go card endline doMenu "Paste Card" pop card unlock screen put line stline of card field "CardsField" into buf delete line stline of card field "CardsField" put return after line endline of card field "CardsField" add 1 to endline put buf after line endline of card field "CardsField" end if end gMove E nHhHn?<NHnNHn?<NHnN&_ f` SHrt@WD/ _#/,?. ELN^ _\ONthe visib visibisibBMAPV DTCw,&*# S`(hD><~|>Dt]b]*D򔊢E 7>hB>(Th?4?'C5 E &t]]* $ D|SSVf GE@((3 $D "3$"######twts6 `h$d6 `t"(3p2@CARDr  RHT Returnon mouseUp go to card id 4983 end mouseUp Ui Try Marks Hereon mouseDown global FieldGestSet if FieldGestSet <> 0 then GestTrack FieldGestSet end if end mouseDown "L This outliner is driven by marks. These are intended to be self-explaining. Indent puts the chosen line at a given level. Insert inserts a line at the specified location. Move moves the start line after the line of the destination. Page scrolls up or dowm(a "move" + "arrow"). NullMark is intended to handle simple or multiple clicks. Try the marks by clicking in the button on the right. on gIndent put "Indent mark recognized" end gIndent on gInsert put "Insert mark recognized" end gInsert on gMove put "Move mark recognized" end gMove on gDelete put "Delete mark recognized" end gDelete on gPage put "Page mark recognized" end gPage on gNull put "Null mark recognized" end gNull tyDZ33h(Nh?0<Nh@DNh?3 h(Nh?0<Nh@D0<Nh@DNh?3!h(Nh?0<Nh@DNh@0<Nh@D3hMNhA(Nh@8J9hx{ x@ @&R8Rpw0 `0 3O'O"\ t2b" `"@:J-ZS>)K]XZ! ZR)Z-]$KH X?cc((`4# @(}yt,zp8J|>(y5t.l 8H2$6`3H3yc66hZ8( 8) "h(CARDr RHT Returnon mouseUp go to card id 4983 end mouseUp R5i Returnon mouseUp go to card id 4983 end mouseUp tyBMAPVC,<0# S`(h34><~|>M 4t]b]*]P"F `4E .7>h2>(.Th?$?0:|'3NP"G% E > HE(t]]*M0>|W lW l$Q n0W |o D|SSs6 7616 ;3t|1######wts6 `t6 d6 6 `977#00" #0" χ ®.OK5-C ±`xx1x= 5>4$ 63`$V uQQh (@@ .].K -C `**3%Y%hq#tT|>0F0FH>c>WS}76>ucT] 0FU07]]Wл;Ep]9D!D7 :)HբV )EPUvD2D%>8c>W|x>'h&?(*?V(? 4D80GHWZ1F`EDFD%]8U8]]fк Ep]%X2|@(()(((@((8( ((| !. !( >8 4?)"6'0#$ 6;# '2@$J  ,@`S`0  0S)4ps'? C*08`0)p l` $4'5V&0S$ &C '4@0    0 0x`|T&(% 0<eU.8.`.?`$< ` -@ -47?e4e@(()(((FREEFree Object ! !> 4?)"| 6'0#$ 6;# '2@$ @`S` 0S*  p' !? !`' 0 p l`M $4'5V&0S$&C1'4 0      >x`|/@T&d 0(<eU'@.8'G'?)&< `f-@&x-4ee@(()(((_______________FREEFree Object G6&]%"7?@H%@F+ ;0`6J@ @(@(@BMAPVVCARD totoideDPrint Field... Print CardPPrint Stack...Print Report...-3Quit HyperCardQ{EditUndoZ-1CutXCopyCPasteVClear-2New CardN Delete CardCut Card Copy Card-3 Text Style...T BackgroundBIcon...IGoBack~HomeHHelp?RecentR-1First1Prev2Next3Last4-2Find...FMessageMScrollE Next WindowLTools TAILNu r det slut