added action for "Browse cache" button
authorvrany
Wed, 12 Oct 2011 12:56:06 +0200
changeset 10811 2da3db63023c
parent 10810 992d78da7fe8
child 10812 fa90510322d5
added action for "Browse cache" button
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Wed Oct 12 12:54:35 2011 +0200
+++ b/AbstractSettingsApplication.st	Wed Oct 12 12:56:06 2011 +0200
@@ -12836,7 +12836,7 @@
                               )
                              (HorizontalPanelViewSpec
                                 name: 'CacheActionsHorizontalPanel'
-                                layout: (LayoutFrame -56 0.25 33 0 0 1 67 0)
+                                layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
                                 horizontalLayout: right
                                 verticalLayout: center
                                 horizontalSpace: 3
@@ -13242,6 +13242,15 @@
     "Modified: / 09-07-2011 / 14:02:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+browseSourceCache
+    <resource: #uiCallback>
+
+    UserPreferences current fileBrowserClass openOn:
+        self sourceCacheDir value
+
+    "Modified: / 12-10-2011 / 11:11:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 condenseSourceCache
     self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
     Method flushSourceStreamCache.
@@ -16503,9 +16512,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.408 2011-10-11 11:09:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.409 2011-10-12 10:56:06 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.408 2011-10-11 11:09:36 vrany Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.409 2011-10-12 10:56:06 vrany Exp $'
+! !