extensions.st
changeset 10525 4114204ee980
parent 10522 a05002175fbd
child 10526 00542de5120a
--- a/extensions.st	Sun Aug 07 13:59:11 2011 +0200
+++ b/extensions.st	Sun Aug 07 14:00:39 2011 +0200
@@ -1262,6 +1262,36 @@
     "Created: / 19-10-2008 / 08:01:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+codeView2AutoIndent
+
+    ^self at:#codeView2AutoIndent ifAbsent: false
+
+    "
+     UserPreferences current codeView2AutoIndent 
+     UserPreferences current codeView2AutoIndent:true 
+     UserPreferences current codeView2AutoIndent:false"
+
+    "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 07-08-2011 / 12:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-prefs-code view'!
+
+codeView2AutoIndent: aBoolean
+
+    ^self at:#codeView2AutoIndent put: aBoolean
+
+    "
+     UserPreferences current codeView2AutoIndent 
+     UserPreferences current codeView2AutoIndent:true 
+     UserPreferences current codeView2AutoIndent:false"
+
+    "Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 07-08-2011 / 12:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !UserPreferences methodsFor:'accessing-prefs-browser'!
 
 showBookmarkBar
@@ -1654,5 +1684,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.53 2011-08-06 20:52:04 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.54 2011-08-07 12:00:39 vrany Exp $'
 ! !
\ No newline at end of file