Index: UI/Lib/Dlg/TInputBox.cls.xml
===================================================================
diff -u -r1074 -r1499
--- UI/Lib/Dlg/TInputBox.cls.xml	(.../TInputBox.cls.xml)	(revision 1074)
+++ UI/Lib/Dlg/TInputBox.cls.xml	(.../TInputBox.cls.xml)	(revision 1499)
@@ -4,6 +4,7 @@
 <ClassType>serial</ClassType>
 <IncludeCode>KeyCodesCNTs</IncludeCode>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Form">
 <Type>%Library.TMForm</Type>
@@ -55,8 +56,8 @@
  ;  Top = 215
  ;  BorderStyle = bsDialog
  ;  Caption = 'DesignForm'
- ;  ClientHeight = 89
- ;  ClientWidth = 352
+ ;  ClientHeight = 101
+ ;  ClientWidth = 359
  ;  Color = 11062952
  ;  Font.Charset = DEFAULT_CHARSET
  ;  Font.Color = clWindowText
@@ -70,15 +71,15 @@
  ;  PixelsPerInch = 96
  ;  TextHeight = 13
  ;  object lblMessage: CLabel
- ;    Left = 7
+ ;    Left = 11
  ;    Top = 8
  ;    Width = 53
  ;    Height = 13
  ;    Caption = 'lblMessage'
  ;  end
  ;  object btnOk: CSpeedButton
- ;    Left = 173
- ;    Top = 60
+ ;    Left = 176
+ ;    Top = 64
  ;    Width = 79
  ;    Height = 22
  ;    Anchors = [akRight, akBottom]
@@ -94,8 +95,8 @@
  ;    OnClick = btnOkClick
  ;  end
  ;  object btnAnnuleren: CSpeedButton
- ;    Left = 261
- ;    Top = 60
+ ;    Left = 264
+ ;    Top = 64
  ;    Width = 79
  ;    Height = 22
  ;    Anchors = [akRight, akBottom]
@@ -110,7 +111,7 @@
  ;    OnClick = btnAnnulerenClick
  ;  end
  ;  object cbbValue: CComboBox
- ;    Left = 7
+ ;    Left = 11
  ;    Top = 31
  ;    Width = 332
  ;    Height = 21
@@ -120,7 +121,7 @@
  ;    Visible = False
  ;  end
  ;  object txtValue: CEdit
- ;    Left = 7
+ ;    Left = 11
  ;    Top = 31
  ;    Width = 332
  ;    Height = 21
@@ -148,7 +149,6 @@
  ;End of user code
  s Args=$lb(Sender,Key,Shift)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -179,15 +179,15 @@
  s %this.cbbValue=##class(%TMComboBox).%New($lb(%this.Form.Address,0))
  s %this.txtValue=##class(%TMEdit).%New($lb(%this.Form.Address,0))
  s MApplication.ClientState="NoWait"
- d %this.Form.SetMultiProperty($lb("Left","Top","BorderStyle","Caption","ClientHeight","ClientWidth","Color","KeyPreview","OldCreateOrder","Position","OnKeyDown","PixelsPerInch"),$lb(103,215,"bsDialog","DesignForm",89,352,11062952,"True","False","poDesktopCenter",$lb(%this,"DesignFormKeyDown"),96))
+ d %this.Form.SetMultiProperty($lb("Left","Top","BorderStyle","Caption","ClientHeight","ClientWidth","Color","KeyPreview","OldCreateOrder","Position","OnKeyDown","PixelsPerInch"),$lb(103,215,"bsDialog","DesignForm",101,359,11062952,"True","False","poDesktopCenter",$lb(%this,"DesignFormKeyDown"),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(7,8,53,13,"lblMessage"))
- d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Default","Caption","ParentFont","OnClick"),$lb(173,60,79,22,$lb("akRight","akBottom"),13828050,"True","&Ok","False",$lb(%this,"btnOkClick")))
+ d %this.lblMessage.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(11,8,53,13,"lblMessage"))
+ d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Default","Caption","ParentFont","OnClick"),$lb(176,64,79,22,$lb("akRight","akBottom"),13828050,"True","&Ok","False",$lb(%this,"btnOkClick")))
  d %this.btnOk.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-11,"MS Sans Serif",$lb("fsBold")))
- d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ParentFont","OnClick"),$lb(261,60,79,22,$lb("akRight","akBottom"),13828050,"&Annuleren","False",$lb(%this,"btnAnnulerenClick")))
+ d %this.btnAnnuleren.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ParentFont","OnClick"),$lb(264,64,79,22,$lb("akRight","akBottom"),13828050,"&Annuleren","False",$lb(%this,"btnAnnulerenClick")))
  d %this.btnAnnuleren.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb("fsBold")))
- d %this.cbbValue.SetMultiProperty($lb("Left","Top","Width","Height","Color","ItemHeight","TabOrder","Visible"),$lb(7,31,332,21,14281433,13,1,"False"))
- d %this.txtValue.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","TabOrder"),$lb(7,31,332,21,$lb("akLeft","akTop","akRight"),14281433,0))
+ d %this.cbbValue.SetMultiProperty($lb("Left","Top","Width","Height","Color","ItemHeight","TabOrder","Visible"),$lb(11,31,332,21,14281433,13,1,"False"))
+ d %this.txtValue.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","TabOrder"),$lb(11,31,332,21,$lb("akLeft","akTop","akRight"),14281433,0))
  s MApplication.ClientState="Wait"
  q
 ]]></Implementation>
@@ -197,9 +197,7 @@
 <FormalSpec>initvalue:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- q $$$OK
-
+<Implementation><![CDATA[ q $$$OK
 ]]></Implementation>
 </Method>
 
@@ -231,7 +229,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -249,7 +246,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>