Tools__ChangeSetBrowser2.st
branchjv
changeset 12650 e0f607754b9a
parent 12626 7ae48abfedac
child 12680 4e2f5b0d4cb2
--- a/Tools__ChangeSetBrowser2.st	Thu Apr 04 01:43:18 2013 +0100
+++ b/Tools__ChangeSetBrowser2.st	Thu Apr 04 19:06:16 2013 +0100
@@ -80,7 +80,6 @@
 "
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'instance creation'!
 
 on: aStringOrChangeSet
@@ -128,7 +127,6 @@
     "Created: / 17-05-2012 / 23:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'accessing'!
 
 showRemoved
@@ -141,7 +139,6 @@
     ShowRemoved := aBoolean
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'help specs'!
 
 flyByHelpSpec
@@ -365,7 +362,6 @@
     "Modified: / 01-08-2012 / 18:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'image specs'!
 
 applyFromLastSnapshotIcon
@@ -636,7 +632,6 @@
 @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'interface opening'!
 
 confirmChanges: aChangeSet
@@ -741,7 +736,6 @@
     "Modified: / 26-07-2012 / 13:19:30 / cg"
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'interface specs'!
 
 hierarchicalNavigatorSpec
@@ -1227,7 +1221,6 @@
     "Modified: / 16-03-2012 / 13:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'menu specs'!
 
 changeMenu
@@ -1742,7 +1735,6 @@
       )
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'plugIn spec'!
 
 aspectSelectors
@@ -1762,7 +1754,6 @@
 
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'accessing'!
 
 allowAccept: aBoolean
@@ -1817,6 +1808,12 @@
     self changesetHolder value: aChangeSet
 !
 
+codeAspect
+    ^self codeAspectHolder value
+
+    "Created: / 04-04-2013 / 18:28:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 readOnly: aBoolean
     self allowAcceptHolder value:false.
 
@@ -1865,7 +1862,6 @@
     "Created: / 26-10-2010 / 23:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'accessing - defaults'!
 
 defaultTitle
@@ -1874,7 +1870,6 @@
     "Modified: / 08-04-2011 / 10:10:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'accessing - menus'!
 
 list1MenuHolder
@@ -1903,7 +1898,6 @@
     "Modified (format): / 05-09-2011 / 16:07:34 / cg"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'actions'!
 
 accept: source
@@ -1925,7 +1919,6 @@
     "Modified: / 19-07-2011 / 19:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'aspects'!
 
 allowAcceptHolder
@@ -2052,11 +2045,12 @@
     "return/create the 'codeAspectHolder' value holder (automatically generated)"
 
     codeAspectHolder isNil ifTrue:[
-	codeAspectHolder := SyntaxHighlighter codeAspectMethod asValue.
+        codeAspectHolder := ValueHolder with: nil.
     ].
     ^ codeAspectHolder
 
     "Modified: / 27-07-2012 / 22:04:12 / cg"
+    "Modified: / 04-04-2013 / 18:28:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 imageSourceHolder
@@ -2355,10 +2349,7 @@
 
     "Created: / 07-09-2011 / 15:54:03 / cg"
     "Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
- !
-
+! !
 
 !ChangeSetBrowser2 methodsFor:'aspects-queries'!
 
@@ -2398,7 +2389,6 @@
     "Created: / 17-05-2012 / 20:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'change & update'!
 
 changesetChanged
@@ -2498,7 +2488,6 @@
     "Created: / 24-10-2009 / 19:29:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'initialization'!
 
 list1View: aSubApplicationView
@@ -2517,7 +2506,6 @@
     "Modified: / 10-09-2012 / 14:22:50 / cg"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'menu actions'!
 
 doApply
@@ -2888,7 +2876,6 @@
     "Created: / 07-09-2011 / 12:47:15 / cg"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'menu actions - changes'!
 
 changeMenuApply: changeList
@@ -3303,7 +3290,6 @@
     "Created: / 23-07-2012 / 13:13:11 / cg"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
 
 changeMenuApplyChange: aChange
@@ -3391,7 +3377,6 @@
     "Modified: / 21-01-2013 / 17:12:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'private'!
 
 changesDo:aBlock
@@ -3500,7 +3485,6 @@
     "Created: / 07-09-2011 / 20:12:04 / cg"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'queries'!
 
 canApplyChanges
@@ -3539,7 +3523,6 @@
     "Created: / 04-08-2011 / 18:25:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 methodsFor:'testing'!
 
 isHierarchical
@@ -3566,7 +3549,6 @@
     "Created: / 30-03-2012 / 11:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
 
 documentation
@@ -3603,7 +3585,6 @@
 "
 ! !
 
-
 !ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
 
 windowSpec
@@ -3687,7 +3668,6 @@
     "Modified: / 16-03-2012 / 13:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
 
 sourceChangeHolder
@@ -3706,7 +3686,6 @@
     sourceImageHolder := something.
 ! !
 
-
 !ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
 
 changeHolder
@@ -3817,7 +3796,6 @@
     showdiffHolder := something.
 ! !
 
-
 !ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
 
 changeChanged
@@ -3847,7 +3825,6 @@
     "Modified: / 29-11-2011 / 11:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version