REVO2700 /U Persons.Analysts H Z 4P ) U helvetica U helvetica U times U courier U helvetica W helvetica U helvetica U ms sans serif U Bodoni MT U Arial Baltic U Arial Baltic U Arial U Arial Greek U AmerType Md BT U Allegro BT U Allegro BT U Berlin Sans FB U Segoe UI U Arial Black U Palatino Linotype U Palatino Linotype U times U times U courier U Segoe UI U Palatino Linotype U Segoe UI U Arial Black W Arial Baltic W Bodoni MT U courier U Times New Roman U Times New Roman U Times New Roman U helvetica U @Batang U Courier New U Arial Baltic W Arial Baltic U Arial Black U Arial Baltic cREVGeometryCache stackID 12117 cREVGeneral scripteditorvscroll 0breakpointconditions scripteditorselection 0breakpoints breakpointstates stackfileversion 2.7AlreadyHidden false cRevStandaloneSettings "t Title Page @ Z cREVGeometryCacheIDs 1249840803415 120901249368739002 120211249368768243 120231249840761760 12089 cREVGeometrycache total 4order . . /9 /: Explanation @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011249368899185 120261062222592550 121041249369018096 120281249843194148 121091055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometryCache total 18order /; /M /S @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011249368899185 120261062222592550 121041249369018096 120281249843194148 121091055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /T @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011249368899185 120261062222592550 121041249369018096 120281249843194148 121091055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /U @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011062222592550 121041249368899185 120261249843194148 121091249369018096 120281055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /P @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011062222592550 121041249368899185 120261249843194148 121091249369018096 120281055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /Q @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011062222592550 121041249368899185 120261249843194148 121091249369018096 120281055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /R @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011062222592550 121041249368899185 120261249843194148 121091249369018096 120281055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /N @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011062222592550 121041249368899185 120261249843194148 121091249369018096 120281055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M /O @ Z cREVGeometryCacheIDs 1249368878169 120251201844148017 120921111169024161 121001249369304424 120751111169024164 121011062222592550 121041249368899185 120261249843194148 121091249369018096 120281055237316514 120981241140392516 59121055237316520 120961201851123890 120911241140392521 119441201850631369 120941062222099805 121031113092474961 121061062222654858 12105 cREVGeometrycache total 18order /; /M group id 5912 i on openCard if there is a bkgnd field id 11 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 11 pass openCard end openCard C cREVGeneral revUniqueID 1241140392516 . group id 12028 i ; cREVGeneral revUniqueID 1249369018096 /+ i 3 cREVGeneral revUniqueID 1249369304424 . HCCdNmbrOfHC function cardData -- this handler stores the card data specified by the -- user. DO NOT MOVE THE POSITION OF THIS HANDLER! return "bkgnd" end cardData on newfield -- create a new openCard handler when pasted put word 1 of the long name of me into fieldType if fieldType is "Bkgnd" then set sharedText of me to true addStackScript fieldType updateCardData fieldType end newfield on deleteField removeScript end deleteField on removeScript -- removes the openCard handler added on newField put cardData() into fieldType get script of fieldType if line 1 of scriptBody(fieldType) is in it then put offset(line 1 of scriptBody(fieldType),it) into startBlock put startBlock + number of chars in scriptBody(fieldType) + \ the number of lines in scriptBody(fieldType) + 1 into endBlock delete char startBlock to endBlock of it set script of fieldType to it end if end removeScript on mouseUp -- rebuilds the openCard handler in the stack script if necessary addStackScript cardData() end mouseUp on addStackScript fieldType get script of fieldType if "openCard" is in it then if (fieldType && "field id" && id of me) is not in it then put scriptBody(fieldType) & return after char \ (offSet("openCard",it) + 8) of it set script of fieldType to it end if else if it <> empty then if last char of it = return then put return after it else put return & return after it end if -- write the full handler put "on openCard" & return & scriptBody(fieldType) & return & \ "pass openCard" & return & "end openCard" after it set script of fieldType to it end if end addStackScript function scriptBody fieldType -- returns the body of the openCard handler return "if there is a" && fieldType && "field id" && id of me & return & \ "then put" && quote & "Card" & quote && "&& the number of this card && " & \ quote & "of" & quote && "&& \" & return & "the number of cards into" && \ fieldType && "field id" && id of me end scriptBody on updateCardData fieldType -- write range back to the data handler in this script -- doesn't take effect until idle get script of me put quote & fieldType & quote into newData put newData into char offset(quote,it) to (offSet("end",it) - 2) of it set script of me to it end updateCardData + cREVGeneral revUniqueID 1241140392521 Card 4 of 10 Card Index i on openCard if there is a bkgnd field id 5 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 5 pass openCard end openCard 6 $ D " ` ` l a~0 c1Y a a2 a a4 aex q iֱ ` qg ` ` l a~0 c1Y a a2 a a4 aex q iֱ ` qg . Table of Contents x on mouseDown if the shiftKey is down then sort lines of me else if the optionKey is down then createCardNameList -- rebuild list exit mouseDown else -- go to the card associated with the click currentLine put the ticks into theTicks repeat until the mouse is up if the mouseloc is within the rect of target then currentLine put the ticks into theTicks else select empty end repeat if (the ticks - theTicks) < 10 then get the value of the selectedLine if it is empty then exit mouseDown visual effect iris open if the style of me is "Scrolling" then set scroll of me to 0 go cd it end if end if select empty end mouseDown on currentLine put (((the mouseV - top of the target) - 4) + scroll of the target)\ div (textHeight of the target) + 1 into theLine select char 1 to ((number of chars in (line theLine of target)) + 1)\ of line theLine to (theLine + 1) of target end currentLine on createCardNameList -- create the list of card names set the dontWrap of me to true set the lockText of me to true if the style of me is "Scrolling" then set scroll of me to 0 if "bkgnd" is in the target then set the sharedText of target to true put empty into me repeat with curCard = 1 to number of cards set cursor to busy get the short name of card curCard put it into line curCard of me if the length of me > 30000 then answer "Sorry, but this field's 30000" &&\ "character limit has been reached." -- exit to HyperCard end if end repeat end createCardNameList on newField -- auto builds a new list when this field is pasted createCardNameList end newField V ?[ Title Page Network Refinements Card Index Evidence Evidence Evidence card id 7116 card id 2165 card id 12435 card id 10959 card id 10246 card id 10674 card id 7187 card id 7620 card id 2395 card id 7891 card id 8125 Evidence card id 9142 Evidence card id 9693 card id 12053 card id 9824 card id 10002 card id 11688 card id 11923 . ` @ @ . Previous card C +on mouseUp go to previous card end mouseUp 3 @ . Next card C 'on mouseUp go to next card end mouseUp 2 A cREVGeneral bookmarks handlerList mouseUptempScript prevHandler mouseUpscriptSelection char 14 to 13script . Network Manager @ey @on mouseUp go to card id 2246 of stack "Network" end mouseUp : y Network Manager cREVGeneral scriptChecksum (IY)f bookmarks handlerList mouseUptempScript prevHandler mouseUpscriptSelection char 50 to 49script e
on mouseUp
go to card id 2246 of stack "Network"
end mouseUp
. HCCdNmbrOfHC X function cardData -- this handler stores the card data specified by the -- user. DO NOT MOVE THE POSITION OF THIS HANDLER! return "bkgnd" end cardData on newfield -- create a new openCard handler when pasted put word 1 of the long name of me into fieldType if fieldType is "Bkgnd" then set sharedText of me to true addStackScript fieldType updateCardData fieldType end newfield on deleteField removeScript end deleteField on removeScript -- removes the openCard handler added on newField put cardData() into fieldType get script of fieldType if line 1 of scriptBody(fieldType) is in it then put offset(line 1 of scriptBody(fieldType),it) into startBlock put startBlock + number of chars in scriptBody(fieldType) + \ the number of lines in scriptBody(fieldType) + 1 into endBlock delete char startBlock to endBlock of it set script of fieldType to it end if end removeScript on mouseUp -- rebuilds the openCard handler in the stack script if necessary addStackScript cardData() end mouseUp on addStackScript fieldType get script of fieldType if "openCard" is in it then if (fieldType && "field id" && id of me) is not in it then put scriptBody(fieldType) & return after char \ (offSet("openCard",it) + 8) of it set script of fieldType to it end if else if it <> empty then if last char of it = return then put return after it else put return & return after it end if -- write the full handler put "on openCard" & return & scriptBody(fieldType) & return & \ "pass openCard" & return & "end openCard" after it set script of fieldType to it end if end addStackScript function scriptBody fieldType -- returns the body of the openCard handler return "if there is a" && fieldType && "field id" && id of me & return & \ "then put" && quote & "Card" & quote && "&& the number of this card && " & \ quote & "of" & quote && "&& \" & return & "the number of cards into" && \ fieldType && "field id" && id of me end scriptBody on updateCardData fieldType -- write range back to the data handler in this script -- doesn't take effect until idle get script of me put quote & fieldType & quote into newData put newData into char offset(quote,it) to (offSet("end",it) - 2) of it set script of me to it end updateCardData ^ # Card 3 of 8 Evidence i on openCard if there is a bkgnd field id 8 then put "Card" && the number of this card && "of" && \ the number of cards into bkgnd field id 8 pass openCard end openCard ( cREVGeneral revUniqueID 1245741823566 . HCCdNmbrOfHC x function cardData -- this handler stores the card data specified by the -- user. DO NOT MOVE THE POSITION OF THIS HANDLER! return "bkgnd" end cardData on newfield -- create a new openCard handler when pasted put word 1 of the long name of me into fieldType if fieldType is "Bkgnd" then set sharedText of me to true addStackScript fieldType updateCardData fieldType end newfield on deleteField removeScript end deleteField on removeScript -- removes the openCard handler added on newField put cardData() into fieldType get script of fieldType if line 1 of scriptBody(fieldType) is in it then put offset(line 1 of scriptBody(fieldType),it) into startBlock put startBlock + number of chars in scriptBody(fieldType) + \ the number of lines in scriptBody(fieldType) + 1 into endBlock delete char startBlock to endBlock of it set script of fieldType to it end if end removeScript on mouseUp -- rebuilds the openCard handler in the stack script if necessary addStackScript cardData() end mouseUp on addStackScript fieldType get script of fieldType if "openCard" is in it then if (fieldType && "field id" && id of me) is not in it then put scriptBody(fieldType) & return after char \ (offSet("openCard",it) + 8) of it set script of fieldType to it end if else if it <> empty then if last char of it = return then put return after it else put return & return after it end if -- write the full handler put "on openCard" & return & scriptBody(fieldType) & return & \ "pass openCard" & return & "end openCard" after it set script of fieldType to it end if end addStackScript function scriptBody fieldType -- returns the body of the openCard handler return "if there is a" && fieldType && "field id" && id of me & return & \ "then put" && quote & "Card" & quote && "&& the number of this card && " & \ quote & "of" & quote && "&& \" & return & "the number of cards into" && \ fieldType && "field id" && id of me end scriptBody on updateCardData fieldType -- write range back to the data handler in this script -- doesn't take effect until idle get script of me put quote & fieldType & quote into newData put newData into char offset(quote,it) to (offSet("end",it) - 2) of it set script of me to it end updateCardData cREVGeneral revUniqueID 1241119143065 Card 7 of 7 . i L! cREVGeneral revUniqueID 1249244541896 . Label Field actor )H P 9 cREVTable currentview BActors or persons: (e.g., investigators, trial lawyers, witnesses) cREVGeneral revUniqueID 1244641863434 Actors or persons: (e.g., investigators, trial lawyers, witnesses) . Label Field event d cREVTable currentview Event or act: cREVGeneral revUniqueID 1244642161061 Event or act: . Label Field Time D { ! cREVTable currentview Time of event or act: cREVGeneral revUniqueID 1244642199897 Time of event or act: . Persons Ex Oon mouseUp visual effect dissolve go to "Persons.LegalActors" end mouseUp 9 cREVGeneral revUniqueID 1244640532576scripteditorvscroll 0scripteditorselection 35 . Witness History Ex Mon mouseUp visual effect dissolve go to "Time Line.Witness" end mouseUp 9 cREVGeneral scripteditorvscroll 0revUniqueID 1244640735354scripteditorselection 62 . Tangible Evidence History Ex Non mouseUp visual effect dissolve go to "Time Line.Tangible" end mouseUp - 9 cREVGeneral revUniqueID 1244640771993scripteditorvscroll 0scripteditorselection 63 . Make New Card Ex *on mouseUp doMenu "New Card" end mouseUp @@@@ k y 5 cREVGeneral revUniqueID 1201478837173 . Next card G Hon mouseUp visual effect scroll left go to next card end mouseUp $ P D A cREVGeneral revUniqueID 1244635688662scripteditorvscroll 0scripteditorselection 43 . Network Manager Ex *on mouseUp go to "Network" end mouseUp 9 cREVGeneral revUniqueID 1243836241004 . Previous card Gx Pon mouseUp visual effect scroll right slowly go to previous card end mouseUp ` H @ cREVGeneral revUniqueID 1244639334376scripteditorvscroll 0scripteditorselection 0 . Field )h cREVGeneral revUniqueID 1244639617965 . ` @ . Field )h S ) cREVGeneral revUniqueID 1244639674196 . Field )h @ ) cREVGeneral revUniqueID 1244640062304 . group id 11982 i ( cREVGeneral revUniqueID 1249244681082 . i ( ) cREVGeneral revUniqueID 1249244810301 . Investigation Time Line , ! cREVTable currentview Investigation Time Line cREVGeneral revUniqueID 1249090675678 Investigation Time Line . i 7 1 cREVGeneral revUniqueID 1249244869261 . Trial Time Line ; ) cREVTable currentview Trial Time Line cREVGeneral revUniqueID 1249244858356 Trial Time Line . Next card G (on mouseUp go to next card end mouseUp f q d d ( A cREVGeneral revUniqueID 1249368739002 . Network Manager D &