184 |
184 |
185 handlesKeyPress:key inView:view |
185 handlesKeyPress:key inView:view |
186 "this method is reached via delegation: are we prepared to handle |
186 "this method is reached via delegation: are we prepared to handle |
187 a keyPress in some other view ?" |
187 a keyPress in some other view ?" |
188 |
188 |
189 <resource: #keyboard (#Delete #BackSpace #Accept)> |
189 <resource: #keyboard (#Delete #BackSpace #Accept #FindPrev #FindNext)> |
190 |
190 |
191 view == changeListView ifTrue:[ |
191 view == changeListView ifTrue:[ |
192 (key == #Delete |
192 (key == #Delete |
193 or:[key == #BackSpace |
193 or:[key == #BackSpace |
194 or:[key == #Accept]]) ifTrue:[^ true]. |
194 or:[key == #Accept |
|
195 or:[key == #FindPrev |
|
196 or:[key == #FindNext]]]]) ifTrue:[^ true]. |
195 ]. |
197 ]. |
196 ^ false |
198 ^ false |
197 |
199 |
198 "Modified: 2.3.1996 / 13:51:25 / cg" |
200 "Modified: 21.1.1997 / 22:16:02 / cg" |
199 ! |
201 ! |
200 |
202 |
201 keyPress:key x:x y:y view:view |
203 keyPress:key x:x y:y view:view |
202 "this method is reached via delegation from the changeListView" |
204 "this method is reached via delegation from the changeListView" |
203 |
205 |
204 <resource: #keyboard (#Delete #BackSpace #Accept)> |
206 <resource: #keyboard (#Delete #BackSpace #Accept #FindPrev #FindNext)> |
205 |
207 |
206 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
208 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
207 self doDelete. |
209 self doDelete. |
208 ^ self |
210 ^ self |
209 ]. |
211 ]. |
210 (key == #Accept) ifTrue:[ |
212 (key == #Accept) ifTrue:[ |
211 self doApply. |
213 self doApply. |
212 ^ self |
214 ^ self |
213 ]. |
215 ]. |
|
216 (key == #FindPrev) ifTrue:[ |
|
217 self findPreviousForClass. |
|
218 ^ self |
|
219 ]. |
|
220 (key == #FindNext) ifTrue:[ |
|
221 self findNextForClass. |
|
222 ^ self |
|
223 ]. |
214 changeListView keyPress:key x:x y:y |
224 changeListView keyPress:key x:x y:y |
215 |
225 |
216 "Modified: 2.3.1996 / 13:51:19 / cg" |
226 "Modified: 21.1.1997 / 22:17:06 / cg" |
217 ! ! |
227 ! ! |
218 |
228 |
219 !ChangesBrowser methodsFor:'help '! |
229 !ChangesBrowser methodsFor:'help '! |
220 |
230 |
221 helpTextFor:aComponent |
231 helpTextFor:aComponent |
1795 |
1805 |
1796 doApplyAll |
1806 doApplyAll |
1797 "user wants all changes to be applied" |
1807 "user wants all changes to be applied" |
1798 |
1808 |
1799 self withExecuteCursorDo:[ |
1809 self withExecuteCursorDo:[ |
|
1810 |lastNr "{ Class: SmallInteger }" | |
|
1811 |
1800 self clearCodeView. |
1812 self clearCodeView. |
1801 skipSignal isNil ifTrue:[skipSignal := Signal new]. |
1813 skipSignal isNil ifTrue:[skipSignal := Signal new]. |
1802 1 to:(self numberOfChanges) do:[:changeNr | |
1814 lastNr := self numberOfChanges. |
|
1815 1 to:lastNr do:[:changeNr | |
1803 changeListView setSelection:changeNr. |
1816 changeListView setSelection:changeNr. |
1804 self applyChange:changeNr |
1817 self applyChange:changeNr |
1805 ]. |
1818 ]. |
1806 self autoSelectLast |
1819 self autoSelectLast |
1807 ] |
1820 ] |
1808 |
1821 |
1809 "Modified: 25.5.1996 / 12:26:20 / cg" |
1822 "Modified: 21.1.1997 / 22:26:30 / cg" |
1810 ! |
1823 ! |
1811 |
1824 |
1812 doApplyClassRest |
1825 doApplyClassRest |
1813 "user wants all changes for this class from changeNr to be applied" |
1826 "user wants all changes for this class from changeNr to be applied" |
1814 |
1827 |
1815 self withSelectedChangeDo:[:changeNr | |
1828 self withSelectedChangeDo:[:changeNr | |
1816 |thisClassName classNameToApply lastChange| |
1829 |thisClassName classNameToApply lastChange |
|
1830 lastNr "{ Class: SmallInteger }" | |
1817 |
1831 |
1818 classNameToApply := self classNameOfChange:changeNr. |
1832 classNameToApply := self classNameOfChange:changeNr. |
1819 classNameToApply notNil ifTrue:[ |
1833 classNameToApply notNil ifTrue:[ |
1820 self clearCodeView. |
1834 self clearCodeView. |
1821 skipSignal isNil ifTrue:[skipSignal := Signal new]. |
1835 skipSignal isNil ifTrue:[skipSignal := Signal new]. |
1822 changeNr to:(self numberOfChanges) do:[:changeNr | |
1836 |
|
1837 lastNr := self numberOfChanges. |
|
1838 changeNr to:lastNr do:[:changeNr | |
1823 thisClassName := self classNameOfChange:changeNr. |
1839 thisClassName := self classNameOfChange:changeNr. |
1824 thisClassName = classNameToApply ifTrue:[ |
1840 thisClassName = classNameToApply ifTrue:[ |
1825 changeListView setSelection:changeNr. |
1841 changeListView setSelection:changeNr. |
1826 self applyChange:changeNr. |
1842 self applyChange:changeNr. |
1827 lastChange := changeNr |
1843 lastChange := changeNr |
1829 ]. |
1845 ]. |
1830 self autoSelect:lastChange. |
1846 self autoSelect:lastChange. |
1831 ] |
1847 ] |
1832 ] |
1848 ] |
1833 |
1849 |
1834 "Modified: 25.5.1996 / 12:26:25 / cg" |
1850 "Modified: 21.1.1997 / 22:26:04 / cg" |
1835 ! |
1851 ! |
1836 |
1852 |
1837 doApplyRest |
1853 doApplyRest |
1838 "user wants all changes from changeNr to be applied" |
1854 "user wants all changes from changeNr to be applied" |
1839 |
1855 |
1840 self withSelectedChangeDo:[:changeNr | |
1856 self withSelectedChangeDo:[:changeNr | |
|
1857 |lastNr "{ Class: SmallInteger }" | |
|
1858 |
1841 self clearCodeView. |
1859 self clearCodeView. |
1842 skipSignal isNil ifTrue:[skipSignal := Signal new]. |
1860 skipSignal isNil ifTrue:[skipSignal := Signal new]. |
1843 changeNr to:(self numberOfChanges) do:[:changeNr | |
1861 |
|
1862 lastNr := self numberOfChanges. |
|
1863 changeNr to:lastNr do:[:changeNr | |
1844 changeListView setSelection:changeNr. |
1864 changeListView setSelection:changeNr. |
1845 self applyChange:changeNr |
1865 self applyChange:changeNr |
1846 ]. |
1866 ]. |
1847 self autoSelect:self numberOfChanges. |
1867 self autoSelect:self numberOfChanges. |
1848 ] |
1868 ] |
1849 |
1869 |
1850 "Modified: 25.5.1996 / 12:26:28 / cg" |
1870 "Modified: 21.1.1997 / 22:25:29 / cg" |
1851 ! |
1871 ! |
1852 |
1872 |
1853 doBrowse |
1873 doBrowse |
1854 "user wants a browser on the class of a change" |
1874 "user wants a browser on the class of a change" |
1855 |
1875 |
2310 ] |
2330 ] |
2311 |
2331 |
2312 "Modified: 5.9.1996 / 17:19:46 / cg" |
2332 "Modified: 5.9.1996 / 17:19:46 / cg" |
2313 ! |
2333 ! |
2314 |
2334 |
|
2335 findNextForClass |
|
2336 |savedCursor| |
|
2337 |
|
2338 changeNrShown isNil ifTrue:[^ self]. |
|
2339 |
|
2340 self withCursor:Cursor questionMark do:[ |
|
2341 |lastNr cls nr thisClass | |
|
2342 |
|
2343 cls := self classNameOfChange:changeNrShown. |
|
2344 cls isNil ifTrue:[^ self]. |
|
2345 |
|
2346 lastNr := self numberOfChanges. |
|
2347 nr := changeNrShown + 1. |
|
2348 [nr <= lastNr] whileTrue:[ |
|
2349 thisClass := self classNameOfChange:nr. |
|
2350 thisClass = cls ifTrue:[ |
|
2351 changeListView setSelection:nr . |
|
2352 self changeSelection:nr. |
|
2353 ^ self |
|
2354 ]. |
|
2355 nr := nr + 1. |
|
2356 ]. |
|
2357 ]. |
|
2358 self beep. |
|
2359 |
|
2360 savedCursor := cursor. |
|
2361 self cursor:(Cursor cross). |
|
2362 Processor activeProcess millisecondDelay:300. |
|
2363 self cursor:savedCursor |
|
2364 |
|
2365 "Created: 21.1.1997 / 22:28:07 / cg" |
|
2366 ! |
|
2367 |
|
2368 findPreviousForClass |
|
2369 |savedCursor| |
|
2370 |
|
2371 changeNrShown isNil ifTrue:[^ self]. |
|
2372 |
|
2373 self withCursor:Cursor questionMark do:[ |
|
2374 |cls nr thisClass | |
|
2375 |
|
2376 cls := self classNameOfChange:changeNrShown. |
|
2377 cls isNil ifTrue:[^ self]. |
|
2378 |
|
2379 nr := changeNrShown - 1. |
|
2380 [nr >= 1] whileTrue:[ |
|
2381 thisClass := self classNameOfChange:nr. |
|
2382 thisClass = cls ifTrue:[ |
|
2383 changeListView setSelection:nr . |
|
2384 self changeSelection:nr. |
|
2385 ^ self |
|
2386 ]. |
|
2387 nr := nr - 1. |
|
2388 ]. |
|
2389 ]. |
|
2390 self beep. |
|
2391 |
|
2392 savedCursor := cursor. |
|
2393 self cursor:(Cursor cross). |
|
2394 Processor activeProcess millisecondDelay:300. |
|
2395 self cursor:savedCursor |
|
2396 |
|
2397 "Modified: 21.1.1997 / 22:28:29 / cg" |
|
2398 ! |
|
2399 |
2315 noChangesAllowed |
2400 noChangesAllowed |
2316 "show a warning that changes cannot be changed" |
2401 "show a warning that changes cannot be changed" |
2317 |
2402 |
2318 self warn:'changes are not allowed to be changed' |
2403 self warn:'changes are not allowed to be changed' |
2319 ! |
2404 ! |