equal
deleted
inserted
replaced
2449 title := 'Class to find:\(TAB to complete or use matchPattern)'. |
2449 title := 'Class to find:\(TAB to complete or use matchPattern)'. |
2450 okText := 'Find'. |
2450 okText := 'Find'. |
2451 okText2 := 'Open new'. |
2451 okText2 := 'Open new'. |
2452 ]. |
2452 ]. |
2453 box := self |
2453 box := self |
2454 enterBoxForCodeSelectionTitle:title withCRs |
2454 enterBoxForCodeSelectionTitle:(resources stringWithCRs:title) |
2455 withList:(self class classHistory collect: [:histEntry| histEntry className ]) |
2455 withList:(self class classHistory collect: [:histEntry| histEntry className ]) |
2456 okText:okText. |
2456 okText:okText. |
2457 box label:(resources string:'Browse or search class'). |
2457 box label:(resources string:'Browse or search class'). |
2458 openButton := Button label:(resources string:okText2). |
2458 openButton := Button label:(resources string:okText2). |
2459 (DialogBox defaultOKButtonAtLeft) ifTrue:[ |
2459 (DialogBox defaultOKButtonAtLeft) ifTrue:[ |
5330 ]. |
5330 ]. |
5331 self warn:(resources string:'Could not extract source from repository (source module: ''%1'')' with:(mod ? '??')). |
5331 self warn:(resources string:'Could not extract source from repository (source module: ''%1'')' with:(mod ? '??')). |
5332 ^ self |
5332 ^ self |
5333 ]. |
5333 ]. |
5334 aStream class readErrorSignal handle:[:ex | |
5334 aStream class readErrorSignal handle:[:ex | |
5335 self warn:('Read error while reading extracted source\\' , ex description) withCRs. |
5335 self warn:(resources stringWithCRs:'Read error while reading extracted source\\') , ex description. |
5336 aStream close. |
5336 aStream close. |
5337 ^ self |
5337 ^ self |
5338 ] do:[ |
5338 ] do:[ |
5339 comparedSource := aStream contents asString. |
5339 comparedSource := aStream contents asString. |
5340 ]. |
5340 ]. |
5429 "/ open a dialog for the module/package/container |
5429 "/ open a dialog for the module/package/container |
5430 "/ |
5430 "/ |
5431 box := DialogBox new. |
5431 box := DialogBox new. |
5432 box label:'container fileIn'. |
5432 box label:'container fileIn'. |
5433 |
5433 |
5434 component := box addTextLabel:(resources string:'container to fileIn') withCRs. |
5434 component := box addTextLabel:(resources stringWithCRs:'container to fileIn') . |
5435 component adjust:#left; borderWidth:0. |
5435 component adjust:#left; borderWidth:0. |
5436 box addVerticalSpace. |
5436 box addVerticalSpace. |
5437 box addVerticalSpace. |
5437 box addVerticalSpace. |
5438 |
5438 |
5439 y := box yPosition. |
5439 y := box yPosition. |
12265 labels := #('Cancel' 'Accept' 'Continue'). |
12265 labels := #('Cancel' 'Accept' 'Continue'). |
12266 values := #(false #accept true). |
12266 values := #(false #accept true). |
12267 ]. |
12267 ]. |
12268 |
12268 |
12269 action := OptionBox |
12269 action := OptionBox |
12270 request:(resources at:'Text has not been accepted.\\Your modifications will be lost when continuing.') withCRs |
12270 request:(resources stringWithCRs:'Text has not been accepted.\\Your modifications will be lost when continuing.') |
12271 label:(resources string:'Attention') |
12271 label:(resources string:'Attention') |
12272 image:(WarningBox iconBitmap) |
12272 image:(WarningBox iconBitmap) |
12273 buttonLabels:(resources array:labels) |
12273 buttonLabels:(resources array:labels) |
12274 values:values |
12274 values:values |
12275 default:true |
12275 default:true |
14624 ! ! |
14624 ! ! |
14625 |
14625 |
14626 !BrowserView class methodsFor:'documentation'! |
14626 !BrowserView class methodsFor:'documentation'! |
14627 |
14627 |
14628 version |
14628 version |
14629 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.785 2005-04-20 09:23:00 cg Exp $' |
14629 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.786 2005-07-13 15:54:29 cg Exp $' |
14630 ! ! |
14630 ! ! |
14631 |
14631 |
14632 BrowserView initialize! |
14632 BrowserView initialize! |