3554 #changeToSqueakLook |
3555 #changeToSqueakLook |
3555 'Change settings for a Squeak-like look (variable fonts)' |
3556 'Change settings for a Squeak-like look (variable fonts)' |
3556 |
3557 |
3557 #changeToVisualAgeLook |
3558 #changeToVisualAgeLook |
3558 'Change settings for a VisualAge-like look (bold variable fonts)' |
3559 'Change settings for a VisualAge-like look (bold variable fonts)' |
|
3560 |
|
3561 #alwaysPasteFileContents |
|
3562 'When pasting a file (from the Filebrowser or Explorer), always paste the file''s contents\without asking. If off, a dialog appears to ask the name or the contents of the file should be pasted' |
|
3563 |
|
3564 #autoIndentInCodeView |
|
3565 'Automatically position the cursor to a reasonably indented position when pressing the return key.\This affects editors which show code' |
|
3566 |
|
3567 #extendedWordSelectMode |
|
3568 'Controls if underlines will be treated as part of the word or not when selecting a word.\Many programming languages (including ST/X, but excluding Squeak and old ST80)\treat underline like a letter in identifiers' |
|
3569 |
|
3570 #searchBoxIsModal |
|
3571 'If off, a text search box is non-modal, and can be left floating beside an editor to mix search and edit operations.\If modal, it behaves as usual, blocking interaction with the editor while open' |
|
3572 |
|
3573 #selectAllWhenClickingBeyondEnd |
|
3574 'If on, a click beyond (i.e. below) the end of the text selects the whole text.\If off, use quadruple-click to select all (triple-click to select a full line)' |
|
3575 |
|
3576 #showAcceptCancelBar |
|
3577 'Display an green-red-yellow accept-cancel bar to the left of the text.\Press green to accept, red to cancel, and yellow to compare against the original version.' |
|
3578 |
|
3579 #st80DoubleClickSelectMode |
|
3580 'Enable the ST-80 mode for double-click on the character right after an opening parenthesis or string-quote,\to select the paranethized or quoted text.\Also, a double-click on the very first character selects the whole text' |
|
3581 |
|
3582 #st80EditMode |
|
3583 'Enable the ST-80 line-end/text-end cursor behavior.\There, the cursor cannot be positioned beyond the end of text, and cursor movement leads to the next/previous line.\This is similar to the behavior of other editors, such as "vi" or "emacs".\If off, the page is treated like a piece of paper, where any position can be reached immediately ("Rand-Editor" behavior)' |
|
3584 |
|
3585 |
|
3586 #startTextDragWithCTRL |
|
3587 'Press CTRL to drag the selected text into another view' |
|
3588 |
|
3589 #tabStops4 |
|
3590 'Controls if tab stops are multiples of 4 or 8 while editing.\Notice that this only affects the cursor positioning while editing, and that tabs are never part of the text internally.\The external (file-) representation always uses tab stops in multiples of 8.\Thus, when saving, one leading tab is generated for every 8 leading spaces,\and when reading a file, each tab is replaced by 8 spaces' |
|
3591 |
|
3592 #useNewCodeView2 |
|
3593 'Use the new advanced CodeView2, which supports line numbers, advanced variable and selector highlighting,\and other useful programmer features' |
|
3594 |
|
3595 #whitespaceWordSelectMode |
|
3596 'Controls if non-whitespace separators (such as fullstop, parenthesis etc.) are treated as separator when selecting a word (via double-click).\If off, only whitespace is treated as such. Useful when editing plain text, or code written in Lisp or Scheme' |
|
3597 |
|
3598 |
3559 ) |
3599 ) |
3560 |
3600 |
3561 "Created: / 17-03-2012 / 11:37:51 / cg" |
3601 "Created: / 17-03-2012 / 11:37:51 / cg" |
3562 ! ! |
3602 ! ! |
3563 |
3603 |
3610 (SpecCollection |
3650 (SpecCollection |
3611 collection: ( |
3651 collection: ( |
3612 (CheckBoxSpec |
3652 (CheckBoxSpec |
3613 label: 'Use the new Code Editor2 (experimental)' |
3653 label: 'Use the new Code Editor2 (experimental)' |
3614 name: 'UserCodeView2' |
3654 name: 'UserCodeView2' |
|
3655 activeHelpKey: useNewCodeView2 |
3615 model: useCodeView2InTools |
3656 model: useCodeView2InTools |
3616 extent: (Point 600 25) |
3657 extent: (Point 600 25) |
3617 ) |
3658 ) |
3618 (CheckBoxSpec |
3659 (CheckBoxSpec |
|
3660 label: 'Tab Stops in Multiples of 4' |
|
3661 name: 'TabStopsMultiples4CheckBox' |
|
3662 activeHelpKey: tabStops4 |
|
3663 model: tabsIs4 |
|
3664 translateLabel: true |
|
3665 extent: (Point 600 25) |
|
3666 ) |
|
3667 (DividerSpec |
|
3668 name: 'Separator1' |
|
3669 extent: (Point 600 4) |
|
3670 ) |
|
3671 (CheckBoxSpec |
3619 label: 'Show Accept/Cancel Bar in Editor' |
3672 label: 'Show Accept/Cancel Bar in Editor' |
3620 name: 'ShowAcceptCancelBarInBrowser' |
3673 name: 'ShowAcceptCancelBarInBrowser' |
|
3674 activeHelpKey: showAcceptCancelBar |
3621 model: showAcceptCancelBarInBrowser |
3675 model: showAcceptCancelBarInBrowser |
3622 extent: (Point 600 25) |
3676 extent: (Point 600 25) |
3623 ) |
3677 ) |
3624 (CheckBoxSpec |
3678 (CheckBoxSpec |
|
3679 label: 'SearchBox is Modal' |
|
3680 name: 'SearchBoxModalCheckBox' |
|
3681 activeHelpKey: searchBoxIsModal |
|
3682 model: searchDialogIsModal |
|
3683 translateLabel: true |
|
3684 extent: (Point 600 25) |
|
3685 ) |
|
3686 (DividerSpec |
|
3687 name: 'Separator2' |
|
3688 extent: (Point 600 4) |
|
3689 ) |
|
3690 (CheckBoxSpec |
3625 label: 'CTRL-Key to Start TextDrag' |
3691 label: 'CTRL-Key to Start TextDrag' |
3626 name: 'CTRLKeyStTextDragCheckBox' |
3692 name: 'CTRLKeyStTextDragCheckBox' |
|
3693 activeHelpKey: startTextDragWithCTRL |
3627 model: startTextDragWithControl |
3694 model: startTextDragWithControl |
3628 translateLabel: true |
3695 translateLabel: true |
3629 extent: (Point 600 25) |
3696 extent: (Point 600 25) |
3630 ) |
3697 ) |
3631 (CheckBoxSpec |
3698 (CheckBoxSpec |
3632 label: 'Always Paste the Contents when Dropping a File (Do not Ask) ' |
3699 label: 'Always Paste the Contents when Dropping a File (Do not Ask) ' |
3633 name: 'EnforceContentsDropForFiles' |
3700 name: 'EnforceContentsDropForFiles' |
|
3701 activeHelpKey: alwaysPasteFileContents |
3634 model: enforceContentsDropForFiles |
3702 model: enforceContentsDropForFiles |
3635 translateLabel: true |
3703 translateLabel: true |
3636 extent: (Point 600 25) |
3704 extent: (Point 600 25) |
3637 ) |
3705 ) |
3638 (CheckBoxSpec |
3706 (DividerSpec |
3639 label: 'SearchBox is Modal' |
3707 name: 'Separator4' |
3640 name: 'SearchBoxModalCheckBox' |
3708 extent: (Point 600 4) |
3641 model: searchDialogIsModal |
|
3642 translateLabel: true |
|
3643 extent: (Point 600 25) |
|
3644 ) |
3709 ) |
3645 (CheckBoxSpec |
3710 (CheckBoxSpec |
3646 label: 'Tab Stops in Multiples of 4' |
3711 label: 'Autoindent (Position Cursor on Return Key in Code Editors)' |
3647 name: 'TabStopsMultiples4CheckBox' |
3712 name: 'CheckBox3' |
3648 model: tabsIs4 |
3713 activeHelpKey: autoIndentInCodeView |
3649 translateLabel: true |
3714 model: autoIndentInCodeView |
3650 extent: (Point 600 25) |
|
3651 ) |
|
3652 (CheckBoxSpec |
|
3653 label: 'Double Click Select Behavior as in ST80' |
|
3654 name: 'DoubleClickSelectBehaviorST80CheckBox' |
|
3655 model: st80DoubleClickSelectMode |
|
3656 translateLabel: true |
3715 translateLabel: true |
3657 extent: (Point 600 25) |
3716 extent: (Point 600 25) |
3658 ) |
3717 ) |
3659 (CheckBoxSpec |
3718 (CheckBoxSpec |
3660 label: 'Cursor has ST80 Line-end Behavior' |
3719 label: 'Cursor has ST80 Line-end Behavior' |
3661 name: 'CursorST80LineEndBehaviorCheckBox' |
3720 name: 'CursorST80LineEndBehaviorCheckBox' |
|
3721 activeHelpKey: st80EditMode |
3662 model: st80EditMode |
3722 model: st80EditMode |
3663 translateLabel: true |
3723 translateLabel: true |
3664 extent: (Point 600 25) |
3724 extent: (Point 600 25) |
3665 ) |
3725 ) |
3666 (CheckBoxSpec |
3726 (CheckBoxSpec |
3667 label: 'Select all when Clicking beyond the Text''s End' |
3727 label: 'Select all when Clicking beyond the Text''s End' |
3668 name: 'CheckBox2' |
3728 name: 'CheckBox2' |
|
3729 activeHelpKey: selectAllWhenClickingBeyondEnd |
3669 model: selectAllWhenClickingBeyondEnd |
3730 model: selectAllWhenClickingBeyondEnd |
|
3731 translateLabel: true |
|
3732 extent: (Point 600 25) |
|
3733 ) |
|
3734 (DividerSpec |
|
3735 name: 'Separator3' |
|
3736 extent: (Point 600 4) |
|
3737 ) |
|
3738 (CheckBoxSpec |
|
3739 label: 'Double Click Select Behavior as in ST80' |
|
3740 name: 'DoubleClickSelectBehaviorST80CheckBox' |
|
3741 activeHelpKey: st80DoubleClickSelectMode |
|
3742 model: st80DoubleClickSelectMode |
3670 translateLabel: true |
3743 translateLabel: true |
3671 extent: (Point 600 25) |
3744 extent: (Point 600 25) |
3672 ) |
3745 ) |
3673 (CheckBoxSpec |
3746 (CheckBoxSpec |
3674 label: 'Treat Underscore as Letter in Word-Select' |
3747 label: 'Treat Underscore as Letter in Word-Select' |
3675 name: 'UnderscoreIsLetterCheckBox' |
3748 name: 'UnderscoreIsLetterCheckBox' |
|
3749 activeHelpKey: extendedWordSelectMode |
3676 model: extendedWordSelectMode |
3750 model: extendedWordSelectMode |
3677 translateLabel: true |
3751 translateLabel: true |
3678 extent: (Point 600 25) |
3752 extent: (Point 600 25) |
3679 ) |
3753 ) |
3680 (CheckBoxSpec |
3754 (CheckBoxSpec |
3681 label: 'Any non-Whitespace in Word-Select' |
3755 label: 'Any non-Whitespace in Word-Select' |
3682 name: 'CheckBox1' |
3756 name: 'CheckBox1' |
|
3757 activeHelpKey: whitespaceWordSelectMode |
3683 model: whitespaceWordSelectMode |
3758 model: whitespaceWordSelectMode |
3684 translateLabel: true |
3759 translateLabel: true |
3685 extent: (Point 600 25) |
3760 extent: (Point 600 25) |
3686 ) |
3761 ) |
3687 ) |
3762 ) |
3730 ]. |
3805 ]. |
3731 ! |
3806 ! |
3732 |
3807 |
3733 commonAspects |
3808 commonAspects |
3734 ^ #( |
3809 ^ #( |
3735 #useCodeView2InTools |
3810 #useCodeView2InTools |
3736 #showAcceptCancelBarInBrowser |
3811 #showAcceptCancelBarInBrowser |
3737 #searchDialogIsModal |
3812 #searchDialogIsModal |
3738 #startTextDragWithControl |
3813 #startTextDragWithControl |
3739 #st80EditMode |
3814 #st80EditMode |
3740 #extendedWordSelectMode |
3815 #extendedWordSelectMode |
3741 #whitespaceWordSelectMode |
3816 #whitespaceWordSelectMode |
3742 #selectAllWhenClickingBeyondEnd |
3817 #selectAllWhenClickingBeyondEnd |
|
3818 #autoIndentInCodeView |
3743 ) |
3819 ) |
3744 |
3820 |
3745 "Modified: / 07-03-2012 / 14:33:40 / cg" |
3821 "Modified: / 07-03-2012 / 14:33:40 / cg" |
3746 ! ! |
3822 ! ! |
3747 |
3823 |
3748 !AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'! |
3824 !AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'! |
|
3825 |
|
3826 autoIndentInCodeView |
|
3827 autoIndentInCodeView isNil ifTrue:[ |
|
3828 autoIndentInCodeView := false asValue. |
|
3829 autoIndentInCodeView onChangeSend:#updateModifiedChannel to:self. |
|
3830 ]. |
|
3831 ^ autoIndentInCodeView. |
|
3832 ! |
3749 |
3833 |
3750 enforceContentsDropForFiles |
3834 enforceContentsDropForFiles |
3751 enforceContentsDropForFiles isNil ifTrue:[ |
3835 enforceContentsDropForFiles isNil ifTrue:[ |
3752 enforceContentsDropForFiles := true asValue. |
3836 enforceContentsDropForFiles := true asValue. |
3753 enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self. |
3837 enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self. |
8868 extent: (Point 435 3) |
8952 extent: (Point 435 3) |
8869 ) |
8953 ) |
8870 (CheckBoxSpec |
8954 (CheckBoxSpec |
8871 label: 'Keyboard Focus Follows Mouse' |
8955 label: 'Keyboard Focus Follows Mouse' |
8872 name: 'focusFollowsMouse' |
8956 name: 'focusFollowsMouse' |
|
8957 activeHelpKey: focusFollowsMouse |
8873 model: focusFollowsMouse |
8958 model: focusFollowsMouse |
8874 activeHelpKey: focusFollowsMouse |
|
8875 translateLabel: true |
8959 translateLabel: true |
8876 extent: (Point 435 22) |
8960 extent: (Point 435 22) |
8877 ) |
8961 ) |
8878 (CheckBoxSpec |
8962 (CheckBoxSpec |
8879 label: 'Views Catch Focus when Mapped' |
8963 label: 'Views Catch Focus when Mapped' |
8880 name: 'takeFocus' |
8964 name: 'takeFocus' |
|
8965 activeHelpKey: takeFocus |
8881 model: takeFocus |
8966 model: takeFocus |
8882 activeHelpKey: takeFocus |
|
8883 translateLabel: true |
8967 translateLabel: true |
8884 extent: (Point 435 22) |
8968 extent: (Point 435 22) |
8885 ) |
8969 ) |
8886 (CheckBoxSpec |
8970 (CheckBoxSpec |
8887 label: 'Boxes Return Focus to Previously Active View' |
8971 label: 'Boxes Return Focus to Previously Active View' |
8888 name: 'returnFocus' |
8972 name: 'returnFocus' |
|
8973 activeHelpKey: returnFocus |
8889 model: returnFocus |
8974 model: returnFocus |
8890 activeHelpKey: returnFocus |
|
8891 translateLabel: true |
8975 translateLabel: true |
8892 extent: (Point 435 22) |
8976 extent: (Point 435 22) |
8893 ) |
8977 ) |
8894 (CheckBoxSpec |
8978 (CheckBoxSpec |
8895 label: 'Raise & Activate Windows on Click' |
8979 label: 'Raise & Activate Windows on Click' |
8896 name: 'activateOnClick' |
8980 name: 'activateOnClick' |
|
8981 activeHelpKey: activateOnClick |
8897 model: activateOnClick |
8982 model: activateOnClick |
8898 translateLabel: true |
8983 translateLabel: true |
8899 extent: (Point 435 22) |
8984 extent: (Point 435 22) |
8900 activeHelpKey: activateOnClick |
|
8901 ) |
8985 ) |
8902 (CheckBoxSpec |
8986 (CheckBoxSpec |
8903 label: 'Autoraise Windows on FocusIn' |
8987 label: 'Autoraise Windows on FocusIn' |
8904 name: 'CheckBox4' |
8988 name: 'CheckBox4' |
|
8989 activeHelpKey: autoRaiseOnFocusIn |
8905 model: autoRaiseOnFocusIn |
8990 model: autoRaiseOnFocusIn |
8906 activeHelpKey: autoRaiseOnFocusIn |
|
8907 translateLabel: true |
8991 translateLabel: true |
8908 extent: (Point 435 22) |
8992 extent: (Point 435 22) |
8909 ) |
8993 ) |
8910 (CheckBoxSpec |
8994 (CheckBoxSpec |
8911 label: 'Force Windows into Monitor''s Bounds' |
8995 label: 'Force Windows into Monitor''s Bounds' |
8928 extent: (Point 435 3) |
9012 extent: (Point 435 3) |
8929 ) |
9013 ) |
8930 (CheckBoxSpec |
9014 (CheckBoxSpec |
8931 label: 'MouseWheel Focus Follows Mouse' |
9015 label: 'MouseWheel Focus Follows Mouse' |
8932 name: 'mouseWheelFocusFollowsMouse' |
9016 name: 'mouseWheelFocusFollowsMouse' |
|
9017 activeHelpKey: mouseWheelFocusFollowsMouse |
8933 enableChannel: mouseWheelFocusFollowsMouseEnabled |
9018 enableChannel: mouseWheelFocusFollowsMouseEnabled |
8934 model: mouseWheelFocusFollowsMouse |
9019 model: mouseWheelFocusFollowsMouse |
8935 activeHelpKey: mouseWheelFocusFollowsMouse |
|
8936 translateLabel: true |
9020 translateLabel: true |
8937 extent: (Point 435 22) |
9021 extent: (Point 435 22) |
8938 ) |
9022 ) |
8939 (CheckBoxSpec |
9023 (CheckBoxSpec |
8940 label: 'CTRL-MouseWheel is Zoom' |
9024 label: 'CTRL-Mousewheel is Zoom' |
8941 name: 'CheckBox1' |
9025 name: 'CheckBox1' |
|
9026 activeHelpKey: allowMouseWheelZoom |
8942 model: allowMouseWheelZoom |
9027 model: allowMouseWheelZoom |
8943 activeHelpKey: allowMouseWheelZoom |
|
8944 translateLabel: true |
9028 translateLabel: true |
8945 extent: (Point 435 22) |
9029 extent: (Point 435 22) |
8946 ) |
9030 ) |
8947 (CheckBoxSpec |
9031 (CheckBoxSpec |
8948 label: 'ALT-Leftclick is RightClick' |
9032 label: 'ALT-Leftclick is Rightclick' |
8949 name: 'CheckBox3' |
9033 name: 'CheckBox3' |
8950 activeHelpKey: button2WithAltKey |
9034 activeHelpKey: button2WithAltKey |
8951 model: button2WithAltKey |
9035 model: button2WithAltKey |
8952 translateLabel: true |
9036 translateLabel: true |
8953 extent: (Point 435 22) |
9037 extent: (Point 435 22) |
8965 extent: (Point 435 3) |
9049 extent: (Point 435 3) |
8966 ) |
9050 ) |
8967 (CheckBoxSpec |
9051 (CheckBoxSpec |
8968 label: 'Select on Right-Button-Press' |
9052 label: 'Select on Right-Button-Press' |
8969 name: 'selectOnRightClick' |
9053 name: 'selectOnRightClick' |
|
9054 activeHelpKey: selectOnRightClick |
8970 model: selectOnRightClick |
9055 model: selectOnRightClick |
8971 translateLabel: true |
9056 translateLabel: true |
8972 extent: (Point 435 21) |
9057 extent: (Point 435 21) |
8973 activeHelpKey: selectOnRightClick |
|
8974 ) |
9058 ) |
8975 (CheckBoxSpec |
9059 (CheckBoxSpec |
8976 label: 'Menu on Right-Button-Release' |
9060 label: 'Menu on Right-Button-Release' |
8977 name: 'showRightButtonMenuOnRelease' |
9061 name: 'showRightButtonMenuOnRelease' |
|
9062 activeHelpKey: showRightButtonMenuOnRelease |
8978 model: showRightButtonMenuOnRelease |
9063 model: showRightButtonMenuOnRelease |
8979 translateLabel: true |
9064 translateLabel: true |
8980 extent: (Point 435 21) |
9065 extent: (Point 435 21) |
8981 activeHelpKey: showRightButtonMenuOnRelease |
|
8982 ) |
9066 ) |
8983 (ViewSpec |
9067 (ViewSpec |
8984 name: 'SeparatingSpace7' |
9068 name: 'SeparatingSpace7' |
8985 extent: (Point 435 4) |
9069 extent: (Point 435 4) |
8986 ) |
9070 ) |
8998 (SpecCollection |
9082 (SpecCollection |
8999 collection: ( |
9083 collection: ( |
9000 (LabelSpec |
9084 (LabelSpec |
9001 label: 'Label' |
9085 label: 'Label' |
9002 name: 'Label1' |
9086 name: 'Label1' |
9003 layout: (LayoutFrame 0 0 0 0 193 0 18 0) |
9087 layout: (LayoutFrame 0 0 0 0 170 0 17 0) |
|
9088 activeHelpKey: hostNameInLabel |
9004 translateLabel: true |
9089 translateLabel: true |
9005 labelChannel: formatHostNameWindowLabel |
9090 labelChannel: formatHostNameWindowLabel |
9006 adjust: right |
9091 adjust: right |
9007 useDefaultExtent: true |
9092 useDefaultExtent: true |
9008 activeHelpKey: hostNameInLabel |
|
9009 ) |
9093 ) |
9010 (LabelSpec |
9094 (LabelSpec |
9011 label: 'Label' |
9095 label: 'Label' |
9012 name: 'Label2' |
9096 name: 'Label2' |
9013 layout: (LayoutFrame 0 0.3 30 0 0 0.6 0 1) |
9097 layout: (LayoutFrame 0 0.3 30 0 0 0.6 0 1) |
|
9098 activeHelpKey: hostNameInLabel |
9014 translateLabel: true |
9099 translateLabel: true |
9015 labelChannel: formatHostNameWindowLabel1 |
9100 labelChannel: formatHostNameWindowLabel1 |
9016 adjust: left |
9101 adjust: left |
9017 activeHelpKey: hostNameInLabel |
|
9018 ) |
9102 ) |
9019 (LabelSpec |
9103 (LabelSpec |
9020 label: 'Label' |
9104 label: 'Label' |
9021 name: 'Label3' |
9105 name: 'Label3' |
9022 layout: (LayoutFrame 0 0.6 30 0 0 1 0 1) |
9106 layout: (LayoutFrame 0 0.6 30 0 0 1 0 1) |
|
9107 activeHelpKey: hostNameInLabel |
9023 translateLabel: true |
9108 translateLabel: true |
9024 labelChannel: formatHostNameWindowLabel2 |
9109 labelChannel: formatHostNameWindowLabel2 |
9025 adjust: left |
9110 adjust: left |
9026 activeHelpKey: hostNameInLabel |
|
9027 ) |
9111 ) |
9028 ) |
9112 ) |
9029 |
9113 |
9030 ) |
9114 ) |
9031 extent: (Point 435 92) |
9115 extent: (Point 435 92) |
9037 collection: ( |
9121 collection: ( |
9038 (CheckBoxSpec |
9122 (CheckBoxSpec |
9039 label: 'Window Label Format' |
9123 label: 'Window Label Format' |
9040 name: 'hostNameInLabelHolder' |
9124 name: 'hostNameInLabelHolder' |
9041 layout: (LayoutFrame 0 0 -22 1 216 0 0 1) |
9125 layout: (LayoutFrame 0 0 -22 1 216 0 0 1) |
|
9126 activeHelpKey: hostNameInLabel |
9042 model: hostNameInLabelHolder |
9127 model: hostNameInLabelHolder |
9043 activeHelpKey: hostNameInLabel |
|
9044 translateLabel: true |
9128 translateLabel: true |
9045 ) |
9129 ) |
9046 (InputFieldSpec |
9130 (InputFieldSpec |
9047 name: 'hostNameInLabelEntryField' |
9131 name: 'hostNameInLabelEntryField' |
9048 layout: (LayoutFrame 218 0 -22 1 -5 1 0 1) |
9132 layout: (LayoutFrame 218 0 -22 1 -5 1 0 1) |
|
9133 activeHelpKey: hostNameInLabel |
9049 enableChannel: hostNameInLabelHolder |
9134 enableChannel: hostNameInLabelHolder |
9050 model: newWindowLabelFormat |
9135 model: newWindowLabelFormat |
9051 immediateAccept: true |
9136 immediateAccept: true |
9052 acceptOnReturn: true |
9137 acceptOnReturn: true |
9053 acceptOnTab: true |
9138 acceptOnTab: true |
9054 acceptOnLostFocus: true |
9139 acceptOnLostFocus: true |
9055 acceptOnPointerLeave: true |
9140 acceptOnPointerLeave: true |
9056 activeHelpKey: hostNameInLabel |
|
9057 ) |
9141 ) |
9058 ) |
9142 ) |
9059 |
9143 |
9060 ) |
9144 ) |
9061 extent: (Point 435 30) |
9145 extent: (Point 435 30) |
9238 "Modified: / 22-08-2006 / 11:43:41 / cg" |
9322 "Modified: / 22-08-2006 / 11:43:41 / cg" |
9239 ! |
9323 ! |
9240 |
9324 |
9241 formatHostNameWindowLabel1 |
9325 formatHostNameWindowLabel1 |
9242 formatHostNameWindowLabel1 isNil ifTrue:[ |
9326 formatHostNameWindowLabel1 isNil ifTrue:[ |
9243 formatHostNameWindowLabel1 := |
9327 formatHostNameWindowLabel1 := |
9244 (resources string: |
9328 (resources stringWithCRs:'%1 - Label\%2 - Hostname\%3 - Username') |
9245 '%1 - Label |
|
9246 %2 - Hostname |
|
9247 %3 - Username') |
|
9248 ]. |
9329 ]. |
9249 ^ formatHostNameWindowLabel1. |
9330 ^ formatHostNameWindowLabel1. |
9250 |
9331 |
9251 "Created: / 16-12-2002 / 17:50:49 / penk" |
9332 "Created: / 16-12-2002 / 17:50:49 / penk" |
9252 "Modified: / 22-08-2006 / 11:43:41 / cg" |
9333 "Modified: / 22-08-2006 / 11:43:41 / cg" |
9253 ! |
9334 ! |
9254 |
9335 |
9255 formatHostNameWindowLabel2 |
9336 formatHostNameWindowLabel2 |
9256 formatHostNameWindowLabel2 isNil ifTrue:[ |
9337 formatHostNameWindowLabel2 isNil ifTrue:[ |
9257 formatHostNameWindowLabel2 := |
9338 formatHostNameWindowLabel2 := |
9258 (resources string: |
9339 (resources stringWithCRs:'%4 - ProcessId\%5 - TOP-Directory\%6 - TOP-Path'). |
9259 '%4 - ProcessId |
|
9260 %5 - TOP-Directory |
|
9261 %6 - TOP-Path'). |
|
9262 ]. |
9340 ]. |
9263 ^ formatHostNameWindowLabel2. |
9341 ^ formatHostNameWindowLabel2. |
9264 |
9342 |
9265 "Created: / 16-12-2002 / 17:50:49 / penk" |
9343 "Created: / 16-12-2002 / 17:50:49 / penk" |
9266 "Modified: / 22-08-2006 / 11:43:41 / cg" |
9344 "Modified: / 22-08-2006 / 11:43:41 / cg" |