home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / tema / mattes / ip / ip30 / data.1 / KRSTART.WBS < prev    next >
Text File  |  1996-09-20  |  2KB  |  47 lines
  1. Option Compare Text ' This makes string comparisons case-insensitive.
  2.  
  3. Sub Main()
  4.     dim wmdirectory as string, sep as string
  5.     dim currentdirectory as string
  6.     currentdirectory = CurDir$
  7.     if basic.os = ebWin16 or basic.os = ebWin32 then
  8.          wmdirectory = wm.StartupDirectory
  9.     else
  10.         wmdirectory = CurDir$
  11.     end if
  12.     ChDir(wmdirectory)
  13.     sep = Basic.PathSeparator$        ' Stores the appropriate path separator for this platform
  14.     ' Define all the files with a wbs extension inside the scripts directory/folder
  15.     If (Dir$("SCRIPTS", ebDirectory) = "SCRIPTS") THEN    ' The directory/folder SCRIPTS exists
  16.         Dim f(20) as string, fullname as string, scriptdir as string
  17.         scriptdir = wmdirectory + sep + "SCRIPTS" 
  18.         ChDir(scriptdir)                    'Set to the SCRIPT directory
  19.         f(1) = Dir$("*.wbs")                ' Find the first file with a .wbs extension
  20.         i% = 1
  21.         While (f(i) <> "") And (i < 20)        'Define the first 20 scripts found
  22.             fullname = scriptdir + sep + f(i)
  23.             WM.InsertMenuItem i, f(i), fullname
  24.             i = i+1
  25.             f(i) = Dir$                        ' Get next file with a .wbs extension
  26.         Wend
  27.     End If
  28.     ' Define the "Official KR" scripts
  29.     ' Demo scripts
  30.     Dim krscripts as string
  31.     krscripts = scriptdir + sep + "KRDEMOS"
  32.     If (Dir$("KRDEMOS",ebDirectory) = "KRDEMOS") then    ' The directory/folder KRDEMOS exists
  33.         WM.InsertMenuItem 1,"Create Constraint", krscripts + sep + "bldcons.wbs"
  34.         WM.InsertMenuItem 2,"Document Model", krscripts + sep + "docinfo.wbs"
  35.         WM.InsertMenuItem 3,"Zoom to Extent", krscripts + sep + "krzoom.wbs"
  36.         WM.InsertMenuItem 4,"Measure Between Points", krscripts + sep + "measure.wbs"
  37.         WM.InsertMenuItem 5,"Flip Polygon", krscripts + sep + "flipoly.wbs"
  38.     end If        
  39.      ' Run the User startup file
  40.     dim userstartup as string
  41.      userstartup = wmdirectory + sep + "startup.wbs"
  42.     If FileExists(userstartup) then
  43.          wm.RunScript userstartup
  44.     end If
  45.     ChDir(currentdirectory)
  46. End Sub
  47.