Work in progress:
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 08 Feb 2012 01:52:09 +0100
changeset 981 383bdab2a0d4
parent 980 008ed2a454fc
child 982 ce6f8dd98682
Work in progress: - working copy browser refactoring - FileBrowser's menu improvements
extensions.st
--- a/extensions.st	Tue Feb 07 00:50:01 2012 +0100
+++ b/extensions.st	Wed Feb 08 01:52:09 2012 +0100
@@ -4,9 +4,9 @@
 
 svnCommit
 
-    Transcript showCR:self class name, ': action for #svnCommit ...'.
+    Dialog warn: 'Sorry, not yet supported'
 
-    "Modified (comment): / 04-02-2012 / 18:35:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-02-2012 / 19:35:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractFileBrowser methodsFor:'menu actions-scm-svn'!
@@ -27,51 +27,6 @@
     "Modified: / 04-02-2012 / 19:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!AbstractFileBrowser class methodsFor:'menu specs-scm'!
-
-svnMenu
-    "This resource specification was automatically generated
-     by the MenuEditor of ST/X."
-
-    "Do not manually edit this!! If it is corrupted,
-     the MenuEditor may not be able to read the specification."
-
-
-    "
-     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#svnMenu
-     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser svnMenu)) startUp
-    "
-
-    <resource: #menu>
-
-    ^ 
-     #(Menu
-        (
-         (MenuItem
-            enabled: hasSubversionWorkingCopySelected
-            label: 'Commit Changes'
-            itemValue: svnCommit
-            translateLabel: true
-            labelImage: (ResourceRetriever #'SVN::IconLibrary' commit 'Commit Changes')
-          )
-         (MenuItem
-            enabled: hasSubversionWorkingCopySelected
-            label: 'Status'
-            itemValue: svnStatus
-            translateLabel: true
-          )
-         (MenuItem
-            enabled: hasSubversionWorkingCopySelected
-            label: 'Diff'
-            itemValue: svnDiff
-            translateLabel: true
-          )
-         )
-        nil
-        nil
-      )
-! !
-
 !ChangeSet methodsFor:'utilities'!
 
 condenseChangesForPackage2:aPackageSymbol