| Re: CW_FORM woes [message #10257] |
Wed, 05 November 1997 00:00  |
barg
Messages: 3
Registered: September 1997
|
Junior Member |
|
|
David,
I didn't see 'all_tags' in my documentation for compound widgets. Thanks for
the hint. BTW, I understand the reluctance to use COMMON blocks, but in this
example below, I will have around 25 parameters to return to the calling
program. I'm new to IDL, and I'll have to investigate how to do this without
the use of COMMONS.
Again, thanks for your response.
Irene Barg
ibarg@as.arizona.edu
In article <MPG.ec92c8c6ef863ea989696@news.frii.com>, davidf@dfanning.com (David Fanning) writes:
|> [This followup was also posted to comp.lang.idl-pvwave]
|>
|> Irene Barg (barg@nickel.as.arizona.edu) writes:
|>
|> > Can anyone give me an working example of how to use CW_FORM?
|>
|> [...Pretty ugly code with COMMON blocks snipped. :-)...]
|>
|> Here you go.
|>
|> PRO testform_Event, event
|> COMMON params, fsize, fname
|> COMMON b_ids, b
|>
|> CASE event.tag OF
|>
|> 'OK': begin
|> Widget_Control, event.id, Get_Value=alltags
|> fsize = alltags.fsize
|> fname = alltags.fname
|> WIDGET_CONTROL, event.top, /DESTROY
|> end
|>
|> ELSE: ; Drop through event handler
|> ENDCASE
|>
|> END
|>
|>
|> PRO testform
|> COMMON b_ids, b
|> COMMON params, fsize, fname
|>
|> ; describe my form
|> DESC = [ $
|> '0, LABEL, Centered Label, CENTER', $
|> '1, BASE,, ROW, FRAME', $
|> '0, BUTTON, B1|B2|B3, LABEL_TOP=Nonexclusive:, COLUMN, TAG=bg1', $
|> '2, BUTTON, E1|E2|E3, EXCLUSIVE, LABEL_TOP=Exclusive:, COLUMN, TAG=bg2',
|> $
|> '0, TEXT, , LABEL_LEFT=Enter File name:, WIDTH=12, TAG=fname', $
|> '0, INTEGER, 0, LABEL_LEFT=File size:, WIDTH=12, TAG=fsize', $
|> '1, BASE,, ROW', $
|> '0, BUTTON, OK, QUIT, FONT="helvetica", TAG=OK', $
|> '2, BUTTON, Cancel, QUIT']
|>
|> a = WIDGET_BASE(TITLE='Testing IDL forms')
|>
|> b = CW_FORM(a, desc, /COLUMN)
|> WIDGET_CONTROL, a, /REALIZE
|>
|> XMANAGER, 'TESTFORM', a
|> print, 'Filesize: ', fsize
|> print, 'Filename: ', fname
|> END
|>
|>
|> Cheers,
|>
|> David
|>
|> -----------------------------------------------------------
|> David Fanning, Ph.D.
|> Fanning Software Consulting
|> E-Mail: davidf@dfanning.com
|> Phone: 970-221-0438
|> Coyote's Guide to IDL Programming: http://www.dfanning.com/
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
