home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / RVXPCW09.DXR / 00003_RVXDefault.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  2.5 KB  |  63 lines
  1. on RVXDEFAULT
  2.   global RVXNameDrpList, RVXNameSelList
  3.   repeat with t = 1 to count(RVXNameDrpList)
  4.     set the editable of member getAt(RVXNameDrpList, t) to 0
  5.     set the textSize of member getAt(RVXNameDrpList, t) to 12
  6.     set the boxType of member getAt(RVXNameDrpList, t) to #adjust
  7.     if the machineType > 200 then
  8.       set the textFont of member getAt(RVXNameDrpList, t) to "Arial"
  9.     else
  10.       set the textFont of member getAt(RVXNameDrpList, t) to "Geneva"
  11.     end if
  12.     set the textStyle of member getAt(RVXNameDrpList, t) to "bold"
  13.     set thiscastnum to the memberNum of member getAt(RVXNameDrpList, 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(RVXNameSelList)
  18.     set the editable of member getAt(RVXNameSelList, t) to 0
  19.     set the textSize of member getAt(RVXNameSelList, t) to 12
  20.     set the boxType of member getAt(RVXNameSelList, t) to #adjust
  21.     if the machineType > 200 then
  22.       set the textFont of member getAt(RVXNameSelList, t) to "Arial"
  23.     else
  24.       set the textFont of member getAt(RVXNameSelList, t) to "Geneva"
  25.     end if
  26.     set the textStyle of member getAt(RVXNameSelList, t) to "bold"
  27.     put "s" into field getAt(RVXNameSelList, t)
  28.   end repeat
  29.   put EMPTY into field "SelectedFour"
  30.   put EMPTY into field "SelectedEight"
  31.   put "PRODUCT NAME" into field "SelectedOne"
  32.   updateStage()
  33.   set the textStyle of member "SelectedOne" to "bold"
  34.   set the textSize of member "SelectedOne" to 12
  35.   if the machineType > 200 then
  36.     set the textFont of member "SelectedOne" to "Arial"
  37.   else
  38.     set the textFont of member "SelectedOne" to "Geneva"
  39.   end if
  40.   put "contains" into field "SelectedTwo"
  41.   updateStage()
  42.   set the textStyle of member "SelectedTwo" to "bold"
  43.   set the textSize of member "SelectedTwo" to 12
  44.   if the machineType > 200 then
  45.     set the textFont of member "SelectedTwo" to "Arial"
  46.   else
  47.     set the textFont of member "SelectedTwo" to "Geneva"
  48.   end if
  49.   set the editable of member "SelectedThree" to 1
  50.   put EMPTY into field "SelectedThree"
  51.   set the member of sprite 21 to member "SelectedOne"
  52.   set the member of sprite 22 to member "SelectedTwo"
  53.   set the member of sprite 23 to member "SelectedThree"
  54.   set the loc of sprite 23 to point(350, 121)
  55.   set the ink of sprite 23 to 36
  56.   set the loc of sprite 21 to point(96, 122)
  57.   set the ink of sprite 21 to 36
  58.   set the loc of sprite 22 to point(252, 121)
  59.   set the ink of sprite 22 to 36
  60.   cursor(-1)
  61.   updateStage()
  62. end
  63.