4677 ! |
4677 ! |
4678 |
4678 |
4679 st80EditMode |
4679 st80EditMode |
4680 "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)." |
4680 "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)." |
4681 |
4681 |
4682 ^ self at:#st80EditMode ifAbsent:false |
4682 ^ self at:#st80EditMode ifAbsent:[false] |
4683 |
4683 |
4684 " |
4684 " |
|
4685 UserPreferences current st80EditMode |
|
4686 UserPreferences current st80EditMode:true |
|
4687 UserPreferences current st80EditMode |
|
4688 UserPreferences current st80EditMode:false |
4685 UserPreferences current st80EditMode |
4689 UserPreferences current st80EditMode |
4686 " |
4690 " |
4687 ! |
4691 ! |
4688 |
4692 |
4689 st80EditMode:aBoolean |
4693 st80EditMode:aBoolean |
4691 |
4695 |
4692 ^ self at:#st80EditMode put:aBoolean |
4696 ^ self at:#st80EditMode put:aBoolean |
4693 |
4697 |
4694 " |
4698 " |
4695 UserPreferences current st80EditMode:true |
4699 UserPreferences current st80EditMode:true |
|
4700 UserPreferences current st80EditMode:false |
4696 " |
4701 " |
4697 ! |
4702 ! |
4698 |
4703 |
4699 st80SelectMode |
4704 st80SelectMode |
4700 "select mode, when double clicking as in st80 |
4705 "select mode, when double clicking as in st80 |
4701 (select to corresponding lparen/double-quote) ?" |
4706 (select to corresponding lparen/double-quote) ?" |
4702 |
4707 |
4703 ^ self at:#st80SelectMode ifAbsent:false |
4708 ^ self at:#st80SelectMode ifAbsent:[false] |
4704 |
4709 |
4705 " |
4710 " |
4706 UserPreferences current st80SelectMode |
4711 UserPreferences current st80SelectMode |
4707 " |
4712 " |
4708 |
4713 |
4719 UserPreferences current st80SelectMode:true |
4724 UserPreferences current st80SelectMode:true |
4720 UserPreferences current st80SelectMode:false |
4725 UserPreferences current st80SelectMode:false |
4721 " |
4726 " |
4722 |
4727 |
4723 "Created: / 03-07-2006 / 16:25:27 / cg" |
4728 "Created: / 03-07-2006 / 16:25:27 / cg" |
|
4729 ! |
|
4730 |
|
4731 trimBlankLines |
|
4732 "if true, blank lines are trimmed to zero size in the editor" |
|
4733 |
|
4734 ^ self at:#trimBlankLines ifAbsent:[true] |
|
4735 |
|
4736 " |
|
4737 UserPreferences current trimBlankLines |
|
4738 UserPreferences current trimBlankLines:true |
|
4739 UserPreferences current trimBlankLines |
|
4740 UserPreferences current trimBlankLines:false |
|
4741 UserPreferences current trimBlankLines |
|
4742 " |
|
4743 ! |
|
4744 |
|
4745 trimBlankLines:aBoolean |
|
4746 "if true, blank lines are trimmed to zero size in the editor" |
|
4747 |
|
4748 self at:#trimBlankLines put:aBoolean |
|
4749 |
|
4750 " |
|
4751 UserPreferences current trimBlankLines |
|
4752 UserPreferences current trimBlankLines:true |
|
4753 UserPreferences current trimBlankLines |
|
4754 UserPreferences current trimBlankLines:false |
|
4755 UserPreferences current trimBlankLines |
|
4756 " |
4724 ! |
4757 ! |
4725 |
4758 |
4726 whitespaceWordSelectMode |
4759 whitespaceWordSelectMode |
4727 "when double clicking, treat ANY non-whitespace as word-characters ? |
4760 "when double clicking, treat ANY non-whitespace as word-characters ? |
4728 (default is off)" |
4761 (default is off)" |