# FRAME.GUI -- Test GUI for the frame and layout widgets.
# This gui can be run as "cl> hello gui=frame.gui".

reset-server
appInitialize frame Frame {
    *objects:\
	toplevel	Frame		frame\
	frame		Layout		panel\
	panel		Frame		label1_frame\
	label1_frame	Label		label1\
	panel		Frame		label2_frame\
	label2_frame	Label		label2\
	panel		Command		button1\
	panel		Command		button2

    *background:				gray
    *foreground:				black

    *frame.highlightThickness:			0
    *frame.frameWidth:				4
    *frame.frameType:				chiseled
    *frame.innerOffset:				5
    *frame.outerOffset:				5

    *panel.debug:				True
    *panel.borderWidth:				0

    *panel.layout: vertical {\
	5 < +inf - 5 > \
	horizontal { \
	    -1 \
	    label1_frame < +inf * +inf > \
	    -1 \
	} \
	5 < +inf - 5 > \
	horizontal { \
	    -1 \
	    label2_frame < +inf * +inf > \
	    -1 \
	} \
	5 < +inf - 5 > \
	horizontal {\
	    -1 < +inf > \
	    button1 \
	    5 < +inf -5 > \
	    button2 \
	    -1 < +inf > \
	}\
	5 < +inf - 5 > \
    }

    *Label.borderWidth:				0
    *Label.background:				gray60
    *label1*shadowWidth:			0
    *label1_frame.frameType:			sunken
    *label1_frame.frameWidth:			2
    *label2*shadowWidth:			0
    *label2_frame.frameType:			sunken
    *label2_frame.frameWidth:			2

    *allowShellResize:				true
    *beNiceToColormap:				False
}

# Start up the GUI.
createObjects
activate

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