home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / Rich-Martin.LZH / Config!G < prev    next >
Text File  |  1988-11-15  |  2KB  |  43 lines
  1. ======== The Director Language Commands ========
  2.  
  3. <normal-space:
  4.     typeChar(32)
  5.     runKey(virtual-a) >
  6.  
  7. <normal-return:
  8.     typeChar(10)
  9.     runKey(virtual-a) >
  10.  
  11. <normal-tab:
  12.     typeChar(9)
  13.     runKey(virtual-a) >
  14.  
  15. /* set up buffer for Director's keywords */
  16. <ShftAltCtl-z:
  17.     clearRgn(buf90, all)
  18.     insertRgn(buf90, sFile, "_abort_and_display_dissolve_draw_
  19. _drawmode_ellipse_else_endif_execute_fade_fill_for_free_
  20. _getkey_getmouse_getpen_gosub_goto_
  21. _if_ifkey_ifmouse_load_loadanim_loadfont_memory_move_next_
  22. _open_or_palette_pause_pen_pointer_read_rect_rem_rotate_setblack_
  23. _setfont_speed_step_text_then_to_wipe_write_", all)
  24.     equateLoc(buf90,sInvert,sFile)
  25.     equateLoc(buf90,eInvert,eFile) >
  26.     
  27. /* check for Director's keywords, make caps if found */
  28. <virtual-a:
  29.     equateLoc(curFile,locA,atCursor)    ..store current cursor location
  30.     if (is(curFile, sWord))            ..if it's at the beginning of a word
  31.         runKey(shft-leftArrow)        ..move back to previous word
  32.     else
  33.         moveCursor(curFile,sWord)    ..or just move to start of word
  34.     clearRgn(buf54,all)                ..erase our workspace
  35.     insertRgn(buf54,sFile,"_", all)    ..we start with a bounding character
  36.     insertRgn(buf54,eFile,curFile,word)    ..add our current word
  37.     insertRgn(buf54,eFile,"_", all)    ..and bound the tail
  38.     moveCursor(buf90,sFile)            ..always start from the beginning,
  39.     setSearch(buf54)                ..specify which buffer to search,
  40.     if (search(buf90, sInvert, eInvert, 1))    ..if it's a keyword
  41.         runkey(ShftCtl-u)            ..make it uppercase
  42.     moveCursor(curFile, locA) >      ..restore original cursor location
  43.