equal
deleted
inserted
replaced
1071 |
1071 |
1072 cmdKeys := keys select:[:key | key startsWith:'Cmd']. |
1072 cmdKeys := keys select:[:key | key startsWith:'Cmd']. |
1073 cmdKeys do:[:key | |val| |
1073 cmdKeys do:[:key | |val| |
1074 val := kbdMap at:key. |
1074 val := kbdMap at:key. |
1075 val isSymbol ifTrue:[ |
1075 val isSymbol ifTrue:[ |
1076 (#(Copy Paste SaveAs Print) includes:val) ifFalse:[ |
1076 (#(Copy Paste SaveAs Print Find FindNext FindPrev GotoLine) includes:val) ifFalse:[ |
1077 kbdMap removeKey:key |
1077 kbdMap removeKey:key |
1078 ] |
1078 ] |
1079 ] |
1079 ] |
1080 ]. |
1080 ]. |
1081 |
1081 |
1455 ] ifFalse:[ |
1455 ] ifFalse:[ |
1456 items := #( |
1456 items := #( |
1457 ('Copy' copySelection Copy ) |
1457 ('Copy' copySelection Copy ) |
1458 ('Paste' pasteOrReplace Paste ) |
1458 ('Paste' pasteOrReplace Paste ) |
1459 ('-' ) |
1459 ('-' ) |
|
1460 ('Search...' search Find) |
|
1461 ('Goto...' gotoLine GotoLine) |
|
1462 ('-' ) |
1460 ('Font...' changeFont ) |
1463 ('Font...' changeFont ) |
1461 ('-' ) |
1464 ('-' ) |
1462 ('Save As...' save SaveAs ) |
1465 ('Save As...' save SaveAs ) |
1463 ('Print' doPrint Print ) |
1466 ('Print' doPrint Print ) |
1464 ). |
1467 ). |
1777 |
1780 |
1778 "Created: / 10.6.1998 / 16:22:30 / cg" |
1781 "Created: / 10.6.1998 / 16:22:30 / cg" |
1779 "Modified: / 5.5.1999 / 11:22:32 / cg" |
1782 "Modified: / 5.5.1999 / 11:22:32 / cg" |
1780 ! ! |
1783 ! ! |
1781 |
1784 |
|
1785 !TerminalView methodsFor:'searching'! |
|
1786 |
|
1787 startPositionForSearchBackward |
|
1788 "sigh - same as found in TextView" |
|
1789 |
|
1790 |startLine startCol| |
|
1791 |
|
1792 selectionStartLine notNil ifTrue:[ |
|
1793 startLine := selectionStartLine. |
|
1794 startCol := selectionStartCol |
|
1795 ] ifFalse:[ |
|
1796 startLine := 1. |
|
1797 startCol := 1 |
|
1798 ]. |
|
1799 |
|
1800 ^ startCol @ startLine |
|
1801 ! |
|
1802 |
|
1803 startPositionForSearchForward |
|
1804 "sigh - same as found in TextView" |
|
1805 |
|
1806 |startLine startCol| |
|
1807 |
|
1808 selectionStartLine notNil ifTrue:[ |
|
1809 startLine := selectionStartLine. |
|
1810 startCol := selectionStartCol |
|
1811 ] ifFalse:[ |
|
1812 startLine := 1. |
|
1813 startCol := 1 |
|
1814 ]. |
|
1815 |
|
1816 ^ startCol @ startLine |
|
1817 ! ! |
|
1818 |
1782 !TerminalView methodsFor:'selection handling'! |
1819 !TerminalView methodsFor:'selection handling'! |
1783 |
1820 |
1784 autoMoveCursorToEndOfSelection |
1821 autoMoveCursorToEndOfSelection |
1785 "Redefined to return false since the cursor should |
1822 "Redefined to return false since the cursor should |
1786 not be affected by selecting" |
1823 not be affected by selecting" |
1817 ! ! |
1854 ! ! |
1818 |
1855 |
1819 !TerminalView class methodsFor:'documentation'! |
1856 !TerminalView class methodsFor:'documentation'! |
1820 |
1857 |
1821 version |
1858 version |
1822 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.115 2003-05-07 15:00:20 cg Exp $' |
1859 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.116 2003-05-10 11:53:37 cg Exp $' |
1823 ! ! |
1860 ! ! |
1824 |
1861 |
1825 TerminalView initialize! |
1862 TerminalView initialize! |