pro second

common values,aval,bval,result
c=0.
top=widget_base(title='Pythagorean Calculator',/column)
base1=widget_base(top,/column)
aval=cw_field(base1,title='A Value')
bval=cw_field(base1,title='B Value')
result=widget_text(base1,value='Hypotenuse Measures:'+string(c))
base2=widget_base(top,/row)
calculate=widget_button(base2, value='Calculate',uvalue=1)
continue=widget_button(base2,value='Done',uvalue=2)
widget_control,top,/realize

xmanager, 'second', top

return
end

;---------------------------------------------------------
pro second_event, event

common values,aval,bval,result
widget_control, event.id, get_uvalue=buttonpress

if (buttonpress eq 2) then widget_control,event.top,/destroy else begin

	widget_control,aval,get_value=a
	widget_control,bval,get_value=b

	a=float(a)
	b=float(b)
	c=sqrt(a^2+b^2)
	widget_control,result,set_value='Hypotenuse Measures:'+string(c)
endelse
return
end