Index: UI/Lib/Dlg/TListView.cls.xml
===================================================================
diff -u -r1074 -r1499
--- UI/Lib/Dlg/TListView.cls.xml	(.../TListView.cls.xml)	(revision 1074)
+++ UI/Lib/Dlg/TListView.cls.xml	(.../TListView.cls.xml)	(revision 1499)
@@ -4,6 +4,7 @@
 <ClassType>serial</ClassType>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Form">
 <Type>%Library.TMForm</Type>
@@ -37,9 +38,11 @@
  i initvalue="" q $$$OK
  s %SMWOrefs(+%this)=%this
  d %this.Initialization(initvalue)
- d %this.Form.SetContainer(+%this)
  s result=%this.OnCreate(initvalue)
- i result'=$$$OK d ..Destroy()
+ i result'=$$$OK  d
+ . d %this.Form.%Close()
+ . k %SMWOrefs(+%this)
+ e  d %this.Form.SetContainer(+%this)
  q result
 ]]></Implementation>
 </Method>
@@ -53,8 +56,8 @@
  ;object DesignForm: TDesignForm
  ;  Left = 96
  ;  Top = 100
- ;  Width = 329
- ;  Height = 302
+ ;  Width = 358
+ ;  Height = 307
  ;  Caption = 'DesignForm'
  ;  Color = clBtnFace
  ;  Font.Charset = DEFAULT_CHARSET
@@ -67,17 +70,17 @@
  ;  PixelsPerInch = 96
  ;  TextHeight = 13
  ;  object lblMessage: CLabel
- ;    Left = 8
- ;    Top = 5
+ ;    Left = 16
+ ;    Top = 10
  ;    Width = 67
  ;    Height = 13
  ;    Caption = 'Message here'
  ;  end
  ;  object lvItems: CListView
- ;    Left = 8
- ;    Top = 25
- ;    Width = 306
- ;    Height = 206
+ ;    Left = 16
+ ;    Top = 30
+ ;    Width = 319
+ ;    Height = 204
  ;    Anchors = [akLeft, akTop, akRight, akBottom]
  ;    Columns = <>
  ;    HotTrackStyles = []
@@ -86,8 +89,8 @@
  ;    ControlClass = 'UI.Lib.Ctrl.TSortableListView'
  ;  end
  ;  object btnAnnuleren: CButton
- ;    Left = 239
- ;    Top = 241
+ ;    Left = 260
+ ;    Top = 237
  ;    Width = 75
  ;    Height = 25
  ;    Anchors = [akRight, akBottom]
@@ -96,8 +99,8 @@
  ;    OnClick = btnAnnulerenClick
  ;  end
  ;  object btnOk: CButton
- ;    Left = 159
- ;    Top = 241
+ ;    Left = 180
+ ;    Top = 237
  ;    Width = 75
  ;    Height = 25
  ;    Anchors = [akRight, akBottom]
@@ -140,12 +143,12 @@
  s %this.btnAnnuleren=##class(%TMButton).%New($lb(%this.Form.Address,0))
  s %this.btnOk=##class(%TMButton).%New($lb(%this.Form.Address,0))
  s MApplication.ClientState="NoWait"
- d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","Position","PixelsPerInch"),$lb(96,100,329,302,"DesignForm",$$$clBtnFace,"False","poDesktopCenter",96))
+ d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Color","OldCreateOrder","Position","PixelsPerInch"),$lb(96,100,358,307,"DesignForm",$$$clBtnFace,"False","poDesktopCenter",96))
  d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(8,5,67,13,"Message here"))
- d %this.lvItems.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","HotTrackStyles","TabOrder","ViewStyle"),$lb(8,25,306,206,$lb("akLeft","akTop","akRight","akBottom"),$lb(),0,"vsReport"))
- d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(239,241,75,25,$lb("akRight","akBottom"),"&Annuleren",1,$lb(%this,"btnAnnulerenClick")))
- d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(159,241,75,25,$lb("akRight","akBottom"),"&Ok",2,$lb(%this,"btnOkClick")))
+ d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(16,10,67,13,"Message here"))
+ d %this.lvItems.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","HotTrackStyles","TabOrder","ViewStyle"),$lb(16,30,319,204,$lb("akLeft","akTop","akRight","akBottom"),$lb(),0,"vsReport"))
+ d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(260,237,75,25,$lb("akRight","akBottom"),"&Annuleren",1,$lb(%this,"btnAnnulerenClick")))
+ d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder","OnClick"),$lb(180,237,75,25,$lb("akRight","akBottom"),"&Ok",2,$lb(%this,"btnOkClick")))
  s MApplication.ClientState="Wait"
  q
 ]]></Implementation>