Carousel/CAROUSEL.cdr/mactosh/hc/barbutto.sit/BarButton/card_3634.txt

Text File | 1987-11-23 | 5KB | 209 lines

-- card: 3634 from stack: in
-- bmap block id: 4241
-- flags: 0000
-- background id: 2619
-- name: Card 4
----- HyperTalk script -----
on opencard
  repeat with bnum = 1 to number of card buttons
    get rect of card button bnum
    BarButton 3,10,0,the random of 10
  end repeat
end opencard




-- part 4 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=338 top=145 right=260 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 5 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=357 top=145 right=260 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 6 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=376 top=145 right=260 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 7 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=395 top=145 right=260 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 8 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=414 top=145 right=260 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 9 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=433 top=145 right=260 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 10 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=452 top=145 right=260 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part 11 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=471 top=145 right=260 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:
----- HyperTalk script -----
on mousedown
  if the optionkey is down then put script of me into bkgnd field lowerpane
  set cursor to 2
  get the rect of me
  BarButton 3,10,0
  put the result into bkgnd field results
end mousedown



-- part contents for background part 10
----- text -----
The second and third parameters after the BarButton command tell the XCMD the range of values you allow.  The second parameter is the maximum, and the third is the minimum.  If the third parameter is absent, zero is assumed.  All values must be integers.
    If you include at least two parameters,BarButton will normally display the current numeric value as you change the size of the bar.  The value is always displayed to the right of left&right Bar buttons, and below the up&down Bar buttons.
    On this card you see a bar graph which labels itself as you set the height of the bars.

-- part contents for background part 4
----- text -----
8