#88056# loading of Basic dialogs changed

1 files changed, 5 insertions, 2 deletions

diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba
index 58f96499e..0f69beab9 100644
--- a/wizards/source/tools/Listbox.xba
+++ b/wizards/source/tools/Listbox.xba
@@ -23,29 +23,31 @@ End Sub
 Sub FormMoveSelected(aEvent as Object)
 	Call MoveSelectedListBox(oDialogModel.lstFields, oDialogModel.lstSelFields)
 	Call FormSetMoveRights()
+	oDialogModel.lstSelFields.Tag = True
 End Sub
 
 
 Sub FormMoveAll()
 	Call CopyListboxItems(oDialogModel.lstFields, oDialogModel.lstSelFields)
 	Call FormSetMoveRights()
-'	CmdNext.SetFocus
+	oDialogModel.lstSelFields.Tag = True
 End Sub
 
 
 Sub FormRemoveSelected()
 	Call MoveOrderedSelectedListbox(oDialogModel.lstFields, oDialogModel.lstSelFields, False)
 	Call FormSetMoveRights()
+	oDialogModel.lstSelFields.Tag = True
 End Sub
 
 
 Sub FormRemoveAll()
 	Call MoveOrderedSelectedListbox(oDialogModel.lstFields, oDialogModel.lstSelFields, True)
 	Call FormSetMoveRights()
+	oDialogModel.lstSelFields.Tag = 1
 End Sub
 
 
-
 Sub MoveSelectedListBox(SourceListbox as Object, TargetListbox as Object)
 Dim MaxCurTarget as Integer
 Dim MaxSourceSelected as Integer
@@ -220,6 +222,7 @@ Dim SelectCount as Integer
 	oDialogModel.cmdMoveAll.Enabled = FieldCount >=1
 	oDialogModel.cmdMoveSelected.Enabled = bIsFieldSelected
 	oDialogModel.cmdGoOn.Enabled = SelectCount>=1
+	' This flag is set to '1' when the lstSelFields has been modified 
 End Sub