# HG changeset patch # User Claus Gittinger # Date 1526806568 -7200 # Node ID b611fd1498dec4b87585e571e61870ce5dd89d3b # Parent a9d5814950612e2f6da5e7d9705266c1ddcce455 #FEATURE by cg class: Tools::NewSystemBrowser changed: #classMenuCheckInUsingManager: #selectorMenuBrowsePreviousVersions diff -r a9d581495061 -r b611fd1498de Tools__NewSystemBrowser.st --- a/Tools__NewSystemBrowser.st Sun May 20 10:52:51 2018 +0200 +++ b/Tools__NewSystemBrowser.st Sun May 20 10:56:08 2018 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 2000 by eXept Software AG All Rights Reserved @@ -36235,6 +36237,8 @@ doChecks := (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true). doChecks := doChecks asValue. + self window sensor shiftDown ifTrue:[ doChecks := false ]. + self classMenuCheckIn:doChecks usingManager:aManagerOrNil. doChecks value ~~ (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ifTrue:[ UserPreferences current at:#checkClassesWhenCheckingIn put:doChecks value @@ -48209,6 +48213,8 @@ dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. dummyChangeSet reverse. "/ youngest first. browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. + browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). + browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. browser readOnly:true. "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany " @@ -48434,7 +48440,7 @@ self activityNotification:nil. browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. - browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). + browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). browser readOnly:true. ]. @@ -53050,7 +53056,7 @@ label:[:chg | |lbl| "/ lbl := chg printString - lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. + lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. ]. @@ -60580,7 +60586,6 @@ ^ selectorCompletion ! ! - !NewSystemBrowser methodsFor:'private-semantic checks'! checkAcceptedMethod:aMethod inClass:aClass