equal
deleted
inserted
replaced
3368 , ').'. |
3368 , ').'. |
3369 msg := msg allBold. |
3369 msg := msg allBold. |
3370 ] ifFalse:[ |
3370 ] ifFalse:[ |
3371 clsVersion ~= binVersion ifTrue:[ |
3371 clsVersion ~= binVersion ifTrue:[ |
3372 binVersion notNil ifTrue:[ |
3372 binVersion notNil ifTrue:[ |
3373 msg := clsName |
3373 msg := clsName , ' up-to-date (but should be stc-recompiled)' |
3374 , ' up-to-date (but should be stc-recompiled)' |
|
3375 ] |
3374 ] |
3376 ] ifFalse:[ |
3375 ] ifFalse:[ |
3377 "/ msg := clsName , ' is up-to-date.' |
3376 "/ msg := clsName , ' is up-to-date.' |
3378 ]. |
3377 ]. |
3379 |
3378 |
3412 ] |
3411 ] |
3413 |
3412 |
3414 "Modified: / 15-06-1996 / 00:25:58 / stefan" |
3413 "Modified: / 15-06-1996 / 00:25:58 / stefan" |
3415 "Created: / 29-10-1996 / 13:21:08 / cg" |
3414 "Created: / 29-10-1996 / 13:21:08 / cg" |
3416 "Modified: / 10-11-2006 / 17:08:13 / cg" |
3415 "Modified: / 10-11-2006 / 17:08:13 / cg" |
|
3416 "Modified (format): / 29-09-2011 / 16:09:52 / cg" |
3417 ! ! |
3417 ! ! |
3418 |
3418 |
3419 !BrowserView methodsFor:'class category stuff'! |
3419 !BrowserView methodsFor:'class category stuff'! |
3420 |
3420 |
3421 checkClassCategorySelected |
3421 checkClassCategorySelected |
5277 msg := resources string:'compare to revision: (empty for newest)'. |
5277 msg := resources string:'compare to revision: (empty for newest)'. |
5278 rev notNil ifTrue:[ |
5278 rev notNil ifTrue:[ |
5279 msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.' |
5279 msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.' |
5280 with:nm allBold with:rev). |
5280 with:nm allBold with:rev). |
5281 (rev2 notNil and:[rev2 ~= rev]) ifTrue:[ |
5281 (rev2 notNil and:[rev2 ~= rev]) ifTrue:[ |
5282 msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' |
5282 msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' with:rev2) |
5283 with:rev2) |
|
5284 ] |
5283 ] |
5285 ]. |
5284 ]. |
5286 newestRev notNil ifTrue:[ |
5285 newestRev notNil ifTrue:[ |
5287 msg := msg , '\' , (resources string:'Newest in reporitory is %1.' |
5286 msg := msg , '\' , (resources string:'Newest in reporitory is %1.' with:newestRev) |
5288 with:newestRev) |
|
5289 ]. |
5287 ]. |
5290 |
5288 |
5291 self normalLabel. |
5289 self normalLabel. |
5292 rev := SourceCodeManagerUtilities |
5290 rev := SourceCodeManagerUtilities |
5293 askForExistingRevision:msg |
5291 askForExistingRevision:msg |
5371 ] |
5369 ] |
5372 ] |
5370 ] |
5373 |
5371 |
5374 "Created: / 04-01-1997 / 15:48:20 / cg" |
5372 "Created: / 04-01-1997 / 15:48:20 / cg" |
5375 "Modified: / 12-09-2006 / 14:25:56 / cg" |
5373 "Modified: / 12-09-2006 / 14:25:56 / cg" |
|
5374 "Modified (format): / 29-09-2011 / 16:09:33 / cg" |
5376 ! |
5375 ! |
5377 |
5376 |
5378 classCreateSourceContainerFor:aClass |
5377 classCreateSourceContainerFor:aClass |
5379 "let user specify the source-repository values for aClass" |
5378 "let user specify the source-repository values for aClass" |
5380 |
5379 |
14518 ! ! |
14517 ! ! |
14519 |
14518 |
14520 !BrowserView class methodsFor:'documentation'! |
14519 !BrowserView class methodsFor:'documentation'! |
14521 |
14520 |
14522 version_CVS |
14521 version_CVS |
14523 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.833 2011-07-06 12:14:05 cg Exp $' |
14522 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.834 2011-09-29 19:42:24 cg Exp $' |
14524 ! ! |
14523 ! ! |
14525 |
14524 |
14526 BrowserView initialize! |
14525 BrowserView initialize! |