SmallSense__SmalltalkEditSupport.st
changeset 255 c32b4a6595d6
parent 252 feba6ee5c814
child 260 e3becce6ef1e
--- a/SmallSense__SmalltalkEditSupport.st	Fri Jul 18 07:52:25 2014 +0100
+++ b/SmallSense__SmalltalkEditSupport.st	Sat Jul 19 00:25:58 2014 +0100
@@ -395,6 +395,8 @@
 keyPressPaste
     | textSelected textPasted currentLineNo currentLine currentLineIsEmpty |
 
+    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled ifFalse:[ ^ false ].
+
     textView checkModificationsAllowed ifTrue:[
         textSelected := textPasted := textView getTextSelectionOrTextSelectionFromHistory.
         currentLineNo := textView currentLine.
@@ -418,7 +420,7 @@
     ^ true
 
     "Created: / 03-05-2014 / 01:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 23-06-2014 / 20:37:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-07-2014 / 00:13:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 keyPressReturn