Added WSERV event handler to eglbringuptest
This change adds an active object which listens for WSERV events
on the application view window. A pointer event causes the
application to be terminated.
This change means that the timer which was previously used to end
execution after a preset duration has been removed.
(object Petal
version 35)
(object Design "<Top Level>"
is_unit TRUE
file_name "d:\wserv\des\gdi.mdl"
is_loaded TRUE
defaults (object defaults
rightMargin 0.25
leftMargin 0.25
topMargin 0.25
bottomMargin 0.5
pageOverlap 0.25
clipIconLabels TRUE
autoResize FALSE
snapToGrid TRUE
gridX 16
gridY 16
defaultFont (object Font
size 10
face "Arial"
bold FALSE
italics FALSE
underline FALSE
strike FALSE
color 0
default_color TRUE)
showMessageNum 3)
root_category (object Class_Category "<Top Level>"
exportControl "Public"
global TRUE
subsystem "<Top Level>"
logical_models (list unit_reference_list
(object Class "Bitmap Font"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Font"))
statediagram (object State_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list)))
(object Class "Pattern Brush"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI object"))
statediagram (object State_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list)))
(object Class "Pen"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI object"))
statediagram (object State_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list)))
(object Class "Font"
fields (list has_relationship_list
(object Has_Relationship
supplier "Bitmap Font"
supplier_cardinality (value cardinality "0..1")
client_cardinality (value cardinality "n"))
(object Has_Relationship
supplier "Vector font"
supplier_cardinality (value cardinality "0..1")
client_cardinality (value cardinality "n")))
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI object"))
statediagram (object State_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list)))
(object Class "Vector font"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Font"))
statediagram (object State_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list)))
(object Class "Palette"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI object")))
(object Class "Drawable"))
logical_presentations (list unit_reference_list
(object ClassDiagram "Main"
title "Main"
zoom 100
max_height 28350
max_width 21600
origin_x 3000
origin_y 2000
items (list diagram_item_list
(object ClassView "Class" "Bitmap Font" @1
location (3728, 3184)
label (object ItemLabel
location (3624, 3100)
nlines 2
max_width 240
justify 0
label "Bitmap Font")
annotation 8)
(object ClassView "Class" "Pattern Brush" @2
location (4432, 2784)
label (object ItemLabel
location (4328, 2700)
nlines 2
max_width 240
justify 0
label "Pattern Brush")
annotation 8)
(object ClassView "Class" "Pen" @3
location (5360, 2800)
label (object ItemLabel
location (5256, 2716)
nlines 2
max_width 240
justify 0
label "Pen")
annotation 8)
(object ClassView "Class" "Font" @4
location (3888, 2768)
label (object ItemLabel
location (3784, 2684)
nlines 2
max_width 240
justify 0
label "Font")
annotation 8)
(object ClassView "Class" "Vector font" @5
location (4176, 3184)
label (object ItemLabel
location (4072, 3100)
nlines 2
max_width 240
justify 0
label "Vector font")
annotation 8)
(object ClassView "Class" "Palette" @6
location (4896, 2800)
label (object ItemLabel
location (4792, 2716)
nlines 2
max_width 240
justify 0
label "Palette")
annotation 8)
(object ClassView "Class" "Drawable" @7
location (3328, 2768)
label (object ItemLabel
location (3224, 2684)
nlines 2
max_width 240
justify 0
label "Drawable")
annotation 8)
(object InheritView ""
client @1
supplier @4)
(object InheritView ""
client @5
supplier @4)))))
root_subsystem (object SubSystem "<Top Level>"
physical_models (list unit_reference_list)
physical_presentations (list unit_reference_list
(object Module_Diagram "Main"
title "Main"
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list))))
process_structure (object Processes
ProcsNDevs (list
(object Process_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list))))
properties (object Properties))