home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
mac
/
hypercrd
/
hc1_2_x
/
bokbindr.sit
/
Bookbinder
/
card_8278.txt
< prev
next >
Wrap
Text File
|
1990-07-24
|
31KB
|
1,537 lines
-- card: 8278 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 4755
-- name: contents (cont)
----- HyperTalk script -----
on updateContents
global deletedCard
put 36*((the number of me)-(the number of card "contents")) into base
set cursor to watch
put 4 into firstField
repeat with x = 1 to 36
get line x+base of card field "content list" of card "contents"
if it is word 3 of deletedCard then
put "" into line x+base of card field "content list" of card "contents"
get ""
end if
if it is "" then
put "" into card field (2*x+firstField) of card (the number of me)
put "" into card field (2*x-1+firstField) of card (the number of me)
else
put the number of card id it into card field (2*x-1+firstField) of card (the number of me)
put it into card field (2*x+firstField) of card (the number of me)
get field "heading" of card id it
put it into word 1 of card field (2*x+firstField) of card (the number of me)
end if
end repeat
put (the number of me) + 1 into nextCard
get the name of card nextCard
get word 2 of it
get char 2 to 9 of it
if it is "contents" then
send updateContents to card nextCard
end if
end updateContents
-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=57 right=300 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 14 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=141 top=21 right=36 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bookmark1
-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=118 top=37 right=55 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: instructions
-- part 24 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=237 top=21 right=36 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bookmark2
-- part 25 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=333 top=21 right=36 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bookmark3
-- part 29 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=60 right=74 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=60 right=74 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=73 right=87 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=73 right=87 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 33 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=86 right=100 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=86 right=100 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=99 right=113 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 34 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=99 right=113 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=112 right=126 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 36 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=112 right=126 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 39 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=125 right=139 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 38 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=125 right=139 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=138 right=151 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 43 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=138 right=152 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 46 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=151 right=165 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 45 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=151 right=165 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 48 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=164 right=178 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 47 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=164 right=178 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 50 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=177 right=191 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 49 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=177 right=191 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 52 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=190 right=203 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 51 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=190 right=204 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 54 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=203 right=217 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 53 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=203 right=217 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=216 right=230 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 55 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=216 right=230 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 58 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=229 right=243 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 57 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=229 right=243 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 60 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=242 right=255 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 59 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=242 right=256 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 62 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=255 right=268 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 61 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=255 right=269 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 64 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=268 right=282 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 63 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=268 right=282 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 66 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=190 top=281 right=295 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 65 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=281 right=295 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 84 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=60 right=74 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 85 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=60 right=74 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 90 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=73 right=87 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 89 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=73 right=87 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 92 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=86 right=100 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 91 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=86 right=100 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 94 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=99 right=113 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 93 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=99 right=113 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 96 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=112 right=126 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 95 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=112 right=126 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 98 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=125 right=139 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 97 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=125 right=139 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 100 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=138 right=152 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 99 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=138 right=152 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 102 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=151 right=165 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 101 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=151 right=165 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 104 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=164 right=178 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 103 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=164 right=178 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 106 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=177 right=191 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 105 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=177 right=191 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 108 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=190 right=204 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 107 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=190 right=204 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 110 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=203 right=217 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 109 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=203 right=217 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 112 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=216 right=230 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 111 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=216 right=230 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 114 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=229 right=243 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 113 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=229 right=243 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 116 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=242 right=256 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 115 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=242 right=256 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 118 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=255 right=269 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 117 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=255 right=269 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 120 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=268 right=282 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 119 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=268 right=282 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 122 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=451 top=281 right=295 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 121 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=275 top=281 right=295 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
visual iris open
get the number of the target
get card field (it-1)
if it is not "" then
go card it
end if
end mouseUp
-- part 127 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=352 top=26 right=43 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Contents Pg.
----- HyperTalk script -----
on mouseUp
put the userLevel into currentLevel
set the userLevel to 5
doMenu "Copy Card"
doMenu "Paste Card"
put "" into field "page no"
send updateContents to this card
set the userLevel to currentLevel
end mouseUp
-- part contents for background part 7
----- text -----
3
-- part contents for card part 14
----- text -----
card id 4342
-- part contents for background part 6
----- text -----
Contents (cont.)
-- part contents for background part 4
----- text -----
-- part contents for card part 24
----- text -----
0
-- part contents for card part 25
----- text -----
0
-- part contents for background part 17
----- text -----
p6