home *** CD-ROM | disk | FTP | other *** search
/ CICA 1994 September / CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso / win3 / desktop / sh93v100.lzh / WRITE < prev    next >
Text File  |  1993-09-07  |  780b  |  53 lines
  1.  
  2. BEGIN {
  3.     ctrl("write assistent", 2, 3, 123)
  4.  
  5.     win = exec("write " ARGV[0], 1) |: appwin();
  6.     printf ("window = %d", win);
  7.     }
  8.  
  9. /F2 "write aktivieren"/ {
  10.     focus(win);
  11.     }
  12.  
  13. /F3 "Helvetica 10"/ {
  14.     focus(win);
  15.     gkbd(MACRO["helv10"]);
  16.     }
  17.  
  18. /F4 "New Courier 10"/ {
  19.     focus(win);
  20.     gkbd(MACRO["cour10"]);
  21.     }
  22.  
  23.  
  24. /F5 "normaler Text"/ {
  25.     focus(win)
  26.     gkbd(MACRO["1.5"])
  27.     gkbd(MACRO["helv10"])
  28.     }
  29.  
  30. /F6 "Beispiel"/ {
  31.     focus(win)
  32.     gkbd(MACRO["2.0"])
  33.     gkbd(MACRO["cour10"])
  34.     }
  35.  
  36. /F7 "kein Einzug"/ {
  37.     focus(win)
  38.     gkbd(MACRO["0.0"])
  39.     }
  40.  
  41. /F8 "hängender Text"/ {
  42.     focus(win)
  43.     gkbd(MACRO["hängend"])
  44.     gkbd(MACRO["helv10"])
  45.     }
  46.  
  47. /shift F8 "hängender Text, eingerückt"/ {
  48.     focus(win)
  49.     keys = MACRO["hängend2"] & MACRO["helv10"]
  50.     status(keys)
  51.     gkbd(keys)
  52.     }
  53.