*> eventClass event definitions, Class: classReference. |
78 eventName VALUE eventIdValue. |
... working-storage section. ... copy "component.def". ... screen section. ... 03 myDateField java-bean clsid "com.toedter.calendar.JDateChooser" line 2 col 2 size 30 lines 1.5 object in objDateField event-list ("propertyChange") event procedure myDateField-Event |
*> PROPERTYCHANGE event definitions, Class: java.beans.PropertyChangeEvent. 78 Component-propertyChange value 681533893. |
myDateField-Event. evaluate event-type when msg-jb-event evaluate event-data-2 when Component-propertyChange (Imperative statement) end-evaluate end-evaluate . |
... configuration section. repository. class iscobol-java-bean as "com.iscobol.gui.server.CobolGUIJavaBean" class java-event-object as "java.util.EventObject" ... working-storage section. ... 77 eventSource is special-names event source object reference iscobol-java-bean. 77 eventObject is special-names event object object reference java-event-object. ... |
... configuration section. repository. class iscobol-java-bean as "com.iscobol.gui.server.CobolGUIJavaBean" class java-event-object as "java.util.EventObject" class property-change-event as "java.beans.PropertyChangeEvent" ... working-storage section. ... 77 eventSource is special-names event source object reference iscobol-java-bean. 77 eventObject is special-names event object object reference java-event-object. 77 propertyChangeEvent object reference property-change-event. 77 propertyName pic x any length. ... myDateField-Event. evaluate event-type when msg-jb-event evaluate event-data-2 when COMPONENT-PROPERTYCHANGE set propertyChangeEvent to eventObject as property-change-event set propertyName to propertyChangeEvent:>getPropertyName display message "The property " propertyName " has changed." end-evaluate end-evaluate . |