home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_9_notepad.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  589 b   |  20 lines
  1. global gCDPath, NPWindowRect
  2.  
  3. on DoNotepad
  4.   set tmpWinList to string(the windowList)
  5.   if tmpWinList contains "Notepad" then
  6.     close(window "notepad")
  7.   else
  8.     set NPWindow to window "Notepad"
  9.     if voidp(NPWindowRect) then
  10.       set hzOrigin to the stageLeft + 10
  11.       set vertOrigin to the stageTop + 40
  12.       set NPWindowRect to rect(hzOrigin, vertOrigin, hzOrigin + 208, vertOrigin + 196)
  13.     end if
  14.     set the rect of NPWindow to NPWindowRect
  15.     set the windowType of NPWindow to 4
  16.     set the fileName of NPWindow to the pathName & "Notepad"
  17.     open(NPWindow)
  18.   end if
  19. end
  20.