home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 10 / MacAddict_010_1997_06.iso / media / ThisIssue.Dxr / Internal_10.ls < prev    next >
Encoding:
Text File  |  1997-03-25  |  1.1 KB  |  37 lines
  1. on mouseDown
  2.   puppetSound(2, 0)
  3.   puppetSound(2, "Switch")
  4.   set i to the memberNum of sprite 23
  5.   if i > 35 then
  6.     set the memberNum of sprite 23 to i - 1
  7.   else
  8.     set the memberNum of sprite 23 to 41
  9.   end if
  10.   updateStage()
  11.   set i to the memberNum of sprite 23
  12.   case i of
  13.     35:
  14.       put line 1 of field "catList" into field "catSort"
  15.     36:
  16.       put line 2 of field "catList" into field "catSort"
  17.     37:
  18.       put line 3 of field "catList" into field "catSort"
  19.     38:
  20.       put line 4 of field "catList" into field "catSort"
  21.     39:
  22.       put line 5 of field "catList" into field "catSort"
  23.     40:
  24.       put line 6 of field "catList" into field "catSort"
  25.     41:
  26.       put line 7 of field "catList" into field "catSort"
  27.   end case
  28.   lookUpCat()
  29.   set oldFont to the textFont of member "dummyField"
  30.   set oldSize to the textSize of member "dummyField"
  31.   set the text of field "dummyField" to field "description" & RETURN & RETURN
  32.   set the textFont of member "dummyField" to oldFont
  33.   set the textSize of member "dummyField" to oldSize
  34.   set the textStyle of member "dummyField" to "bold"
  35.   squawkBox()
  36. end
  37.