2766 UserPreferences current showAcceptCancelBarInBrowser:true |
2768 UserPreferences current showAcceptCancelBarInBrowser:true |
2767 UserPreferences current showAcceptCancelBarInBrowser:false |
2769 UserPreferences current showAcceptCancelBarInBrowser:false |
2768 " |
2770 " |
2769 ! |
2771 ! |
2770 |
2772 |
|
2773 showMarqueeInfo |
|
2774 "If set, show multiline infos in the info area as a scrolling marquee text" |
|
2775 |
|
2776 ^ self at:#showMarqueeInfo ifAbsent:[true]. |
|
2777 |
|
2778 " |
|
2779 UserPreferences current showMarqueeInfo |
|
2780 UserPreferences current showMarqueeInfo:true |
|
2781 UserPreferences current showMarqueeInfo:false |
|
2782 " |
|
2783 |
|
2784 "Created: / 04-04-2012 / 14:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2785 ! |
|
2786 |
|
2787 showMarqueeInfo:aBoolean |
|
2788 "If set, show multiline infos in the info area as a scrolling marquee text" |
|
2789 |
|
2790 self at:#showMarqueeInfo put:aBoolean. |
|
2791 |
|
2792 " |
|
2793 UserPreferences current showMarqueeInfo |
|
2794 UserPreferences current showMarqueeInfo:true |
|
2795 UserPreferences current showMarqueeInfo:false |
|
2796 " |
|
2797 |
|
2798 "Created: / 04-04-2012 / 14:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2799 ! |
|
2800 |
2771 syntaxColoring |
2801 syntaxColoring |
2772 "return the flag which controls syntax coloring (in the browsers)" |
2802 "return the flag which controls syntax coloring (in the browsers)" |
2773 |
2803 |
2774 ^ self at:#syntaxColoring ifAbsent:true |
2804 ^ self at:#syntaxColoring ifAbsent:true |
2775 |
2805 |
4677 ! |
4707 ! |
4678 |
4708 |
4679 st80EditMode |
4709 st80EditMode |
4680 "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)." |
4710 "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)." |
4681 |
4711 |
4682 ^ self at:#st80EditMode ifAbsent:false |
4712 ^ self at:#st80EditMode ifAbsent:[false] |
4683 |
4713 |
4684 " |
4714 " |
|
4715 UserPreferences current st80EditMode |
|
4716 UserPreferences current st80EditMode:true |
|
4717 UserPreferences current st80EditMode |
|
4718 UserPreferences current st80EditMode:false |
4685 UserPreferences current st80EditMode |
4719 UserPreferences current st80EditMode |
4686 " |
4720 " |
4687 ! |
4721 ! |
4688 |
4722 |
4689 st80EditMode:aBoolean |
4723 st80EditMode:aBoolean |
4691 |
4725 |
4692 ^ self at:#st80EditMode put:aBoolean |
4726 ^ self at:#st80EditMode put:aBoolean |
4693 |
4727 |
4694 " |
4728 " |
4695 UserPreferences current st80EditMode:true |
4729 UserPreferences current st80EditMode:true |
|
4730 UserPreferences current st80EditMode:false |
4696 " |
4731 " |
4697 ! |
4732 ! |
4698 |
4733 |
4699 st80SelectMode |
4734 st80SelectMode |
4700 "select mode, when double clicking as in st80 |
4735 "select mode, when double clicking as in st80 |
4701 (select to corresponding lparen/double-quote) ?" |
4736 (select to corresponding lparen/double-quote) ?" |
4702 |
4737 |
4703 ^ self at:#st80SelectMode ifAbsent:false |
4738 ^ self at:#st80SelectMode ifAbsent:[false] |
4704 |
4739 |
4705 " |
4740 " |
4706 UserPreferences current st80SelectMode |
4741 UserPreferences current st80SelectMode |
4707 " |
4742 " |
4708 |
4743 |
4719 UserPreferences current st80SelectMode:true |
4754 UserPreferences current st80SelectMode:true |
4720 UserPreferences current st80SelectMode:false |
4755 UserPreferences current st80SelectMode:false |
4721 " |
4756 " |
4722 |
4757 |
4723 "Created: / 03-07-2006 / 16:25:27 / cg" |
4758 "Created: / 03-07-2006 / 16:25:27 / cg" |
|
4759 ! |
|
4760 |
|
4761 trimBlankLines |
|
4762 "if true, blank lines are trimmed to zero size in the editor" |
|
4763 |
|
4764 ^ self at:#trimBlankLines ifAbsent:[true] |
|
4765 |
|
4766 " |
|
4767 UserPreferences current trimBlankLines |
|
4768 UserPreferences current trimBlankLines:true |
|
4769 UserPreferences current trimBlankLines |
|
4770 UserPreferences current trimBlankLines:false |
|
4771 UserPreferences current trimBlankLines |
|
4772 " |
|
4773 ! |
|
4774 |
|
4775 trimBlankLines:aBoolean |
|
4776 "if true, blank lines are trimmed to zero size in the editor" |
|
4777 |
|
4778 self at:#trimBlankLines put:aBoolean |
|
4779 |
|
4780 " |
|
4781 UserPreferences current trimBlankLines |
|
4782 UserPreferences current trimBlankLines:true |
|
4783 UserPreferences current trimBlankLines |
|
4784 UserPreferences current trimBlankLines:false |
|
4785 UserPreferences current trimBlankLines |
|
4786 " |
4724 ! |
4787 ! |
4725 |
4788 |
4726 whitespaceWordSelectMode |
4789 whitespaceWordSelectMode |
4727 "when double clicking, treat ANY non-whitespace as word-characters ? |
4790 "when double clicking, treat ANY non-whitespace as word-characters ? |
4728 (default is off)" |
4791 (default is off)" |
4816 usersModuleName:aString |
4879 usersModuleName:aString |
4817 self at:#usersModuleName put:aString |
4880 self at:#usersModuleName put:aString |
4818 ! |
4881 ! |
4819 |
4882 |
4820 workspaceDirectory |
4883 workspaceDirectory |
|
4884 "this is the folder where snapshot images, the change file and any stc-compiled |
|
4885 object files are stored. |
|
4886 The idea is to keep that stuff together, so we can move it as a bunch. |
|
4887 These used to be in the bin-folder of st/x, but that would not work with readonly/shared |
|
4888 st/x installations." |
|
4889 |
4821 ^ self at:#workspaceDirectory ifAbsent:[self class defaultWorkspaceDirectory] |
4890 ^ self at:#workspaceDirectory ifAbsent:[self class defaultWorkspaceDirectory] |
4822 ! |
4891 ! |
4823 |
4892 |
4824 workspaceDirectory:aDirectoryOrNilForDefault |
4893 workspaceDirectory:aDirectoryOrNilForDefault |
4825 |d| |
4894 |d| |