home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00023_CDXDefault.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  1.3 KB  |  33 lines
  1. on CDXDefault
  2.   global WhichInxTopMenuList
  3.   cursor(4)
  4.   updateStage()
  5.   set the editable of member "CDWordSearchField" to 1
  6.   set the textSize of member "CDWordSearchField" to 12
  7.   put " " into field "CDWordSearchField"
  8.   set the boxType of member "CDWordSearchField" to #fixed
  9.   if the machineType > 200 then
  10.     set the textFont of member "CDWordSearchField" to "Arial"
  11.   else
  12.     set the textFont of member "CDWordSearchField" to "geneva"
  13.   end if
  14.   set the textStyle of member "CDWordSearchField" to "bold"
  15.   repeat with t = 1 to count(WhichInxTopMenuList)
  16.     set the editable of member getAt(getAt(WhichInxTopMenuList, t), 3) to 0
  17.     set the textSize of member getAt(getAt(WhichInxTopMenuList, t), 3) to 12
  18.     set the boxType of member getAt(getAt(WhichInxTopMenuList, t), 3) to #fixed
  19.     if the machineType > 200 then
  20.       set the textFont of member getAt(getAt(WhichInxTopMenuList, t), 3) to "Arial"
  21.     else
  22.       set the textFont of member getAt(getAt(WhichInxTopMenuList, t), 3) to "Geneva"
  23.     end if
  24.     set the textStyle of member getAt(getAt(WhichInxTopMenuList, t), 3) to "bold"
  25.   end repeat
  26.   repeat with t = 1 to 3
  27.     put "  SELECT ALL" into field getAt(getAt(WhichInxTopMenuList, t), 4)
  28.   end repeat
  29.   put "  ALL" into field getAt(getAt(WhichInxTopMenuList, 4), 4)
  30.   cursor(-1)
  31.   updateStage()
  32. end
  33.