2035 Transcript showCR:'terminate!!'. |
2035 Transcript showCR:'terminate!!'. |
2036 ]. |
2036 ]. |
2037 self sendTerminateSignal |
2037 self sendTerminateSignal |
2038 ! |
2038 ! |
2039 |
2039 |
|
2040 doSetLineLimit |
|
2041 "ask for the lineLimit (the number of buffered lines)" |
|
2042 |
|
2043 |lineString n| |
|
2044 |
|
2045 lineString := Dialog request:'Number of buffered lines:' initialAnswer:(self lineLimit asString). |
|
2046 lineString isEmptyOrNil ifTrue:[^ self]. |
|
2047 n := Integer readFrom:lineString onError:[^ self]. |
|
2048 self lineLimit:(n max:100). |
|
2049 |
|
2050 "Created: / 01-05-2017 / 10:27:51 / cg" |
|
2051 ! |
|
2052 |
2040 editMenu |
2053 editMenu |
2041 "return the view's middleButtonMenu" |
2054 "return the view's middleButtonMenu" |
2042 |
2055 |
2043 <resource: #keyboard (#Copy #Paste #Print #SaveAs #Print)> |
2056 <resource: #keyboard (#Copy #Paste #Print #SaveAs #Print)> |
2044 <resource: #programMenu> |
2057 <resource: #programMenu> |
2045 |
2058 |
2046 |items subMenu moreMenu m sensor| |
2059 |items subMenu moreMenu m sensor| |
2047 |
2060 |
2048 items := #( |
2061 items := #( |
2049 ('Interrupt' doSendInterrupt ) |
2062 ('Interrupt' doSendInterrupt ) |
2050 ('Terminate' doSendTerminateSignal ) |
2063 ('Terminate' doSendTerminateSignal ) |
2051 ('Kill' doSendKillSignal) |
2064 ('Kill' doSendKillSignal) |
2052 ('-' ) |
2065 ('-' ) |
2053 ('Clear' doClear ) |
2066 ('Clear' doClear ) |
2054 ('Reset' doReset ) |
2067 ('Reset' doReset ) |
|
2068 ('-' ) |
|
2069 ('Linebuffer Size...' doSetLineLimit ) |
2055 ). |
2070 ). |
2056 subMenu := PopUpMenu itemList:items resources:resources. |
2071 subMenu := PopUpMenu itemList:items resources:resources. |
2057 |
2072 |
2058 items := #( |
2073 items := #( |
2059 ('Open FileBrowser on It' openFileBrowserOnIt ) |
2074 ('Open FileBrowser on It' openFileBrowserOnIt ) |