Gabriele Cosmo
121 lines
3.8 KiB
Plaintext
121 lines
3.8 KiB
Plaintext
!/* +---------------------- Copyright notice -------------------------------+ */
|
|
!/* | Copyright (C) 1995, Guy Barrand, LAL Orsay, (barrand@lal.in2p3.fr) | */
|
|
!/* | Permission to use, copy, modify, and distribute this software | */
|
|
!/* | and its documentation for any purpose and without fee is hereby | */
|
|
!/* | granted, provided that the above copyright notice appear in all | */
|
|
!/* | copies and that both that copyright notice and this permission | */
|
|
!/* | notice appear in supporting documentation. This software is | */
|
|
!/* | provided "as is" without express or implied warranty. | */
|
|
!/* +---------------------- Copyright notice -------------------------------+ */
|
|
!----------------------------
|
|
begin OInterface
|
|
prefix = G4PV_
|
|
packages = Xm
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_palette
|
|
type = XmFormDialog
|
|
children = G4PV_7 G4PV_11 G4PV_erase G4PV_atbs G4PV_14 G4PV_draw G4PV_draw_all
|
|
autoUnmanage = False
|
|
dialogTitle = GEANT
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_7
|
|
type = XmPushButton
|
|
labelString = Update list
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
topAttachment = attach_form
|
|
activateCallback = osh> collect PhysicalVolume | get - name | removeDuplicates - | setWidgetResource G4PV_list items -
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_11
|
|
type = XmFrame
|
|
children = G4PV_list
|
|
topAttachment = attach_form
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
bottomAttachment = attach_widget
|
|
bottomWidget = G4PV_erase
|
|
topAttachment = attach_widget
|
|
topWidget = G4PV_7
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_list
|
|
type = XmScrolledList
|
|
background = lightgrey
|
|
visibleItemCount = 5
|
|
selectionPolicy = single_select
|
|
scrollBarDisplayPolicy = static
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_erase
|
|
type = XmPushButton
|
|
labelString = Erase (in target)
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
bottomAttachment = attach_widget
|
|
bottomWidget = G4PV_draw
|
|
activateCallback = osh>\
|
|
widget=`get Widget target`\
|
|
camera=`get $widget name`\
|
|
name=`getWidgetResource G4PV_list selectedItems`\
|
|
string=`collect PhysicalVolume where name eq $name`\
|
|
getCameraNodes $camera | collect ONode where name in $string | delete -
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_draw
|
|
type = XmPushButton
|
|
labelString = Draw (in target)
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
bottomAttachment = attach_widget
|
|
bottomWidget = G4PV_draw_all
|
|
activateCallback = osh>\
|
|
widget=`get Widget target`\
|
|
camera=`get $widget name`\
|
|
collect PhysicalVolume where name eq `getWidgetResource G4PV_list selectedItems` | represent - | viewNode - $camera
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_draw_all
|
|
type = XmPushButton
|
|
labelString = Draw all (in target)
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
bottomAttachment = attach_widget
|
|
bottomWidget = G4PV_atbs
|
|
activateCallback = osh>\
|
|
widget=`get Widget target`\
|
|
camera=`get $widget name`\
|
|
collect PhysicalVolume | represent - | viewNode - $camera
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_atbs
|
|
type = XmPushButton
|
|
labelString = Atbs
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
bottomAttachment = attach_widget
|
|
bottomWidget = G4PV_14
|
|
labelString = Attributs
|
|
activateCallback = osh> load OContext.odb| realize -;do Widget/OContext_palette manage;do Widget/OContext_palette_popup raise
|
|
end
|
|
!----------------------------
|
|
begin OWidget
|
|
name = G4PV_14
|
|
type = XmPushButton
|
|
labelString = Cancel
|
|
activateCallback = osh> do `get Widget thisParent` unmanage
|
|
bottomAttachment = attach_form
|
|
leftAttachment = attach_form
|
|
rightAttachment = attach_form
|
|
end
|