Otherware/Otherware_1_SB_Development.iso/mac/hypercar/organiza/ref.sit/HyperReferencer/background_3682.txt

Text File | 1988-07-20 | 16.7 KB | 720 lines

-- background: 3682 from stack: in
-- bmap block id: 4718
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=91 top=88 right=126 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: author
----- HyperTalk script -----
on closefield
  get background field year of this card
  if it is empty then
    put "[]" into background field ref
  else
    generatereference
  end if
end closefield


-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=82 top=44 right=82 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: title


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=106 top=130 right=239 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: buzz
----- HyperTalk script -----
On OpenField
  global ClickCount,PreviousLoc
  add 1 to ClickCount
  if (ClickCount >= 2) and (the clickloc is PreviousLoc) then
    put 0 into ClickCount
    put (item 2 of the clickloc) - (item 2 of the rect of the target) into difference
    put (difference div textheight of the target)+1 into BuzzwordNumber
    put line buzzwordNumber of bkgnd field buzz into buzzword
    FindBuzzword buzzword
  end if
  put the clickloc into PreviousLoc
end OpenField



-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=240 right=274 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 512
-- line height: 18
-- part name: publisher


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=86 top=275 right=295 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: year
----- HyperTalk script -----
on closefield
  get background field author of this card
  if it is empty then
    put "[]" into background field ref
  else
    generatereference
  end if
end closefield


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=286 top=275 right=295 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ref


-- part 7 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=457 top=137 right=189 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=312 right=342 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=457 top=36 right=83 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 21049 / 21049
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  answer "Are you sure?" with "Yes" or "No"
  if it is "yes" then
    get the number of cards
    if it is 1 then
      answer "Can't delete last card - use Delete Stack"
    else
      set lockscreen to true
      put field abstractlink into linkid
      if linkid is not 0 then
        push card
        go to stack "Abstracts"
        go linkid
        get the Id of this card
        if it is LinkId then
          send "DoMenu Delete Card" to HyperCard  -- Abstract stack
        end if
        pop card
      end if
      send "DoMenu Delete Card" to HyperCard     -- References stack
    end if
    numbercard
    set lockscreen to false
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=457 top=88 right=134 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  DoMenu New Card
  put 0 into field AbstractLink
  DoMenu New Button
  set the rect of card button 1 to 426,61,444,79
  set the style of card button 1 to checkbox
  set autoHilite of card button 1 to true
  choose browse tool
  set lockscreen to false
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=204 top=310 right=341 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  doMenu Prev
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=277 top=310 right=341 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=457 top=192 right=242 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "Title" or "Author"
  if it is "Author" then
    sort by first line of field author of background
  else
    if it is "Title" then
      sort by first line of field title of background
    end if
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=458 top=295 right=336 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 301 / 301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: squeeze
----- HyperTalk script -----
on MouseDown
  set icon of bkgnd button squeeze to 303
end MouseDown

on MouseLeave
  set icon of bkgnd button squeeze to 301
end MouseLeave

on mouseUp
  push card
  set lockScreen to true
  DoMenu compact stack
  go to stack "Abstracts"
  DoMenu compact stack
  pop card
  set lockScreen to false
  set icon of bkgnd button squeeze to 301
end mouseUp



-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=418 top=44 right=62 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: nrCards


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=415 top=309 right=341 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  pop card
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=305 right=340 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 1006 / 1006
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  DoMenu Quit Hypercard
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=9 top=256 right=302 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris open
  go to stack "Reference Help"
end mouseUp




-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=33 right=73 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 14486 / 14486
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Abstract Button
----- HyperTalk script -----
on mouseUp
  global absSize
  put line 1 of field title into theTitle
  if theTitle is empty then
    answer "Please fill in the title" with "OK"
    exit mouseup
  end if
  push card
  set lockscreen to true
  put field abstractlink into LinkId
  go to stack "Abstracts"
  if LinkId is 0 then
    DoMenu New Card
    get the size of stack "Abstracts"
    put it into absSize
    put the id of this card into LinkId
    pop card
    put LinkId into field abstractlink
    push card
    go to stack "Abstracts"
  end if
  go LinkId
  -- now check that we are at the right card, in case AbstracLink has
  -- become corrupted or the target abstract card has been deleted
  get the Id of this card
  if not (it is LinkId) then
    -- If it has been, then create a new card, put it's Id into
    -- AbstractLink and proceed as usual
    DoMenu New Card
    get the size of stack "Abstracts"
    put it into absSize
    put the id of this card into LinkId
    pop card
    put LinkId into field abstractlink
    push card
    go to stack "Abstracts"
    go LinkId
  end if
  put TheTitle into field title
  put "Abstract" into field DisplayType
  show field abstract
  show background button "Show Comment"
  set lockscreen to false
end mouseUp




-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=77 right=113 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 11266 / 11266
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: comment
----- HyperTalk script -----

on mouseUp
  put line 1 of field title into theTitle
  if theTitle is empty then
    answer "Please fill in the title" with "OK"
    exit mouseup
  end if
  push card
  set lockscreen to true
  put field abstractlink into LinkId
  go to stack "Abstracts"
  if LinkId is 0 then
    DoMenu New Card
    get the size of stack "Abstracts"
    put it into absSize
    put the id of this card into LinkId
    pop card
    put LinkId into field abstractlink
    push card
    go to stack "Abstracts"
  end if
  go LinkId
  get the Id of this card
  if not (it is LinkId) then
    -- If it has been, then create a new card, put it's Id into
    -- AbstractLink and proceed as usual
    DoMenu New Card
    get the size of stack "Abstracts"
    put it into absSize
    put the id of this card into LinkId
    pop card
    put LinkId into field abstractlink
    push card
    go to stack "Abstracts"
    go LinkId
  end if
  put TheTitle into field title
  put "Comment" into field DisplayType
  show field comment
  show background button "Show Abstract"
  set lockscreen to false
end mouseUp




-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=239 top=14 right=36 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About ...
----- HyperTalk script -----
on mouseUp
  global totalSize
  --  put empty into field aboutField
  --  put "HyperReferencer" into line 2 of field aboutField
  --  put "Version 1.3" into line 3 of field aboutField
  --  put "by Frank & Oliver" into line 4 of field aboutField
  --
  --  put "If you find this stack useful" into line 6 of field aboutField
  --  put "please send stacks filled with" into line 7 of field aboutField
  --  put "references for work in Graphics or Data Security" into line 8 of field aboutField
  --  put "to" into line 9 of field aboutField
  --  put "Frank : [e-mail]" into line 10 of field aboutField
  --  put "Oliver : [e-mail]" into line 11 of field aboutField
  hide bkgnd button "about ..."
  show field aboutField
  show bkgnd button "Frank"
  show bkgnd button "Oliver"
end mouseUp


-- part 41 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=104 top=15 right=230 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: aboutField
----- HyperTalk script -----
on mouseDown
  hide bkgnd button "Frank"
  hide bkgnd button "Oliver"
  hide field aboutField
  show background button "About ..."
end mouseDown




-- part 42 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- 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: AbstractLink


-- part 47 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=457 top=244 right=291 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: write
----- HyperTalk script -----
on mouseUp
  push card
  ask "File Name?" with "Ref Print"
  put it into filename
  if filename is not empty then
    answer "Do you want to include the abstracts?" with "Cancel" or "No" or "Yes"
    if it is "cancel" then exit MouseUp
    put it into WantsAbstracts
    answer "Write all cards, or only marked ones?" with "Cancel" or "Only some" or "All"
    if it is "cancel" then exit MouseUp
    put it into WriteAll
    open file filename
    put 1 into MyCard
    set lockscreen to true
    go to card 1
    repeat
      if MyCard > (number of last card) then
        exit repeat
      end if
      if WriteAll is "Only some" then
        if hilite of card button 1 is true then
          put "Yes" into it
        else
          put "No" into it
        end if
      else
        put "Yes" into it
      end if
      if it is "Yes" then
        put line 1 of bkgnd field ref of this card into ThisRef
        put line 1 of bkgnd field title of this card into ThisTitle
        put line 1 of bkgnd field author of this card into ThisAuthor
        put line 1 of bkgnd field publisher of this card into ThisPublisher
        put line 1 of bkgnd field year of this card into ThisYear
        write Thisref & "  " & quote & ThisTitle & quote & ", " & ThisAuthor & ", " & ThisPublisher & ", " & ThisYear & return & return to file filename
        if WantsAbstracts is "Yes" then
          push card
          put field abstractlink into linkid
          if linkid is not 0 then
            set lockscreen to true
            go to stack "abstracts"
            go linkid
            put field abstract into TheAbstract
            write return & TheAbstract & return & return to file filename
          end if
          pop card
        end if
      end if
      go to next card
      add 1 to MyCard
    end repeat
    close file filename
    if writeall is "Only Some" then
      answer "Unmark the marked cards?" with "no" or "yes"
      if it is "Yes" then
        go to card 1
        repeat
          set hilite of card button 1 to false
          go to next card
          get number of this card
          if it is 1 then exit repeat
        end repeat
      end if
    end if
  end if
  pop card
  set lockscreen to false
end mouseUp



-- part 48 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=130 top=29 right=79 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 30634 / 30634
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Frank
----- HyperTalk script -----
on mouseUp
  hide bkgnd button "Frank"
  hide bkgnd button "Oliver"
  hide field aboutField
  show background button "About ..."
end mouseUp



-- part 49 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=345 top=29 right=79 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 291 / 291
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Oliver
----- HyperTalk script -----
on mouseUp
  hide bkgnd button "Frank"
  hide bkgnd button "Oliver"
  hide field aboutField
  show background button "About ..."
end mouseUp