home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00023_CDXDefault.ls < prev    next >
Encoding:
Text File  |  1997-05-22  |  1.2 KB  |  30 lines
  1. on CDXDefault
  2.   global CDXTopMenuList
  3.   set the editable of member "CDWordSearchField" to 1
  4.   set the textSize of member "CDWordSearchField" to 12
  5.   put " " into field "CDWordSearchField"
  6.   set the boxType of member "CDWordSearchField" to #fixed
  7.   if the machineType > 200 then
  8.     set the textFont of member "CDWordSearchField" to "Arial"
  9.   else
  10.     set the textFont of member "CDWordSearchField" to "geneva"
  11.   end if
  12.   set the textStyle of member "CDWordSearchField" to "bold"
  13.   repeat with t = 1 to count(CDXTopMenuList)
  14.     set the editable of member getAt(getAt(CDXTopMenuList, t), 3) to 0
  15.     set the textSize of member getAt(getAt(CDXTopMenuList, t), 3) to 12
  16.     set the boxType of member getAt(getAt(CDXTopMenuList, t), 3) to #fixed
  17.     if the machineType > 200 then
  18.       set the textFont of member getAt(getAt(CDXTopMenuList, t), 3) to "Arial"
  19.     else
  20.       set the textFont of member getAt(getAt(CDXTopMenuList, t), 3) to "Geneva"
  21.     end if
  22.     set the textStyle of member getAt(getAt(CDXTopMenuList, t), 3) to "bold"
  23.   end repeat
  24.   repeat with t = 1 to 3
  25.     put "  SELECT ALL" into field getAt(getAt(CDXTopMenuList, t), 4)
  26.   end repeat
  27.   put "  ALL" into field getAt(getAt(CDXTopMenuList, 4), 4)
  28.   updateStage()
  29. end
  30.