hg/stx-libtool: comparison BrowserView.st

equal deleted inserted replaced

-:29e57d617edd
+:7b9622ce4fcc
 self normalLabel.
 ]
 ]
 "Created: 23.11.1995 / 11:41:38 / cg"
-"Modified: 9.12.1995 / 19:50:09 / cg"
+"Modified: 9.12.1995 / 21:19:08 / cg"
 !
 classCompareWithNewestInRepository
 "open a diff-textView comparing the current (in-image) version
 with the most recent version found in the repository."
 ] ifFalse:[
 self busyLabel:'extracting previous %1' with:currentClass name.
 aStream := mgr sourceStreamFor:currentClass revision:rev.
 revString := rev
 ].
+aStream isNil ifTrue:[
+self warn:'could not extract source from repository'.
+^ self
+].
 comparedSource := aStream contents.
 aStream close.
 self busyLabel:'generating current source ...' with:nil.
 self normalLabel.
 ]
 ]
 "Created: 14.11.1995 / 16:43:15 / cg"
-"Modified: 9.12.1995 / 19:50:22 / cg"
+"Modified: 9.12.1995 / 21:57:10 / cg"
 !
 classCreateSourceContainerFor:aClass
 "let user specify the source-repository values for aClass"
 |box
 moduleHolder packageHolder fileNameHolder
 module package fileName
 specialFlags
-check y component info fn project nm|
+check y component info fn project nm mgr|
 aClass isLoaded ifFalse:[
 self warn:'please load the class first'.
 ^ self.
 ].
 "/
 "/ ask the sourceCodeManager if it knows anything about that class
 "/ if so, take that as a default.
 "/
-info := (aClass sourceCodeManager) sourceInfoOfClass:aClass.
+info := (mgr := aClass sourceCodeManager) sourceInfoOfClass:aClass.
 info notNil ifTrue:[
 (info includesKey:#module) ifTrue:[
 moduleHolder value:(info at:#module).
 ].
 (info includesKey:#directory) ifTrue:[
 box addAbortButton; addOkButton.
 box showAtPointer.
 box accepted ifTrue:[
+aClass revisionString isNil ifTrue:[
+(self confirm:(resources string:'%1 does not have any revision info (#version method)\\Shall I create one ?' with:aClass name) withCRs)
+ifFalse:[
+^ self
+].
+aClass updateVersionMethodFor:(mgr initialRevisionStringFor:aClass).
+].
 module := moduleHolder value withoutSpaces.
 package := packageHolder value withoutSpaces.
 fileName := fileNameHolder value withoutSpaces.
 "/
 "/ check for the module
 "/
-(SourceCodeManager
+(mgr checkForExistingModule:module) ifFalse:[
-checkForExistingModule:module) ifFalse:[
 (self confirm:(resources string:'%1 is a new module.\\create it ?' with:module) withCRs) ifFalse:[
 ^ self.
 ].
-(SourceCodeManager createModule:module) ifFalse:[
+(mgr createModule:module) ifFalse:[
 self warn:(resources string:'cannot create new module: %1' with:module).
 ^ self.
 ]
 ].
 "/
 "/ check for the package
 "/
-(SourceCodeManager
+(mgr checkForExistingModule:module package:package) ifFalse:[
-checkForExistingModule:module
-package:package) ifFalse:[
 (self confirm:(resources string:'%1 is a new package (in module %2).\\create it ?' with:package with:module) withCRs) ifFalse:[
 ^ self.
 ].
-(SourceCodeManager createModule:module package:package) ifFalse:[
+(mgr createModule:module package:package) ifFalse:[
 self warn:(resources string:'cannot create new package: %1 (in module %2)' with:package with:module).
 ^ self.
 ]
 ].
 "/
 "/ check for the container itself
 "/
-(SourceCodeManager
+(mgr checkForExistingContainerInModule:module package:package container:fileName) ifTrue:[
-checkForExistingContainerInModule:module
-package:package
-container:fileName) ifTrue:[
 self warn:(resources string:'container for %1 already exists in %2/%3.\\You have to destroy the old one or use another name.' with:fileName with:module with:package) withCRs.
 ^ self
 ].
-SourceCodeManager
+(mgr
 createContainerFor:aClass
 inModule:module
 package:package
-container:fileName
+container:fileName) ifFalse:[
+self warn:(resources string:'failed to create container.').
+^ self.
+].
 ].
 box destroy
-"Modified: 9.12.1995 / 19:55:59 / cg"
+"Modified: 9.12.1995 / 21:51:54 / cg"
 !
 classLoadRevision
 "load a specific revision into the system - especially useful to
 upgrade a class to the newest revision"
 ! !
 !BrowserView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.64 1995-12-09 20:03:38 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.65 1995-12-09 21:13:16 cg Exp $'
+! !
 BrowserView initialize!

changeset 263	7b9622ce4fcc
parent 261	fe9aa619107b
child 264	621107e65e1e