home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / mouse / sources / ws.def < prev   
Encoding:
Text File  |  1988-08-11  |  13.2 KB  |  395 lines
  1. ;
  2. ;       Wordstar pop-up mouse menus
  3. ;
  4.  
  5. ;       Set up initial labels for mouse commands
  6.  
  7.         begin leftb,rightb,bothb,mousel,mouser,mouseu,moused,16,40
  8.  
  9. ;       -------------------- Left Button ---------------------------
  10.  
  11. ;       Display edit/block menu if in edit mode else display no-file menu
  12.  
  13. leftb:  match 1,12,,"e",imen,chk33  ;Check for e in editing no file
  14. chk33:  match 1,12,,"n",imen,chkl   ;Check for n in not editing (V 3.3)
  15.  
  16. chkl:   match 1,11,,":",emen,nothing ;Check for : after drive letter
  17.  
  18.  
  19. ;       -------------------- Right button ------------------------
  20.  
  21. ;       If in edit mode execute cursor movement menu else nothing
  22.  
  23. rightb: match 1,11,,":",movmen,nothing    ;Check state of WS
  24.  
  25. ;       --------------------- Both buttons ------------------------
  26.  
  27. ;       If in edit mode execute edit/file menu, if not in edit
  28. ;       mode then type escape.
  29.  
  30. bothb:  match 1,11,,":",emen2,keyesc    ;Both buttons - Check state
  31.  
  32. ;       -------------------- Mouse left -----------------------
  33.  
  34. mousel: match 1,11,,":",lchkctrl,nothing          ;Edit mode?
  35. lchkctrl: match 1,1,,"^",nothing,keyctrls               ;Yes - Move left
  36.  
  37. ;       ------------------- Mouse right -----------------------
  38.  
  39. mouser: match 1,11,,":",rchkctrl,nothing          ;Edit mode?
  40. rchkctrl: match 1,1,,"^",nothing,keyctrld               ;Yes - Move right
  41.  
  42. ;       --------------------- Mouse up -----------------------
  43.  
  44. mouseu: match 1,11,,":",uchkctrl,nothing          ;Edit mode?
  45. uchkctrl: match 1,1,,"^",nothing,keyctrle         ;Yes - Move up
  46.  
  47. ;       ------------------- Mouse down -----------------------
  48.  
  49. moused: match 1,11,,":",dchkctrl,nothing          ;Edit mode?
  50. dchkctrl: match 1,1,,"^",nothing,keyctrlx               ;Yes - Move down
  51.  
  52. ;       Initial menu displayed when left button pressed
  53.  
  54. imen:   popup 2,1
  55.         text "╔══════════════════ < < <  N O - F I L E   M E N U  > > > ══════════════════╗"
  56.         text "║ Cancel menu    Change drive   Print a file   Rename a file  Run a program ║"
  57.         text "║ Open document  Toggle file dir               Delete a file  Run Spellstar ║"
  58.         text "║ Open non-doc   Set help level Exit to DOS    Copy a file    Run Mailmerge ║"
  59.         text "╚═══════════════════════════════════════════════════════════════════════════╝"
  60.         select 2,3,15
  61.         select 3,3,15,keyd
  62.         select 4,3,15,keyn
  63.         select 2,18,15,keyl
  64.         select 3,18,15,keyf
  65.         select 4,18,15,hlpmen
  66.         select 2,33,15,keyp
  67. ;
  68.         select 4,33,15,keyx
  69.         select 2,48,15,keye
  70.         select 3,48,15,keyy
  71.         select 4,48,15,keyo
  72.         select 2,63,14,keyr
  73.         select 3,63,14,keys
  74.         select 4,63,14,keym
  75.         pend
  76.  
  77. ;       Set help level
  78.  
  79. hlpmen: popup 2,1
  80.         text "╔═════ SET HELP LEVEL ════╗"
  81.         text "║       Cancel menu       ║"
  82.         text "║   All menus displayed   ║"
  83.         text "║  Main menu suppressed   ║"
  84.         text "║ Prefix menus suppressed ║"
  85.         text "║  All menus suppressed   ║"
  86.         text "╚═════════════════════════╝"
  87.         select 2,3,23
  88.         select 3,3,23,keyh3
  89.         select 4,3,23,keyh2
  90.         select 5,3,23,keyh1
  91.         select 6,3,23,keyh0
  92.         pend
  93.  
  94. ; Edit/Block menu - selected by pressing left button in edit mode
  95.  
  96. emen:   popup 2,1
  97.         text "╔══════ EDIT / BLOCK MENU ══════╗"
  98.         text "║ Cancel Menu      Begin block  ║"
  99.         text "║ Reform           End block    ║"
  100.         text "║ Center text      Copy block   ║"
  101.         text "║ Toggle insert    Move block   ║"
  102.         text "║ Find text        Delete block ║"
  103.         text "║ Find/Replace     Write block  ║"
  104.         text "║ Find/Replace agn Column block ║"
  105.         text "╚═══════════════════════════════╝"
  106.         select 2,3,17
  107.         select 3,3,17,keyctrlb
  108.         select 4,3,17,keyctrloc
  109.         select 5,3,17,keyctrlv
  110.         select 6,3,17,keyctrlqf
  111.         select 7,3,17,keyctrlqa
  112.         select 8,3,17,keyctrll
  113.         select 2,20,12,keyctrlkb
  114.         select 3,20,12,keyctrlkk
  115.         select 4,20,12,keyctrlkc
  116.         select 5,20,12,keyctrlkv
  117.         select 6,20,12,keyctrlky
  118.         select 7,20,12,keyctrlkw
  119.         select 8,20,12,keyctrlkn
  120.         pend
  121.  
  122. ; Edit / File menu displayed when both buttons pressed in edit mode
  123.  
  124. emen2:  popup 2,1
  125.         text "╔════════ EDIT / FILE MENU ════════╗"
  126.         text "║ Cancel menu    Print/Format menu ║"
  127.         text "║ Save & Resume  Margins/Tabs menu ║"
  128.         text "║ Save & Done    Toggles menu      ║"
  129.         text "║ Save & Exit    File command menu ║"
  130.         text "║ Abandon file   Help menu         ║"
  131.         text "╚══════════════════════════════════╝"
  132.         select 2,3,15
  133.         select 3,3,15,keyctrlks
  134.         select 4,3,15,keyctrlkd
  135.         select 5,3,15,keyctrlkx
  136.         select 6,3,15,keyctrlkq
  137.         select 2,18,17,frmtmen
  138.         select 3,18,17,mtmen
  139.         select 4,18,17,togmen
  140.         select 5,18,17,filmen
  141.         select 6,18,17,hlpmen2
  142.         pend
  143.  
  144. ; Print/Format menu selected from Edit menu
  145.  
  146. frmtmen: popup 2,1
  147.         text "╔═════════════ PRINT FORMAT MENU ═══════════════╗"
  148.         text "║ Cancel menu    Subscript      Print pause     ║"
  149.         text "║ Bold           Superscript    Overprint line  ║"
  150.         text "║ Double strike  Strikeout      Nonbreak space  ║"
  151.         text "║ Underscore     Phantom space  Standard pitch  ║"
  152.         text "║ Overprint char Phantom Rubout Alternate pitch ║"
  153.         text "╚═══════════════════════════════════════════════╝"
  154.         select 2,3,15
  155.         select 3,3,15,keyctrlpb
  156.         select 4,3,15,keyctrlpd
  157.         select 5,3,15,keyctrlps
  158.         select 6,3,15,keyctrlph
  159.         select 2,18,15,keyctrlpv
  160.         select 3,18,15,keyctrlpt
  161.         select 4,18,15,keyctrlpx
  162.         select 5,18,15,keyctrlpf
  163.         select 6,18,15,keyctrlpg
  164.         select 2,33,15,keyctrlpc
  165.         select 3,33,15,keyctrlprk
  166.         select 4,33,15,keyctrlpo
  167.         select 5,33,15,keyctrlpn
  168.         select 6,33,15,keyctrlpa
  169.         pend
  170.  
  171. ;       Margins/Tabs menu selected from main edit menu
  172.  
  173. mtmen:  popup 2,1
  174.         text "╔══════════ MARGINS / TABS MENU ════════════╗"
  175.         text "║ Cancel menu        Set a tab stop         ║"
  176.         text "║ Set left margin    Set tab stop at cursor ║"
  177.         text "║ Set right margin   Set a paragraph tab    ║"
  178.         text "║ Release margins    Clear a tab stop       ║"
  179.         text "╚═══════════════════════════════════════════╝"
  180.         select 2,3,19
  181.         select 3,3,19,keyctrlol
  182.         select 4,3,19,keyctrlor
  183.         select 5,3,19,keyctrlox
  184.         select 2,22,22,keyctrloi
  185.         select 3,22,22,keyctrloie
  186.         select 4,22,22,keyctrlog
  187.         select 5,22,22,keyctrlon
  188.         pend
  189.  
  190. ; Help menu selected from Edit/File menu
  191.  
  192. hlpmen2: popup 2,1
  193.         text "╔═════════════ HELP MENU ══════════════╗"
  194.         text "║ Cancel menu           Mouse help     ║"
  195.         text "║ Set help level        Status line    ║"
  196.         text "║ Paragraph reform      Ruler line     ║"
  197.         text "║ Flags in right column Margins & tabs ║"
  198.         text "║ Dot commands          Place markers  ║"
  199.         text "║ Index of commands     Moving text    ║"
  200.         text "╚══════════════════════════════════════╝"
  201.         select 2,3,22
  202.         select 3,3,22,chlpmen
  203.         select 4,3,22,keyctrljb
  204.         select 5,3,22,keyctrljf
  205.         select 6,3,22,keyctrljd
  206.         select 7,3,22,keyctrlji
  207.         select 2,25,14,mousehlp
  208.         select 3,25,14,keyctrljs
  209.         select 4,25,14,keyctrljr
  210.         select 5,25,14,keyctrljm
  211.         select 6,25,14,keyctrljp
  212.         select 7,25,14,keyctrljv
  213.         pend
  214.  
  215. ; Set help level from edit mode - ctrlj then h0,h1,h2,h3
  216.  
  217. chlpmen: execute keyctrlj,hlpmen
  218.  
  219. ;       Mouse help
  220.  
  221. mousehlp: popup 2,1
  222.         text "╔════════════════ MOUSE  HELP ══════════════════╗"
  223.         text "║                                               ║"
  224.         text "║ Left button  - Displays Edit/Block menu       ║"
  225.         text "║ Right button - Displays Cursor movement menu  ║"
  226.         text "║ Both buttons - Displays Edit/File menu        ║"
  227.         text "║                                               ║"
  228.         text "║ Moving the mouse up,down,left, or right will  ║"
  229.         text "║ cause the cursor to move in that direction.   ║"
  230.         text "║                                               ║"
  231.         text "╚═══════════════════════════════════════════════╝"
  232.         select 1,19,11
  233.         pend
  234.  
  235. ; File command menu selected from main edit menu
  236.  
  237. filmen: popup 2,1
  238.         text "╔ FILE COMMANDS ╗"
  239.         text "║  Cancel menu  ║"
  240.         text "║  Read a file  ║"
  241.         text "║  Copy a file  ║"
  242.         text "║ Delete a file ║"
  243.         text "║ Rename a file ║"
  244.         text "║  Print a file ║"
  245.         text "╚═══════════════╝"
  246.         select 2,3,13
  247.         select 3,3,13,keyctrlkr
  248.         select 4,3,13,keyctrlko
  249.         select 5,3,13,keyctrlkj
  250.         select 6,3,13,keyctrlke
  251.         select 7,3,13,keyctrlkp
  252.         pend
  253.  
  254. ; Toggle menu selected from main edit menu
  255.  
  256. togmen: popup 2,1
  257.         text "╔════════════ TOGGLES MENU ══════════════╗"
  258.         text "║ Cancel menu       Toggle soft hyphen   ║"
  259.         text "║ Toggle ruler line Toggle vari-Tabs     ║"
  260.         text "║ Toggle word wrap  Toggle print display ║"
  261.         text "║ Toggle justify    Toggle auto page brk ║"
  262.         text "╚════════════════════════════════════════╝"
  263.         select 2,3,18
  264.         select 3,3,18,keyctrlot
  265.         select 4,3,18,keyctrlow
  266.         select 5,3,18,keyctrloj
  267.         select 2,21,20,keyctrloe
  268.         select 3,21,20,keyctrlov
  269.         select 4,21,20,keyctrlod
  270.         select 5,21,20,keyctrlop
  271.         pend
  272.  
  273. ; Cursor movement menu displayed when right button pressed in edit mode
  274.  
  275. movmen: popup 2,1
  276.         text "╔═══════ CURSOR MOVEMENT ═══════╗"
  277.         text "║ Cancel menu    Top of screen  ║"
  278.         text "║ Screen up      Bottom of scrn ║"
  279.         text "║ Screen down    Start of file  ║"
  280.         text "║ Previous place End of file    ║"
  281.         text "╚═══════════════════════════════╝"
  282.         select 2,3,15
  283.         select 3,3,15,keyctrlr
  284.         select 4,3,15,keyctrlc
  285.         select 5,3,15,keyctrlqp
  286.         select 2,18,15,keyctrlqe
  287.         select 3,18,15,keyctrlqx
  288.         select 4,18,15,keyctrlqr
  289.         select 5,18,15,keyctrlqc
  290.         pend
  291.  
  292. ;               --- Key Commands ---
  293.  
  294. keyctrls: type 19                       ;Ctrl S - Left char
  295. keyctrld: type 4                        ;Ctrl D - Right char
  296. keyctrle: type 5                        ;Ctrl E - Up char
  297. keyctrlx: type 24                       ;Ctrl X - Down char
  298. keyctrlr: type 18                       ;Ctrl R - Screen down
  299. keyctrlj: type 10
  300. keyctrlk: type 11
  301. keyctrlkb: type 11,"B"
  302. keyctrlkc: type 11,"C"
  303. keyctrlkd: type 11,"D"
  304. keyctrlkk: type 11,"K"
  305. keyctrlkn: type 11,"N"
  306. keyctrlkp: type 11,"P"
  307. keyctrlkx: type 11,"X"
  308. keyctrlks: type 11,"S"
  309. keyctrlkq: type 11,"Q"
  310. keyctrlkv: type 11,"V"
  311. keyctrlkw: type 11,"W"
  312. keyctrlky: type 11,"Y"
  313. keyctrlkr: type 11,"R"
  314. keyctrlko: type 11,"O"
  315. keyctrlkj: type 11,"J"
  316. keyctrlke: type 11,"E"
  317. keyctrll:  type 12
  318. keyctrlb: type 2
  319. keyctrlc: type 3
  320. keyctrlg: type 7
  321. keyctrlp: type 16
  322. keyctrlq: type 17
  323. keyctrlo: type 15
  324. keyctrlv: type 22
  325. keyctrljb: type 10,"B"
  326. keyctrljf: type 10,"F"
  327. keyctrljd: type 10,"D"
  328. keyctrlji: type 10,"I"
  329. keyctrljs: type 10,"S"
  330. keyctrljr: type 10,"R"
  331. keyctrljp: type 10,"P"
  332. keyctrljm: type 10,"M"
  333. keyctrljv: type 10,"V"
  334. keyctrloc: type 15,"C"
  335. keyctrlox: type 15,"X"
  336. keyctrlol: type 15,"L"
  337. keyctrlor: type 15,"R"
  338. keyctrloi: type 15,"I"
  339. keyctrloie: type 15,"I",27
  340. keyctrlog: type 15,"G"
  341. keyctrlon: type 15,"N"
  342. keyctrlot: type 15,"T"
  343. keyctrlow: type 15,"W"
  344. keyctrloj: type 15,"J"
  345. keyctrloe: type 15,"E"
  346. keyctrlov: type 15,"V"
  347. keyctrlod: type 15,"D"
  348. keyctrlop: type 15,"P"
  349. keyctrlprk: type 16,13                          ;Ctrl K then return key
  350. keyctrlpa: type 16,"A"
  351. keyctrlpb: type 16,"B"
  352. keyctrlpc: type 16,"C"
  353. keyctrlpd: type 16,"D"
  354. keyctrlpf: type 16,"F"
  355. keyctrlpg: type 16,"G"
  356. keyctrlph: type 16,"H"
  357. keyctrlpn: type 16,"N"
  358. keyctrlpo: type 16,"O"
  359. keyctrlps: type 16,"S"
  360. keyctrlpt: type 16,"T"
  361. keyctrlpv: type 16,"V"
  362. keyctrlpx: type 16,"X"
  363. keyctrlqa: type 17,"A"
  364. keyctrlqe: type 17,"E"
  365. keyctrlqf: type 17,"F"
  366. keyctrlqr: type 17,"R"
  367. keyctrlqc: type 17,"C"
  368. keyctrlqk: type 17,"K"
  369. keyctrlqp: type 17,"P"
  370. keyctrlqq: type 17,"Q"
  371. keyctrlqx: type 17,"X"
  372. keyctrlqy: type 17,"Y"
  373. keyd:   type "D"                ;D - Open Document
  374. keye:   type "E"                ;E - Rename
  375. keyf:   type "F"                ;F - Toggle directory
  376. keyh:   type "H"                ;H - Help menu
  377. keyh0:  type "H0"               ;H - Set help level 0
  378. keyh1:  type "H1"               ;H - Set help level 1
  379. keyh2:  type "H2"               ;H - Set help level 2
  380. keyh3:  type "H3"               ;H - Set help level 3
  381. keyl:   type "L"                ;L - Change drive
  382. keym:   type "M"                ;M - Run mailmerge
  383. keyn:   type "N"                ;N - Open Non document
  384. keyo:   type "O"                ;O - Copy
  385. keyp:   type "P"                ;P - Print
  386. keyr:   type "R"                ;R - Run program
  387. keys:   type "S"                ;S - Run spellstar
  388. keyx:   type "X"                ;X - Exit
  389. keyy:   type "Y"                ;Y - Delete
  390. keyesc: type 27                 ;Escape
  391.  
  392. NOTHING:        NOTHING
  393.  
  394. ; The end
  395.