Fixes jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 28 Feb 2012 12:59:00 +0000
branchjv
changeset 12174 2dcdea864585
parent 12173 f135ea9fe1cf
child 12175 c36c8041ab10
Fixes
Tools__NavigationState.st
Tools__NewSystemBrowser.st
--- a/Tools__NavigationState.st	Thu Feb 23 15:20:50 2012 +0000
+++ b/Tools__NavigationState.st	Tue Feb 28 12:59:00 2012 +0000
@@ -144,12 +144,12 @@
     "set the codeAspect; a symbol describing what is shown in the codeView"
 
     codeAspect := aSymbolOrNil.
-    codeView isCodeView2 ifTrue:[
+    (codeView notNil and:[codeView isCodeView2]) ifTrue:[
         codeView codeAspect: aSymbolOrNil
     ].
 
     "Created: / 11-02-2000 / 12:43:45 / cg"
-    "Modified (format): / 15-02-2012 / 01:19:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-02-2012 / 11:06:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 codePaneAndPluginView
@@ -1665,5 +1665,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NavigationState.st 7911 2012-02-22 09:55:48Z vranyj1 $'
+    ^ '$Id: Tools__NavigationState.st 7916 2012-02-28 12:59:00Z vranyj1 $'
 ! !
--- a/Tools__NewSystemBrowser.st	Thu Feb 23 15:20:50 2012 +0000
+++ b/Tools__NewSystemBrowser.st	Tue Feb 28 12:59:00 2012 +0000
@@ -54765,7 +54765,7 @@
 doAcceptGroovyClassDefinition:theCode
     | newClass |
 
-    newClass := GroovyCompiler compileClass: theCode string.
+    newClass := GroovyCompiler compile: theCode string.
     newClass isNil ifTrue:[ ^ self ].
 
     newClass isBehavior ifTrue:[
@@ -55890,7 +55890,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__NewSystemBrowser.st 7915 2012-02-23 15:20:50Z vranyj1 $'
+    ^ '$Id: Tools__NewSystemBrowser.st 7916 2012-02-28 12:59:00Z vranyj1 $'
 !
 
 version_CVS
@@ -55898,7 +55898,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st 7915 2012-02-23 15:20:50Z vranyj1 $'
+    ^ '$Id: Tools__NewSystemBrowser.st 7916 2012-02-28 12:59:00Z vranyj1 $'
 ! !
 
 NewSystemBrowser initialize!