equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
5716 ]. |
5718 ]. |
5717 ^ self |
5719 ^ self |
5718 ]. |
5720 ]. |
5719 |
5721 |
5720 (key == #NonInsertingTab) ifTrue:[ |
5722 (key == #NonInsertingTab) ifTrue:[ |
|
5723 ((rawKey == #ShiftTab) |
|
5724 and:[self hasSelection |
|
5725 and:[selectStyle == #line]] |
|
5726 ) ifTrue:[ |
|
5727 self executekeyboardMacroNamed:#UndentBy4. |
|
5728 ^ self. |
|
5729 ]. |
5721 self unselect. self cursorTab. |
5730 self unselect. self cursorTab. |
5722 ^ self |
5731 ^ self |
5723 ]. |
5732 ]. |
5724 ((key == #BackTab) or:[(key == #Tab)]) ifTrue:[ |
5733 ((key == #BackTab) or:[(key == #Tab)]) ifTrue:[ |
5725 self tabMeansNextField ifTrue:[^ super keyPress:key x:x y:y]. |
5734 self tabMeansNextField ifTrue:[^ super keyPress:key x:x y:y]. |
5731 ] ifFalse:[ |
5740 ] ifFalse:[ |
5732 macroName := #UndentBy4. |
5741 macroName := #UndentBy4. |
5733 ]. |
5742 ]. |
5734 macroName notNil ifTrue:[ |
5743 macroName notNil ifTrue:[ |
5735 self executekeyboardMacroNamed:macroName. |
5744 self executekeyboardMacroNamed:macroName. |
|
5745 ^ self. |
5736 ]. |
5746 ]. |
5737 ] |
5747 ] |
5738 ]. |
5748 ]. |
5739 |
5749 |
5740 self unselect. |
5750 self unselect. |