2681 current := self classNameOfChange:changeNrShown. |
2681 current := self classNameOfChange:changeNrShown. |
2682 ]. |
2682 ]. |
2683 |
2683 |
2684 self |
2684 self |
2685 askForSearch:'Class to search for:' |
2685 askForSearch:'Class to search for:' |
2686 initialAnswer:(lastSearchString ? current) |
2686 initialAnswer:(current ? lastSearchString) |
2687 thenSearchUsing:[:searchString :changeNr | |
2687 thenSearchUsing:[:searchString :changeNr | |
2688 |thisClassName| |
2688 |thisClassName| |
2689 |
2689 |
2690 thisClassName := self classNameOfChange:changeNr. |
2690 thisClassName := self classNameOfChange:changeNr. |
2691 thisClassName notNil |
2691 thisClassName notNil |
5904 ! |
5904 ! |
5905 |
5905 |
5906 askForSearchString:msg initialAnswer:initial directionInto:aValueHolder |
5906 askForSearchString:msg initialAnswer:initial directionInto:aValueHolder |
5907 "common code to open a search box" |
5907 "common code to open a search box" |
5908 |
5908 |
5909 |searchString direction| |
5909 |searchString direction choices current| |
5910 |
5910 |
5911 direction := #forward. |
5911 direction := #forward. |
5912 |
5912 choices := OrderedCollection new. |
|
5913 |
|
5914 changeNrShown notNil ifTrue:[ |
|
5915 current := self classNameOfChange:changeNrShown. |
|
5916 initial ~= current ifTrue:[ |
|
5917 (choices includes:current) ifFalse:[ |
|
5918 choices addFirst:current |
|
5919 ]. |
|
5920 ]. |
|
5921 ]. |
|
5922 lastSearchString notNil ifTrue:[ |
|
5923 initial ~= lastSearchString ifTrue:[ |
|
5924 (choices includes:lastSearchString) ifFalse:[ |
|
5925 choices addFirst:lastSearchString |
|
5926 ]. |
|
5927 ]. |
|
5928 ]. |
|
5929 |
5913 "/ take a normal request box, but add an additional 'previous' button |
5930 "/ take a normal request box, but add an additional 'previous' button |
5914 Dialog modifyingBoxWith:[:box | |
5931 Dialog modifyingBoxWith:[:box | |
5915 |nextButton prevButton firstButton lastButton| |
5932 |nextButton prevButton firstButton lastButton| |
5916 |
5933 |
5917 nextButton := box okButton. |
5934 nextButton := box okButton. |
5930 |
5947 |
5931 nextButton label:(resources string:'Next'). |
5948 nextButton label:(resources string:'Next'). |
5932 ] do:[ |
5949 ] do:[ |
5933 searchString := Dialog |
5950 searchString := Dialog |
5934 request:msg |
5951 request:msg |
|
5952 list:choices |
5935 initialAnswer:initial |
5953 initialAnswer:initial |
5936 onCancel:nil. |
5954 ]. |
5937 ]. |
5955 |
5938 |
5956 searchString isEmptyOrNil ifTrue:[ |
5939 searchString isNil ifTrue:[ |
|
5940 ^ nil |
5957 ^ nil |
5941 ]. |
5958 ]. |
5942 aValueHolder value:direction. |
5959 aValueHolder value:direction. |
5943 ^ searchString |
5960 ^ searchString |
5944 |
5961 |
5945 " |
5962 " |
5946 self new askForSearchString:'foo' initialAnswer:'bla' directionInto:(false asValue) |
5963 self new askForSearchString:'foo' initialAnswer:'bla' directionInto:(false asValue) |
5947 " |
5964 " |
|
5965 |
|
5966 "Modified: / 12-02-2017 / 11:18:11 / cg" |
5948 ! |
5967 ! |
5949 |
5968 |
5950 autoUpdate:aBoolean |
5969 autoUpdate:aBoolean |
5951 "enabled/disable automatic update from the change-file (for monitoring)" |
5970 "enabled/disable automatic update from the change-file (for monitoring)" |
5952 |
5971 |