equal
deleted
inserted
replaced
12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 MultiViewToolApplication subclass:#WorkspaceApplication |
14 MultiViewToolApplication subclass:#WorkspaceApplication |
15 instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts |
15 instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts |
16 smalltalkMenuEnabledHolder clipBoardWatcherProcess |
16 smalltalkMenuEnabledHolder clipBoardWatcherProcess |
17 cursorLineHolder cursorColHolder modeLabelHolder' |
17 fetchClipboardLines cursorLineHolder cursorColHolder |
|
18 modeLabelHolder' |
18 classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime |
19 classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime |
19 DefaultToolBarVisible ClipBoardFetchingInstance LastLanguage' |
20 DefaultToolBarVisible ClipBoardFetchingInstance LastLanguage' |
20 poolDictionaries:'' |
21 poolDictionaries:'' |
21 category:'Interface-Smalltalk' |
22 category:'Interface-Smalltalk' |
22 ! |
23 ! |
668 itemValue: autoFetchSelection: |
669 itemValue: autoFetchSelection: |
669 translateLabel: true |
670 translateLabel: true |
670 indication: autoFetchSelection |
671 indication: autoFetchSelection |
671 ) |
672 ) |
672 (MenuItem |
673 (MenuItem |
|
674 label: 'Autofetch Selection (Lines)' |
|
675 translateLabel: true |
|
676 indication: autoFetchSelectionLines |
|
677 ) |
|
678 (MenuItem |
673 label: '-' |
679 label: '-' |
674 isVisible: thisIsASmalltalkWorkspace |
680 isVisible: thisIsASmalltalkWorkspace |
675 ) |
681 ) |
676 (MenuItem |
682 (MenuItem |
677 enabled: hasSelectionInActiveWorkspace |
683 enabled: hasSelectionInActiveWorkspace |
765 ) |
771 ) |
766 ) |
772 ) |
767 nil |
773 nil |
768 nil |
774 nil |
769 ) |
775 ) |
770 |
|
771 "Modified: / 16-11-2010 / 15:28:37 / cg" |
|
772 ! |
776 ! |
773 |
777 |
774 editModeInfoLabelMenu |
778 editModeInfoLabelMenu |
775 "This resource specification was automatically generated |
779 "This resource specification was automatically generated |
776 by the MenuEditor of ST/X." |
780 by the MenuEditor of ST/X." |
1883 ]. |
1887 ]. |
1884 |
1888 |
1885 "Created: / 16-11-2010 / 14:34:15 / cg" |
1889 "Created: / 16-11-2010 / 14:34:15 / cg" |
1886 ! |
1890 ! |
1887 |
1891 |
|
1892 autoFetchSelectionLines |
|
1893 fetchClipboardLines isNil ifTrue:[ |
|
1894 fetchClipboardLines := true asValue |
|
1895 ]. |
|
1896 ^ fetchClipboardLines |
|
1897 |
|
1898 "Created: / 04-02-2011 / 17:52:34 / cg" |
|
1899 ! |
|
1900 |
1888 itemFromClipboard |
1901 itemFromClipboard |
1889 |text| |
1902 |text| |
1890 |
1903 |
1891 text := self window getClipboardText. |
1904 text := self window getClipboardText. |
1892 (text notNil and:[text isString]) ifTrue:[ |
1905 (text notNil and:[text isString]) ifTrue:[ |
|
1906 self autoFetchSelectionLines value ifTrue:[ |
|
1907 text := text , Character cr |
|
1908 ]. |
1893 self paste:text. |
1909 self paste:text. |
1894 ]. |
1910 ]. |
1895 |
1911 |
1896 "Created: / 16-11-2010 / 14:44:26 / cg" |
1912 "Created: / 16-11-2010 / 14:44:26 / cg" |
|
1913 "Modified: / 04-02-2011 / 17:53:46 / cg" |
1897 ! |
1914 ! |
1898 |
1915 |
1899 startClipboardWatcher |
1916 startClipboardWatcher |
1900 clipBoardWatcherProcess isNil ifTrue:[ |
1917 clipBoardWatcherProcess isNil ifTrue:[ |
1901 ClipBoardFetchingInstance notNil ifTrue:[ |
1918 ClipBoardFetchingInstance notNil ifTrue:[ |
3237 ! ! |
3254 ! ! |
3238 |
3255 |
3239 !WorkspaceApplication class methodsFor:'documentation'! |
3256 !WorkspaceApplication class methodsFor:'documentation'! |
3240 |
3257 |
3241 version |
3258 version |
3242 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.198 2011-01-22 11:12:00 cg Exp $' |
3259 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.199 2011-02-04 16:54:23 cg Exp $' |
3243 ! |
3260 ! |
3244 |
3261 |
3245 version_CVS |
3262 version_CVS |
3246 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.198 2011-01-22 11:12:00 cg Exp $' |
3263 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.199 2011-02-04 16:54:23 cg Exp $' |
3247 ! ! |
3264 ! ! |