can now use CodeView2
authorClaus Gittinger <cg@exept.de>
Thu, 06 Oct 2011 11:44:13 +0200
changeset 10754 20b2f75fe420
parent 10753 b29467fd0e1b
child 10755 3cc7a80e9d58
can now use CodeView2
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Thu Oct 06 11:44:07 2011 +0200
+++ b/FileApplicationNoteBook.st	Thu Oct 06 11:44:13 2011 +0200
@@ -4445,6 +4445,7 @@
                           acceptCallBack: accept
                           allowDoIt: true
                           hasKeyboardFocusInitially: false
+                          viewClassName: 'getEditorClass'
                           postBuildCallback: postBuildTextEditor:
                         )
                        )
@@ -5737,8 +5738,21 @@
     ].
 !
 
+getEditorClass
+    UserPreferences current useCodeView2InTools ifTrue:[
+        ^ Tools::CodeView2 ? CodeView
+    ].
+    ^ CodeView
+
+    "Created: / 06-10-2011 / 11:21:43 / cg"
+!
+
 postBuildTextEditor:aWidget
-    editView       := aWidget scrolledView.
+    editView := aWidget scrolledView.
+    editView isCodeView2 ifTrue:[
+        editView languageHolder value:nil.
+        editView services:#().
+    ].
     editView saveAction:[ self doSaveAs ].
     editView cursorLineHolder addDependent:self.
 
@@ -5747,7 +5761,7 @@
     editView externalEncoding:self fileEncoding.
     "/ editView characterEncoding:'unicode'. - thats the default anyway
 
-    "Modified: / 23-06-2011 / 17:30:58 / cg"
+    "Modified: / 06-10-2011 / 11:43:40 / cg"
 !
 
 postOpenWith:aBuilder
@@ -6546,5 +6560,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.256 2011-09-16 14:18:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.257 2011-10-06 09:44:13 cg Exp $'
 ! !