Multiple Properties Example

The following example shows how to create a property sheet for multiple components.

Enter the following text in the IDL Editor: 

; ExMultiSheet.pro 
; 
; Provides an example of a property sheet that is 
; associated with more than one object. In this case, 
; multiple IDLitVisAxis objects are used, with random 
; colors and hidden cells, just for fun. 
 
PRO PropertyEvent, event 
 
IF (event.type EQ 0) THEN BEGIN   ; Value changed. 
 
   PRINT, 'Changed: ', event.component 
   PRINT, '   ', event.identifier, ': ', $ 
   WIDGET_INFO(event.id, COMPONENT = event.component, $ 
      PROPERTY_VALUE = event.identifier) 
 
ENDIF ELSE BEGIN                ; Selection changed. 
 
   PRINT, 'Selected: ' + event.identifier 
 
ENDELSE 
 
END 
 
PRO CleanupEvent, baseID 
 
WIDGET_CONTROL, baseID, GET_UVALUE = objects 
 
FOR i = 0, (N_ELEMENTS(objects) - 1) DO $ 
   OBJ_DESTROY, objects[i] 
 
END 
 
PRO ExMultiSheet_event, event 
 
ps = WIDGET_INFO(event.id, $ 
   FIND_BY_UNAME = 'PropSheet') 
 
geo_tlb = WIDGET_INFO(event.id, /GEOMETRY) 
 
WIDGET_CONTROL, ps, $ 
   SCR_XSIZE = geo_tlb.xsize - (2*geo_tlb.xpad), $ 
   SCR_YSIZE = geo_tlb.ysize - (2*geo_tlb.ypad) 
 
END 
 
PRO ExMultiSheet 
 
tlb = WIDGET_BASE(/COLUMN, /TLB_SIZE_EVENTS, $ 
   KILL_NOTIFY = 'CleanupEvent') 
 
; Create some columns. 
 
oComp1 = OBJ_NEW('IDLitVisAxis', $ 
   COLOR = RANDOMU(s1, 3)*256, $ 
   TEXT_COLOR = RANDOMU(s7, 3)*256) 
oComp2 = OBJ_NEW('IDLitVisAxis', $ 
   COLOR = RANDOMU(s2, 3)*256, $ 
   TEXT_COLOR = RANDOMU(s8, 3)*256) 
oComp3 = OBJ_NEW('IDLitVisAxis', $ 
   COLOR = RANDOMU(s3, 3)*256, $ 
   TEXT_COLOR = RANDOMU(s9, 3)*256) 
oComp4 = OBJ_NEW('IDLitVisAxis', $ 
   COLOR = RANDOMU(s4, 3)*256, $ 
   TEXT_COLOR = RANDOMU(s10, 3)*256) 
oComp5 = OBJ_NEW('IDLitVisAxis', $ 
   COLOR = RANDOMU(s5, 3)*256, $ 
   TEXT_COLOR = RANDOMU(s11, 3)*256) 
oComp6 = OBJ_NEW('IDLitVisAxis', $ 
   COLOR = RANDOMU(s6, 3)*256, $ 
   TEXT_COLOR = RANDOMU(s12, 3)*256) 
 
oComps = [oComp1, oComp2, oComp3, $ 
   oComp4, oComp5, oComp6] 
 
WIDGET_CONTROL, tlb, SET_UVALUE = oComps 
 
; Hide some properties. 
 
oComp2->SetPropertyAttribute, 'color', /HIDE 
oComp2->SetPropertyAttribute, 'ticklen', /HIDE 
oComp5->SetPropertyAttribute, 'ticklen', /HIDE 
 
; Create the property sheet. 
prop = WIDGET_PROPERTYSHEET(tlb, $ 
   UNAME = 'PropSheet', $ 
   VALUE = oComps, $ 
   FONT = 'Courier New*16', $ 
   XSIZE = 100, YSIZE = 24, $ 
   /FRAME, EVENT_PRO = 'PropertyEvent') 
 
; Activate the widgets. 
 
WIDGET_CONTROL, tlb, /REALIZE 
 
XMANAGER, 'ExMultiSheet', tlb, /NO_BLOCK 
 
END

Save the program as ExMultiSheet.pro, then compile and run it. A property sheet displaying the properties of six axes is displayed:

Figure 6-4: Multi-Sheet Example

widget_propsheet2.gif

The gray boxes indicate properties that have been hidden. To remove the gray boxes, comment out the code after the following comment: 

; Hide some properties.

The text is displayed at 16 points in the Courier New font. To view the property sheet with the text displayed in the default size and font, comment out the following segment of the property sheet creation code: 

FONT = "Courier New*16", $

To see the text displayed in a font and size of your choosing, edit the same segment to include a different font name and size.