#
#       XDME startup-file
#
#       $VER: .edrc V1.01 (22.11.1992)
#

# give XDME more CPU-time
taskpri 1

map (c-`) `(`') left'
map `c-(' ``()' left'

# Make menus
menuoff
menuclear

menuadd Project `New ...         A-n' A-n
menuadd Project `Load ...        A-o' A-o
menuadd Project `Insfile ...        ' arpinsfile
menuadd Project `Project load       ' projectload
menuadd Project ` ' `'
menuadd Project `Save            A-s' A-s
menuadd Project `Save as ...     A-a' A-a
menuadd Project `Save & Iconify     ' `A-s A-i'
menuadd Project `Project save       ' projectsave
menuadd Project `  ' `'
menuadd Project `Print           A-p' A-p
menuadd Project `Print as ...       ' `title `Not yet :-)''
menuadd Project `   ' `'
menuadd Project `Iconify         A-i' A-i
menuadd Project `    ' `'
menuadd Project `Save & Quit        ' `A-s A-q'
menuadd Project `Quit window     A-q' A-q
menuadd Project `Quit XDME       A-Q' A-Q

menuadd Edit `Cut           A-x' A-x
menuadd Edit `Copy          A-c' A-c
menuadd Edit `Paste         A-v' A-v
menuadd Edit `Erase            ' bdelete
menuadd Edit ` ' `'
menuadd Edit `Undo          A-z' A-z
menuadd Edit `  ' `'
menuadd Edit `Find ...      A-f' A-f
menuadd Edit `Find Next     a-n' a-n
menuadd Edit `Find Prev     a-p' a-p
menuadd Edit `   ' `'
menuadd Edit `Replace ...   A-r' A-r
menuadd Edit `Rep. Next    as-n' as-n
menuadd Edit `Rep. Prev    as-p' as-p
menuadd Edit `Replace all      ' `push pos ifelse bl `goto block while cb `next if cb `ifelse x=1 `up last' left nextr'' goto end' `repeat -1 nextr' pop auto'

menuadd Block `Move block       ' bmove
menuadd Block `Copy Block       ' bcopy
menuadd Block `Unhighlite    a-u' a-u
menuadd Block `Print block      ' `push savetabs savetabs off bsave prt: pop savetabs'
menuadd Block `Save as ...      ' barpsave
menuadd Block `Indent block  a-i' a-i
menuadd Block `Outdent block a-I' a-I

menuadd Macros `Not yet :-)' `'

menuadd Settings `Load settings  ' loadconfig
menuadd Settings `Save settings  ' saveconfig
menuadd Settings `Source file ...' (escimm (source `))

menuon
savetabs on
autounblock on

map A-p `push savetabs push modified savetabs off saveas prt: pop modified pop savetabs'
map a-u unblock

# Source users .edrc-file
source s:.edrc_user
