equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2000 by eXept Software AG |
4 COPYRIGHT (c) 2000 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
357 'Show only methods with selectors matching this (case sensitive)' |
359 'Show only methods with selectors matching this (case sensitive)' |
358 |
360 |
359 #nameFilterFieldMatchingSelectorsCaseless |
361 #nameFilterFieldMatchingSelectorsCaseless |
360 'Show only methods with selectors matching this (ignoring case)' |
362 'Show only methods with selectors matching this (ignoring case)' |
361 |
363 |
|
364 #nameFilterFieldMatchingSenders |
|
365 'Show only methods which send a message matching this (case sensitive)' |
|
366 |
|
367 #nameFilterFieldMatchingSendersCaseless |
|
368 'Show only methods which send a message matching this (ignoring case)' |
|
369 |
362 #nameFilterFieldMatchingSelectorsNot |
370 #nameFilterFieldMatchingSelectorsNot |
363 'Show only methods with selectors not matching this (case sensitive)' |
371 'Show only methods with selectors not matching this (case sensitive)' |
364 |
372 |
365 #nameFilterFieldMatchingSelectorsNotCaseless |
373 #nameFilterFieldMatchingSelectorsNotCaseless |
366 'Show only methods with selectors not matching this (ignoring case)' |
374 'Show only methods with selectors not matching this (ignoring case)' |
376 |
384 |
377 #nameFilterFieldMatchingTextNotCaseless |
385 #nameFilterFieldMatchingTextNotCaseless |
378 'Show only methods not containing text matching this (ignoring case)' |
386 'Show only methods not containing text matching this (ignoring case)' |
379 |
387 |
380 #nameFilterType |
388 #nameFilterType |
381 'Switch between selector- (S) and text matching (T).\The negative versions will only show methods which do NOT contain the pattern.\The (Ss) and (Tt) options ignore case, the (S) and (T) options do not.' |
389 'Switch between selector- (S), text matching (T) and messages sent (M) filters.\The negative versions will only show methods which do NOT contain the pattern.\The (Ss), (Tt) and (Mm) options ignore case, the (S), (T) and (M) options do not.' |
382 |
390 |
383 #hideNameFilter |
391 #hideNameFilter |
384 'Hide the filter. Show again via the "View"-Menu' |
392 'Hide the filter. Show again via the "View"-Menu' |
385 |
393 |
386 #gotoClassEntryField |
394 #gotoClassEntryField |
426 ]. |
434 ]. |
427 ]. |
435 ]. |
428 ^ spec. |
436 ^ spec. |
429 |
437 |
430 "Modified: / 05-12-2017 / 12:52:42 / cg" |
438 "Modified: / 05-12-2017 / 12:52:42 / cg" |
431 "Modified: / 21-09-2018 / 11:01:32 / Claus Gittinger" |
439 "Modified: / 11-05-2019 / 12:13:49 / Claus Gittinger" |
432 ! ! |
440 ! ! |
433 |
441 |
434 !NewSystemBrowser class methodsFor:'image specs'! |
442 !NewSystemBrowser class methodsFor:'image specs'! |
435 |
443 |
436 defaultIcon |
444 defaultIcon |
26204 ('Tt' #nameFilterFieldMatchingTextCaseless) |
26212 ('Tt' #nameFilterFieldMatchingTextCaseless) |
26205 ('-S' #nameFilterFieldMatchingSelectorsNot) |
26213 ('-S' #nameFilterFieldMatchingSelectorsNot) |
26206 ('-Ss' #nameFilterFieldMatchingSelectorsNotCaseless) |
26214 ('-Ss' #nameFilterFieldMatchingSelectorsNotCaseless) |
26207 ('-T' #nameFilterFieldMatchingTextNot) |
26215 ('-T' #nameFilterFieldMatchingTextNot) |
26208 ('-Tt' #nameFilterFieldMatchingTextNotCaseless) |
26216 ('-Tt' #nameFilterFieldMatchingTextNotCaseless) |
|
26217 ('M' #nameFilterFieldMatchingSenders) |
|
26218 ('Mm' #nameFilterFieldMatchingSendersCaseless) |
26209 ) detect:[:pair | pair first = filterType] |
26219 ) detect:[:pair | pair first = filterType] |
26210 thenCompute:[:pair | ^ super helpTextForKey:(pair second)] |
26220 thenCompute:[:pair | ^ super helpTextForKey:(pair second)] |
26211 ifNone:[]. |
26221 ifNone:[]. |
26212 ] |
26222 ] |
26213 ]. |
26223 ]. |
26214 |
26224 |
26215 ^ super helpTextForKey:newKey |
26225 ^ super helpTextForKey:newKey |
26216 |
26226 |
26217 "Modified: / 25-05-2018 / 11:27:47 / Claus Gittinger" |
26227 "Modified: / 11-05-2019 / 11:23:30 / Claus Gittinger" |
26218 ! ! |
26228 ! ! |
26219 |
26229 |
26220 !NewSystemBrowser methodsFor:'history'! |
26230 !NewSystemBrowser methodsFor:'history'! |
26221 |
26231 |
26222 addToFindHistory:class selector:selector |
26232 addToFindHistory:class selector:selector |
48971 ]. |
48981 ]. |
48972 |
48982 |
48973 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
48983 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
48974 dummyChangeSet reverse. "/ youngest first. |
48984 dummyChangeSet reverse. "/ youngest first. |
48975 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
48985 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
48976 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
48986 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
48977 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
48987 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
48978 browser readOnly:true. |
48988 browser readOnly:true. |
48979 |
48989 |
48980 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48990 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48981 "Modified: / 26-07-2012 / 14:30:20 / cg" |
48991 "Modified: / 26-07-2012 / 14:30:20 / cg" |
49198 ]. |
49208 ]. |
49199 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
49209 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
49200 |
49210 |
49201 self activityNotification:nil. |
49211 self activityNotification:nil. |
49202 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
49212 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
49203 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
49213 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
49204 browser readOnly:true. |
49214 browser readOnly:true. |
49205 ]. |
49215 ]. |
49206 |
49216 |
49207 "Modified: / 01-07-2011 / 16:34:29 / cg" |
49217 "Modified: / 01-07-2011 / 16:34:29 / cg" |
49208 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49218 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
53884 itemClass:[:chg | chg changeClass] |
53894 itemClass:[:chg | chg changeClass] |
53885 itemSelector:[:chg | chg selector] |
53895 itemSelector:[:chg | chg selector] |
53886 label:[:chg | |
53896 label:[:chg | |
53887 |lbl| |
53897 |lbl| |
53888 "/ lbl := chg printString |
53898 "/ lbl := chg printString |
53889 lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. |
53899 lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. |
53890 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
53900 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
53891 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
53901 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
53892 ]. |
53902 ]. |
53893 lbl |
53903 lbl |
53894 ] |
53904 ] |