home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / CDXPCW09.DXR / 00003_CDXDefault.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  1.9 KB  |  47 lines
  1. on CDXDefault
  2.   global CDXNameDrpList, CDXNameSelList
  3.   repeat with t = 1 to count(CDXNameDrpList)
  4.     set the editable of member getAt(CDXNameDrpList, t) to 0
  5.     set the textSize of member getAt(CDXNameDrpList, t) to 12
  6.     set the boxType of member getAt(CDXNameDrpList, t) to #adjust
  7.     if the machineType > 200 then
  8.       set the textFont of member getAt(CDXNameDrpList, t) to "Arial"
  9.     else
  10.       set the textFont of member getAt(CDXNameDrpList, t) to "Geneva"
  11.     end if
  12.     set the textStyle of member getAt(CDXNameDrpList, t) to "bold"
  13.     set thiscastnum to the memberNum of member getAt(CDXNameDrpList, t)
  14.     set the editable of member (thiscastnum + 1) to 0
  15.     set the boxType of member (thiscastnum + 1) to #fixed
  16.   end repeat
  17.   repeat with t = 1 to count(CDXNameSelList)
  18.     set the editable of member getAt(CDXNameSelList, t) to 0
  19.     set the textSize of member getAt(CDXNameSelList, t) to 12
  20.     set the boxType of member getAt(CDXNameSelList, t) to #adjust
  21.     if the machineType > 200 then
  22.       set the textFont of member getAt(CDXNameSelList, t) to "Arial"
  23.     else
  24.       set the textFont of member getAt(CDXNameSelList, t) to "Geneva"
  25.     end if
  26.     set the textStyle of member getAt(CDXNameSelList, t) to "bold"
  27.     put "s" into field getAt(CDXNameSelList, t)
  28.   end repeat
  29.   put EMPTY into field "SelectedFour"
  30.   put EMPTY into field "SelectedEight"
  31.   put "  DATABASE" into field "SelectedOne"
  32.   put " contains" into field "SelectedTwo"
  33.   set the editable of member "SelectedThree" to 1
  34.   put EMPTY into field "SelectedThree"
  35.   set the member of sprite 21 to member "SelectedOne"
  36.   set the member of sprite 22 to member "SelectedTwo"
  37.   set the member of sprite 23 to member "SelectedThree"
  38.   set the loc of sprite 23 to point(335, 126)
  39.   set the ink of sprite 23 to 36
  40.   set the loc of sprite 21 to point(96, 127)
  41.   set the ink of sprite 21 to 36
  42.   set the loc of sprite 22 to point(237, 126)
  43.   set the ink of sprite 22 to 36
  44.   cursor(-1)
  45.   updateStage()
  46. end
  47.