equal
deleted
inserted
replaced
4130 |
4130 |
4131 classCompareWithRepository |
4131 classCompareWithRepository |
4132 "open a diff-textView comparing the current (in-image) version |
4132 "open a diff-textView comparing the current (in-image) version |
4133 with the some version found in the repository." |
4133 with the some version found in the repository." |
4134 |
4134 |
|
4135 |info mod| |
|
4136 |
4135 currentClass isLoaded ifFalse:[ |
4137 currentClass isLoaded ifFalse:[ |
4136 self warn:'cannot compare unloaded classes.'. |
4138 self warn:'cannot compare unloaded classes.'. |
4137 ^ self. |
4139 ^ self. |
4138 ]. |
4140 ]. |
4139 |
4141 |
4218 revString := '???' |
4220 revString := '???' |
4219 ]. |
4221 ]. |
4220 self busyLabel:msg with:nm. |
4222 self busyLabel:msg with:nm. |
4221 |
4223 |
4222 aStream isNil ifTrue:[ |
4224 aStream isNil ifTrue:[ |
4223 self warn:'could not extract source from repository'. |
4225 info := mgr sourceInfoOfClass:currentClass. |
|
4226 info notNil ifTrue:[ |
|
4227 mod := info at:#module ifAbsent:'??'. |
|
4228 ]. |
|
4229 self warn:(resources string:'Could not extract source from repository (source module: ''%1'')' with:(mod ? '??')). |
4224 ^ self |
4230 ^ self |
4225 ]. |
4231 ]. |
4226 aStream class readErrorSignal handle:[:ex | |
4232 aStream class readErrorSignal handle:[:ex | |
4227 self warn:('read error while reading extracted source\\' , ex errorString) withCRs. |
4233 self warn:('Read error while reading extracted source\\' , ex errorString) withCRs. |
4228 aStream close. |
4234 aStream close. |
4229 ^ self |
4235 ^ self |
4230 ] do:[ |
4236 ] do:[ |
4231 comparedSource := aStream contents asString. |
4237 comparedSource := aStream contents asString. |
4232 ]. |
4238 ]. |
13824 ! ! |
13830 ! ! |
13825 |
13831 |
13826 !BrowserView class methodsFor:'documentation'! |
13832 !BrowserView class methodsFor:'documentation'! |
13827 |
13833 |
13828 version |
13834 version |
13829 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.653 2000-12-06 18:40:31 cg Exp $' |
13835 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.654 2000-12-07 13:49:44 cg Exp $' |
13830 ! ! |
13836 ! ! |
13831 BrowserView initialize! |
13837 BrowserView initialize! |