/* Custom.LXL - called from PROFILE.LX           */
/*    written by Eric Pence                      */

'extract doctype'

/* Set <Enter> key to create a new line if not RPG spec. */
if ((doctype <> "VPG") & (doctype <> "RPG"))  then
   'SET ACTION.ENTER ; SPLITJOIN SPLIT ; NEXT ELEMENT ; SET CURSORCOL 1 '
else
 /*  'SET ACTION.ENTER ; NEXT ELEMENT'    */
   'SET ACTION.ENTER ; BLOCK CLEAR ; PRIMITIVE SETCURSOR ; PRIMITIVE SETPOINTER; BLOCK SET ELEMENT'

/* Put cursor focus at top of source and save position as 'prior'. */
'set focus.top 1'
'mark set prior'

/* Re-enable double-click w/button1 to select entire line. */
'SET ACTION.BUTTON1DOWN     ;BLOCK CLEAR;PRIMITIVE SETCURSOR; PRIMITIVE SETPOINTER; SET BLOCKDEFAULTTYPE STREAM'
'SET ACTION.C-BUTTON1DOWN   ;PRIMITIVE SETCURSOR; PRIMITIVE SETPOINTER; BLOCK SET ELEMENT'
'SET ACTION.BUTTON1DOUBLE   ;BLOCK CLEAR; PRIMITIVE SETCURSOR; PRIMITIVE SETPOINTER; BLOCK SET ELEMENT'

/**************************************************************/
/*** Customize toolbar.   *************************************/
/**************************************************************/

/* Repeat last Find -- using supplied icon. */
'SET TOOLBAR.Next BITMAP _28 HELP "Find next" 12 find'

/**************************************************************/
/*** Create new custom drop-down menu.   **********************/
/**************************************************************/

/* Add some help options. */
/* Note: these files were saved from V3R2M2, help is now online  */
'SET ACTIONBAR.~Custom.Information.VRPG_~Language_Reference START IVIEW c:\varpg\Help\SC092451.INF'
'SET ACTIONBAR.~Custom.Information.VRPG_~Parts_Reference START IVIEW c:\varpg\Help\SC092450.INF'
'SET ACTIONBAR.~Custom.Information.VRPG_Read_Me START IVIEW c:\varpg\Help\evfread.inf'
'SET ACTIONBAR.~Custom.Information.VRPG_Messages START IVIEW c:\varpg\Help\Evfrnv40.inf'
'SET ACTIONBAR.~Custom.Information.Separator ;'
'SET ACTIONBAR.~Custom.Information.Editor_~Command_reference START IVIEW c:\varpg\Help\LPXCREF.INF'
'SET ACTIONBAR.~Custom.Information.Editor_~Extras_functions START IVIEW c:\varpg\Help\EVFEXTRA.INF'
'SET ACTIONBAR.~Custom.Information.Editor_~How_do_I... START IVIEW c:\varpg\Help\lpexhdi.inf'
'SET ACTIONBAR.~Custom.Information.Separator ;'
'SET ACTIONBAR.~Custom.Information.CODE_~Start-Here START IVIEW c:\varpg\Help\evfread.inf'
'SET ACTIONBAR.~Custom.Information.CODE_~Tips_and_Techniques START IVIEW c:\varpg\Help\EVFFAQ.INF'
'SET ACTIONBAR.~Custom.Information.CODE_Read_Me START IVIEW c:\varpg\Help\evfread.inf'

'set actionbar.~Custom.Separator ;'

/*-- Top of source (save current position as 'prior') --*/
'set actionbar.~Custom.~Top\tAlt+T ; mark set prior ; top ; set focus.top 1'
'set group. docnonempty'
'set action.A-T ; mark set prior ; top ; set focus.top 1'
'set group. docnonempty'

/*-- Bottom of source (save current position as 'prior') --*/
'set actionbar.~Custom.~Bottom\tAlt+B ; mark set prior ; bottom ; cursorpos 1'
'set group. docnonempty'
'set action.A-B ; mark set prior ; bottom ; cursorpos 1'
'set group. docnonempty'

/*-- Prior position in source --*/
'set actionbar.~Custom.~Prior_position\tAlt+P macro prevpos'
'set group. docnonempty'
'set action.A-P macro prevpos'
'set group. docnonempty'

'set actionbar.~Custom.Separator ;'

/*-- Resequence prefix numbers --*/
'set actionbar.~Custom.~Resequence ; prefixrenumber 100 100 ; set changes 999'
'set group. writeable docnonempty'

'set actionbar.~Custom.Separator ;'

/*-- Find next occurance of last find string --*/
'set actionbar.~Custom.Repeat_last_~Find. ;'
'set group. docnonempty'
'set actionbar.~Custom.Repeat_last_~Find.Search_~down\tAlt+F find'
'set group. docnonempty'
'set action.A-F find'
'set group. docnonempty'

/*-- Find previous occurance of last find string --*/
'set actionbar.~Custom.Repeat_last_~Find.Search_~up\tAlt+U find up'
'set group. docnonempty'
'set action.A-U find up'
'set group. docnonempty'

/*-- Zoom on text -- */
'set actionbar.~Custom.~Zoom_selected_text\tAlt+Z macro zoom'
'set group. docnonempty'
'set action.A-Z macro zoom'
'set group. docnonempty'

/*-- Match begin and end logic -- */
'set actionbar.~Custom.~Match_begin-end\tAlt+M macro match'
'set group. docnonempty'
'set action.A-M macro match'
'set group. docnonempty'

'set actionbar.~Custom.Separator ;'

/*-- Insert a blank line --*/
'set actionbar.~Custom.~Insert_blank_line. ;'
'set group. writeable docnonempty'
'set actionbar.~Custom.~Insert_blank_line.~Before\tAlt+I splitjoin split'
'set group. writeable docnonempty'
'set action.A-I splitjoin split'
'set group. writeable docnonempty'
'set actionbar.~Custom.~Insert_blank_line.~After\tAlt+A add 1'
'set group. writeable docnonempty'
'set action.A-A add 1'
'set group. writeable docnonempty'

/*-- Duplicate current line --*/
'set actionbar.~Custom.~Duplicate_line\tAlt+D dup 1'
'set group. writeable docnonempty'
'set action.A-D dup 1'
'set group. writeable docnonempty'

/*-- Convert block to upper case --*/
'set actionbar.~Custom.~Upper-case\tAlt+U block upper'
'set group. writeable docnonempty'
'set action.A-U block upper'
'set group. writeable docnonempty'

'prefixshow numbers off'

/*-- Locate and size window --*/
'macro winpos.lx'