### Copyright (C) 1996 Rasmus Ingemann Hansen
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software
### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

proc navigation {} {
    # Menues / Main menu / Navigation
    Desc "Navigation in the Main menu"
    ShortDesc "Navigation in Menu menu"

### Navigation ###
    Header head4 -text "Navigation" \
	-background gray \
	-help ""
    CheckBox actionMenuCheckBox44 \
	-text "When using page commands (+, -, Next, Prev) change current index pointer" \
	-help ""

    Line line11

    CheckBox actionMenuCheckBox33 \
	-text "You are running on a HP terminal"

    Label label00 \
	-text ""

    CheckBox actionMenuCheckBox3 \
	-text "and want to use (Home, Prev, Next, etc.)" \
	-help ""

    CheckBox actionMenuCheckBox4 \
	-text "and want softkeys available? (keypads=ON too)" \
	-help ""

    Frame frame1 -entries {actionMenuCheckBox3 actionMenuCheckBox4} \
	-orient top
    Frame frame2 -entries {actionMenuCheckBox33 label00} \
	-orient top
    Frame frame3 -entries {frame2 frame1} \
	-orient left
    
  ################################ Change  ################################
    Change {
	if {$actionMenuCheckBox33==1} {
		Enable frame1
	} {
		Disable frame1
	}
    }

  ############################## Init / Save ##############################

    Init {
    }

    Save {
	print "\n# when using the page commands (+,-,NEXT,PREV) change current msg pointer?"
        if {$actionMenuCheckBox44==0} {
		print "###movepage = OFF"
        } else {
		print "movepage = ON"
        }

	print "\n# are we running on an HP terminal and want HOME, PREV, NEXT, etc...?"
	if {$actionMenuCheckBox3!=0 && $actionMenuCheckBox33!=0} {
		print "keypad = ON"
	} else {
		print "###keypad = OFF"
	}

	print "\n# are we running on an HP terminal and want softkeys available too?"
	if {$actionMenuCheckBox4!=0 && $actionMenuCheckBox33!=0} {
		print "softkeys = ON"
	} else {
		print "###softkeys = OFF"
	}


   }
}



