#REFACTORING by mawalch
authormawalch
Thu, 21 Jul 2016 21:13:31 +0200
changeset 16751 9f59529faaf8
parent 16750 1cb2908253d2
child 16752 090ac9d87a3d
#REFACTORING by mawalch class: ChangeSetBrowser changed: #askIfChangesAreToBeWrittenBack (send #request:label:image:buttonLabels:values:default:onCancel: instead of #request:label:form:buttonLabels:values:default:onCancel:) Move from obsolete method to new one.
ChangeSetBrowser.st
--- a/ChangeSetBrowser.st	Thu Jul 21 10:50:55 2016 +0200
+++ b/ChangeSetBrowser.st	Thu Jul 21 21:13:31 2016 +0200
@@ -562,10 +562,10 @@
 
     anyChanges ifFalse:[^ self].
 
-    action := OptionBox 
+    action := OptionBox
                       request:(resources string:'The modified changeSet has not been saved.\\Update the changeSet before closing ?') withCRs
                       label:'ChangesBrowser'
-                      form:(WarningBox iconBitmap)
+                      image:(WarningBox iconBitmap)
                       buttonLabels:(resources array:#('Cancel' 'Don''t Update' 'Update'))
                       values:#(#abort #ignore #save)
                       default:#save
@@ -631,7 +631,7 @@
 !
 
 showingDiffsDefault
-    ^ "false" super showingDiffsDefault 
+    ^ "false" super showingDiffsDefault
 ! !
 
 !ChangeSetBrowser methodsFor:'menu aspects'!