Chop out the code that handles "additional _E32Dll entry point after last ordinal position". I can't agree with that as how the DLL is supposed to work, and gives errors for me. Maybe the scripts to re-generate the jump tables have not been tried recently so its not a problem that's been hit by others.
(object Petal
version 35)
(object Design "<Top Level>"
is_unit TRUE
file_name "c:\wserv\des\client.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 0
gridY 0
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 "Thread"
fields (list has_relationship_list
(object Has_Relationship
supplier "Thread")
(object Has_Relationship
supplier "Window"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Pen"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Clock"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Sprite"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Bitmap sequence"
supplier_cardinality (value cardinality "n"))
(object Has_Relationship
supplier "Text cursor"
supplier_cardinality (value cardinality "0..1")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Font"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Palette"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Brush"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Bitmap"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "GC"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Clipping region"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Session"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))))
(object Class "Connection")
(object Class "Drawable")
(object Class "Window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Drawable")))
(object Class "Bitmap"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Drawable")))
(object Class "Backed up window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Window")))
(object Class "GDI Object")
(object Class "AGDI Object"
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Window")))
(object Class "Brush"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI Object"))
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Bitmap")))
(object Class "Font"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI Object")))
(object Class "Palette"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI Object")))
(object Class "Pen"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI Object")))
(object Class "Clock"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "AGDI Object")))
(object Class "Sprite"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "AGDI Object")))
(object Class "Bitmap sequence"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "AGDI Object")))
(object Class "Text cursor"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "AGDI Object")))
(object Class "GC"
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Drawable")
(object Uses_Relationship
supplier "Brush")
(object Uses_Relationship
supplier "Palette")
(object Uses_Relationship
supplier "Font")
(object Uses_Relationship
supplier "Pen")
(object Uses_Relationship
supplier "Clipping region")))
(object Class "Clipping region"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "GDI Object")))
(object Class "Pointer Cursor"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "AGDI Object")))
(object Class "Session"
fields (list has_relationship_list
(object Has_Relationship
supplier "GDI Object"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Drawable"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Store")
(object Has_Relationship
supplier "AGDI Object"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))))
(object Class "Store"))
logical_presentations (list unit_reference_list
(object ClassDiagram "Main"
title "Main"
zoom 80
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list
(object ClassView "Class" "Thread" @1
location (1982, 181)
label (object ItemLabel
location (1878, 97)
nlines 2
max_width 240
justify 0
label "Thread")
annotation 8)
(object ClassView "Class" "Drawable" @2
location (1927, 1363)
label (object ItemLabel
location (1823, 1279)
nlines 2
max_width 240
justify 0
label "Drawable")
annotation 8)
(object ClassView "Class" "Window" @3
location (2103, 1695)
label (object ItemLabel
location (1999, 1611)
nlines 2
max_width 240
justify 0
label "Window")
annotation 8)
(object ClassView "Class" "Bitmap" @4
location (1701, 1720)
label (object ItemLabel
location (1597, 1636)
nlines 2
max_width 240
justify 0
label "Bitmap")
annotation 8)
(object InheritView ""
client @3
supplier @2)
(object InheritView ""
client @4
supplier @2)
(object ClassView "Class" "Backed up window" @5
location (2286, 2005)
label (object ItemLabel
location (2182, 1921)
nlines 2
max_width 240
justify 0
label "Backed up window")
annotation 8)
(object InheritView ""
client @5
supplier @3)
(object ClassView "Class" "GDI Object" @6
location (958, 646)
label (object ItemLabel
location (854, 562)
nlines 2
max_width 240
justify 0
label "GDI Object")
annotation 8)
(object ClassView "Class" "AGDI Object" @7
location (2496, 1463)
label (object ItemLabel
location (2392, 1380)
nlines 2
max_width 240
justify 0
label "AGDI Object")
height 250
annotation 8)
(object ClassView "Class" "Brush" @8
location (1666, 1102)
label (object ItemLabel
location (1562, 1018)
nlines 2
max_width 240
justify 0
label "Brush")
annotation 8)
(object ClassView "Class" "Font" @9
location (178, 1103)
label (object ItemLabel
location (74, 1019)
nlines 2
max_width 240
justify 0
label "Font")
annotation 8)
(object ClassView "Class" "Palette" @10
location (542, 1110)
label (object ItemLabel
location (438, 1026)
nlines 2
max_width 240
justify 0
label "Palette")
annotation 8)
(object ClassView "Class" "Pen" @11
location (1284, 1110)
label (object ItemLabel
location (1180, 1026)
nlines 2
max_width 240
justify 0
label "Pen")
annotation 8)
(object ClassView "Class" "Clock" @12
location (3130, 2150)
label (object ItemLabel
location (3026, 2066)
nlines 2
max_width 240
justify 0
label "Clock")
annotation 8)
(object ClassView "Class" "Sprite" @13
location (3458, 1937)
label (object ItemLabel
location (3354, 1853)
nlines 2
max_width 240
justify 0
label "Sprite")
annotation 8)
(object ClassView "Class" "Bitmap sequence" @14
location (3431, 1626)
label (object ItemLabel
location (3327, 1542)
nlines 2
max_width 240
justify 0
label "Bitmap sequence")
annotation 8)
(object InheritView ""
client @8
supplier @6)
(object InheritView ""
client @10
supplier @6)
(object InheritView ""
client @9
supplier @6)
(object InheritView ""
client @11
supplier @6)
(object ClassView "Class" "Text cursor" @15
location (3407, 1293)
label (object ItemLabel
location (3303, 1209)
nlines 2
max_width 240
justify 0
label "Text cursor")
annotation 8)
(object InheritView ""
client @12
supplier @7)
(object InheritView ""
client @14
supplier @7)
(object InheritView ""
client @15
supplier @7)
(object InheritView ""
client @13
supplier @7)
(object ClassView "Class" "GC" @16
location (964, 1635)
label (object ItemLabel
location (860, 1551)
nlines 2
max_width 240
justify 0
label "GC")
annotation 8)
(object ClassView "Class" "Clipping region" @17
location (928, 1108)
label (object ItemLabel
location (824, 1024)
nlines 2
max_width 240
justify 0
label "Clipping region")
annotation 8)
(object InheritView ""
client @17
supplier @6)
(object UsesView ""
client @7
supplier @3)
(object UsesView ""
client @16
supplier @2)
(object UsesView ""
client @16
supplier @8)
(object UsesView ""
client @16
supplier @10)
(object UsesView ""
client @16
supplier @9)
(object UsesView ""
client @16
supplier @11)
(object UsesView ""
client @16
supplier @17)
(object ClassView "Class" "Pointer Cursor" @18
location (2700, 2245)
label (object ItemLabel
location (2596, 2161)
nlines 2
max_width 240
justify 0
label "Pointer Cursor")
annotation 8)
(object InheritView ""
client @18
supplier @7)
(object ClassView "Class" "Session" @19
location (2314, 562)
label (object ItemLabel
location (2210, 478)
nlines 2
max_width 240
justify 0
label "Session")
annotation 8)
(object HasView ""
client @1
supplier @19)
(object ClassView "Class" "Store" @20
location (2775, 707)
label (object ItemLabel
location (2671, 623)
nlines 2
max_width 240
justify 0
label "Store")
annotation 8)
(object UsesView ""
client @8
supplier @4)
(object HasView ""
client @19
supplier @6)
(object HasView ""
client @19
supplier @20)
(object HasView ""
client @19
supplier @7)
(object HasView ""
client @19
supplier @2)))))
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))