# PANEL.GUI -- Test GUI for the Tabs widget.

reset-server
appInitialize panel Panel {
    *objects:\
	toplevel	Frame		frame\
	frame		Tabs		panelTabs\
\
	panelTabs	Layout		panel\
	panel		Frame		label1F\
	label1F		Label		label1\
	panel		Frame		label2F\
	label2F		Label		label2\
	panel		Command		button1\
	panel		Command		button2\
	panel		RadioGroup	color\
\
	panelTabs	Frame		gtermFrame\
	gtermFrame	Gterm		gterm


    *background:				gray
    *foreground:				black

    *frame.highlightThickness:			0
    *frame.frameWidth:				3
    *frame.frameType:				raised
    *frame.innerOffset:				5
    *frame.outerOffset:				1

    *panel.debug:				False
    *panel.borderWidth:				0
    *panel.tabLabel:				Panel

    *gtermFrame.tabLabel:			Gterm Widget
    *gtermFrame.outerOffset:			7
    *gtermFrame.frameWidth:			3
    *gtermFrame.frameType:			sunken
    *gterm.width:				100
    *gterm.height:				100
    *gterm.maxColors:				5
    *gterm.cmapInitialize:			True

    *panel.layout: horizontal { \
	vertical { \
	    5 < +inf -5 > \
	    horizontal { \
		label1F < +inf * +inf > \
	    } \
	    5 < +inf -5 > \
	    horizontal { \
		label2F < +inf * +inf > \
	    } \
	    5 < +inf -5 > \
	    horizontal {\
		button1 < +inf * +inf > \
		5 < +inf -5 > \
		button2 < +inf * +inf > \
	    }\
	    5 < +inf -5 > \
	} \
	vertical { \
	    5 < +inf -5 > \
	    color < +inf * +inf > \
	} \
    }

    *Command.highlightThickness:		0
    *Label.borderWidth:				0
    *Label.background:				gray60
    *label1*shadowWidth:			0
    *label1F.frameType:				sunken
    *label1F.frameWidth:			2
    *label2*shadowWidth:			0
    *label2F.frameType:				sunken
    *label2F.frameWidth:			2

    *color.location:				0 0 100 0
    *color.shrinkToFit:				True
    *color.outerOffset:				10
    *color.innerOffset:				5
    *color.frameWidth:				2
    *color*offIcon:				diamond0s
    *color*onIcon:				diamond1s
    *color.red.highlightColor:			red
    *color.green.highlightColor:		green
    *color.blue.highlightColor:			blue
    *color.yellow.highlightColor:		yellow
    *color.label:				Color:
    *color.labels:				|red|green|blue|yellow
    *color.selectionStyle:			multi
    *color.selection:				0

    *allowShellResize:				true
    *beNiceToColormap:				False
}

# Start up the GUI.
createObjects
activate

proc quit args { send client gkey q; deactivate unmap }
send button1 addCallback quit