equal
deleted
inserted
replaced
1903 keyPress:key x:x y:y |
1903 keyPress:key x:x y:y |
1904 "handle some keyboard input (there is not much to be done here)" |
1904 "handle some keyboard input (there is not much to be done here)" |
1905 |
1905 |
1906 <resource: #keyboard (#Find #Copy #FindNext #FindPrev #FindAgain |
1906 <resource: #keyboard (#Find #Copy #FindNext #FindPrev #FindAgain |
1907 #GotoLine #SelectAll #SaveAs #Print |
1907 #GotoLine #SelectAll #SaveAs #Print |
|
1908 #OpenWorkspaceOnIt |
1908 #'F*' #'f*')> |
1909 #'F*' #'f*')> |
1909 |
1910 |
1910 (key == #Find) ifTrue:[self search. ^self]. |
1911 (key == #Find) ifTrue:[self search. ^self]. |
1911 (key == #Copy) ifTrue:[self copySelection. ^self]. |
1912 (key == #Copy) ifTrue:[self copySelection. ^self]. |
1912 (key == #GotoLine) ifTrue:[self gotoLine. ^self]. |
1913 (key == #GotoLine) ifTrue:[self gotoLine. ^self]. |
1917 |
1918 |
1918 (key == #SelectAll) ifTrue:[self selectAll. ^self]. |
1919 (key == #SelectAll) ifTrue:[self selectAll. ^self]. |
1919 |
1920 |
1920 (key == #SaveAs) ifTrue:[self save. ^self]. |
1921 (key == #SaveAs) ifTrue:[self save. ^self]. |
1921 (key == #Print) ifTrue:[self doPrint. ^self]. |
1922 (key == #Print) ifTrue:[self doPrint. ^self]. |
|
1923 |
|
1924 (key == #OpenWorkspaceOnIt) ifTrue:[self openWorkspaceWithIt. ^self]. |
1922 |
1925 |
1923 " |
1926 " |
1924 shift-Fn defines a key-sequence |
1927 shift-Fn defines a key-sequence |
1925 Fn pastes that sequence |
1928 Fn pastes that sequence |
1926 cmd-Fn performs a 'doIt' on the sequence (Workspaces only) |
1929 cmd-Fn performs a 'doIt' on the sequence (Workspaces only) |
1938 ]. |
1941 ]. |
1939 ]. |
1942 ]. |
1940 |
1943 |
1941 super keyPress:key x:x y:y |
1944 super keyPress:key x:x y:y |
1942 |
1945 |
1943 "Modified: / 10-03-2012 / 09:40:01 / cg" |
|
1944 "Modified (format): / 30-03-2017 / 22:35:58 / stefan" |
1946 "Modified (format): / 30-03-2017 / 22:35:58 / stefan" |
|
1947 "Modified: / 01-09-2017 / 14:32:27 / cg" |
1945 ! |
1948 ! |
1946 |
1949 |
1947 mapped |
1950 mapped |
1948 super mapped. |
1951 super mapped. |
1949 selectionFgColor := selectionFgColor onDevice:device. |
1952 selectionFgColor := selectionFgColor onDevice:device. |