--- a/extensions.st	Tue Jul 26 11:53:35 2011 +0200
+++ b/extensions.st	Tue Jul 26 11:56:33 2011 +0200
@@ -1460,7 +1460,87 @@
     "Created: / 06-07-2011 / 19:09:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!UserPreferences methodsFor:'accessing-prefs-browser'!
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2In: appSymbol
+
+    ^self useCodeView2InTools or:[self perform: ('useCodeView2In' , appSymbol) asSymbol]. 
+
+
+    "
+    UserPreferences current useCodeView2In: #Browser 
+    UserPreferences current useCodeView2InBrowser:true 
+    UserPreferences current useCodeView2InBrowser:false
+
+    UserPreferences current useCodeView2InTools:true
+    UserPreferences current useCodeView2InTools:false
+    "
+
+    "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 26-07-2011 / 10:26:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2InBrowser
+
+    ^self at:#useCodeView2InBrowser ifAbsent: false
+
+    "
+     UserPreferences current useCodeView2InBrowser 
+     UserPreferences current useCodeView2InBrowser:true 
+     UserPreferences current useCodeView2InBrowser:false"
+
+    "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 26-07-2011 / 10:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2InBrowser: aBoolean
+
+    ^self at:#useCodeView2InBrowser put: aBoolean
+
+    "
+     UserPreferences current useCodeView2InBrowser 
+     UserPreferences current useCodeView2InBrowser:true 
+     UserPreferences current useCodeView2InBrowser:false"
+
+    "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 26-07-2011 / 10:21:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2InDebugger
+
+    ^self at:#useCodeView2InDebugger ifAbsent: false
+
+    "
+     UserPreferences current useCodeView2InDebugger 
+     UserPreferences current useCodeView2InDebugger:true 
+     UserPreferences current useCodeView2InDebugger:false
+    "
+
+    "Created: / 26-07-2011 / 10:22:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2InDebugger: aBoolean
+
+    ^self at:#useCodeView2InDebugger put: aBoolean
+
+    "
+     UserPreferences current useCodeView2InDebugger 
+     UserPreferences current useCodeView2InDebugger:true 
+     UserPreferences current useCodeView2InDebugger:false"
+
+    "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 26-07-2011 / 10:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
 
 useCodeView2InTools
     ^self at:#useCodeView2InTools ifAbsent:false
@@ -1474,7 +1554,7 @@
     "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!UserPreferences methodsFor:'accessing-prefs-browser'!
+!UserPreferences methodsFor:'accessing-prefs-code view'!
 
 useCodeView2InTools:aBoolean 
     ^self at:#useCodeView2InTools put:aBoolean
@@ -1485,6 +1565,36 @@
     "Created: / 12-02-2010 / 12:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2InWorkspace
+
+    ^self at:#useCodeView2InWorkspace ifAbsent: false
+
+    "
+     UserPreferences current useCodeView2InWorkspace 
+     UserPreferences current useCodeView2InWorkspace:true 
+     UserPreferences current useCodeView2InWorkspace:false
+    "
+
+    "Created: / 26-07-2011 / 10:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+useCodeView2InWorkspace: aBoolean
+
+    ^self at:#useCodeView2InWorkspace put: aBoolean
+
+    "
+     UserPreferences current useCodeView2InWorkspace 
+     UserPreferences current useCodeView2InWorkspace:true 
+     UserPreferences current useCodeView2InWorkspace:false
+    "
+
+    "Created: / 26-07-2011 / 10:22:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !UserPreferences methodsFor:'accessing-prefs-browser'!
 
 webBrowserLikeLayout
@@ -1520,5 +1630,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.47 2011-07-25 10:26:08 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.48 2011-07-26 09:56:33 vrany Exp $'
 ! !
\ No newline at end of file