ApplicationModel.st
changeset 3882 0d96a44fe4f2
parent 3881 0a7eb980eca0
child 3906 c456598a9f19
--- a/ApplicationModel.st	Sat Feb 11 11:48:15 2017 +0100
+++ b/ApplicationModel.st	Sat Feb 11 15:08:38 2017 +0100
@@ -804,7 +804,16 @@
     RecentlyOpenedApplications isNil ifTrue:[
         RecentlyOpenedApplications := OrderedCollection new.
     ].
-    RecentlyOpenedApplications removeAndAddFirst:myName.
+    
+    #FIXME.
+    "/ wait for 2.12 with this - otherwise, we need a whole lot of retagging
+    "/ due to the new SeqCollection...
+    
+    "/ RecentlyOpenedApplications removeAndAddFirst:myName.
+    RecentlyOpenedApplications remove:(self name) ifAbsent:[].
+    RecentlyOpenedApplications addFirst:(self name).
+
+    "Modified: / 11-02-2017 / 15:05:20 / cg"
 ! !
 
 !ApplicationModel class methodsFor:'private'!