;-----------------------------------------------------------------------;
;									;
;	LOGIMENU File definition for Logitech Modula-2 Editor		;
;	Copyright (C) 1987 LOGITECH, Inc.				;
;									;
;-----------------------------------------------------------------------;
begin leftb, middleb, rightb, mousel, mouser, mouseu, moused, 5, 10
;
;NOTE: with 2-button mouse, "middleb" means both buttons,
;      and CHORDS are disabled
;
leftb:	type 0,67	; [F9]
middleb:type 27		; ESC
rightb:	type 13		; CARRIAGE RETURN

chords lmb,lrb,mrb,allb

lmb:	execute lrb
mrb:	execute lrb
allb:	type 0,66	;F8
  
lrb:	menu "MOD EDITOR COMMANDS",4,10
	option "YES                   ", yes
	option "NO                    ", no
	option "DELETE LINE           ", delline
	option "GOTO LINE             ", goto
	option "PROCEDURE             ", proc
	option "IMPLEMENTATION MODULE ", impl
	option "DEFINITION MODULE     ", def
	option "MODULE                ", module
	option "HELP                  ", help
	option "CANCEL                "
	mend

yes:	type "y"
no:	type "n"
help:	type 0, 59	; F1
goto:	type 0, 107	; <ALT>F4
delline:type 0, 117

proc:	execute proc1, proc2, proc3
proc1:	type "PROCEDURE <XXX>",30,"END <XXX>;",0,72
proc2:	type 5,30,"BEGIN (* <XXX> *)",30,0,72,0,72,0,72
proc3:	type 1,17,0,117,"<XXX>",30,0,117

impl:	execute impl1, impl2, impl3
impl1:	type "IMPLEMENTATION MODULE <XXX>",30,"END <XXX>.",0,72
impl2:	type 5,30,"BEGIN (* <XXX> *)",30,0,72,0,72,0,72
impl3:	type 1,17,0,117,"<XXX>",30,0,117

def:	execute def1, def2
def1:	type "DEFINITION MODULE <XXX>",30,"END <XXX>.",0,72
def2:	type 1,17,0,117,"<XXX>",30,0,117

module:	execute module1, module2, module3
module1:type "MODULE <XXX>",30,"END <XXX>.",0,72
module2:type 5,30,"BEGIN (* <XXX> *)",30,0,72,0,72,0,72
module3:type 1,17,0,117,"<XXX>",30,0,117


mousel: type 0, 75
mouser: type 0, 77
mouseu: type 0, 72
moused: type 0, 80

; end of definition file
