Browse files

Fix reference to ListChooser and FileStream>>st, as they are missing …

…from Pharo
  • Loading branch information...
1 parent 8ccc894 commit b164abcae9e2a447eb29130c40a7dadfce27d91e @timfel committed Jan 8, 2012
Showing with 29 additions and 27 deletions.
  1. +3 −2 Core/GCMapper.st
  2. +3 −3 Core/GCRegistry.st
  3. +23 −22 Morphic/GCRepositoryBrowser.st
View
5 Core/GCMapper.st
@@ -79,14 +79,14 @@ fileOutPackage
ifNotEmpty: [self fileOutExtensions: packageInfo extensionMethods].
! !
-!GCMapper methodsFor: 'fileOut' stamp: 'mh 5/12/2010 15:57'!
+!GCMapper methodsFor: 'fileOut' stamp: 'tfel 1/8/2012 14:52'!
writeSourceCodeFrom: aStream to: aFile
"This writes the source code and adds to files"
| converter f fileName |
aStream contents isAsciiString
ifTrue: [converter := MacRomanTextConverter new]
ifFalse: [converter := UTF8TextConverter new].
- fileName := aFile, (FileDirectory dot, FileStream st).
+ fileName := aFile, (FileDirectory dot, 'st').
f := MultiByteFileStream new open: fileName forWrite: true.
f ifNil: [^ self error: 'Cannot open file'].
f lineEndConvention: #lf.
@@ -148,3 +148,4 @@ newFor: aPackage
packageName: aPackage;
initialize;
yourself! !
+self! !
View
6 Core/GCRegistry.st
@@ -23,14 +23,14 @@ repositories
^ Repositories! !
-!GCRegistry methodsFor: 'commands' stamp: 'tfel 6/7/2011 15:08:37.292'!
+!GCRegistry methodsFor: 'commands' stamp: 'tfel 1/8/2012 14:56'!
commit: aPackage
"This is part of the class interface - try not to break it"
| lastCommit ancestors wc |
lastCommit := (GCRegistry at: aPackage) lastCommit.
wc := (MCPackage named: aPackage) workingCopy.
- lastCommit ifNil: [lastCommit := (ListChooser
- chooseItemFrom: wc ancestry breadthFirstAncestors
+ lastCommit ifNil: [lastCommit := (UIManager default
+ chooseFrom: wc ancestry breadthFirstAncestors
title: 'Please choose how far back you want to load and commit packages for import')].
lastCommit ifNil: [^ self].
ancestors := (wc ancestry allAncestorsOnPathTo: lastCommit) reverse.
View
45 Morphic/GCRepositoryBrowser.st
@@ -90,28 +90,6 @@ selectedRepository
^ self repositoryList at: self repositoryIndex! !
-!GCRepositoryBrowser methodsFor: 'initialization' stamp: 'tfel 9/20/2009 15:04'!
-classListMap
-
- ^ self classList
- collect: [:class | self packageClasses includes: class]! !
-
-!GCRepositoryBrowser methodsFor: 'initialization' stamp: 'tfel 4/26/2010 22:21'!
-initialize
-
- super initialize.
- self
- repositoryIndex: 1;
- selectedClassIndex: 1;
- selectedClasses: self classListMap! !
-
-!GCRepositoryBrowser methodsFor: 'initialization' stamp: 'tfel 4/26/2010 22:22'!
-packageClasses
-
- ^ GCRegistry repositories
- ifEmpty: [#()]
- ifNotEmpty: [(GCRegistry at: self selectedRepository) packageClasses].! !
-
!GCRepositoryBrowser methodsFor: 'toolbuilder' stamp: 'tfel 1/8/2012 11:13'!
buildClassListWith: builder
@@ -168,6 +146,29 @@ buildWith: builder
! !
+!GCRepositoryBrowser methodsFor: 'initialization' stamp: 'tfel 9/20/2009 15:04'!
+classListMap
+
+ ^ self classList
+ collect: [:class | self packageClasses includes: class]! !
+
+!GCRepositoryBrowser methodsFor: 'initialization' stamp: 'tfel 4/26/2010 22:21'!
+initialize
+
+ super initialize.
+ self
+ repositoryIndex: 1;
+ selectedClassIndex: 1;
+ selectedClasses: self classListMap! !
+
+!GCRepositoryBrowser methodsFor: 'initialization' stamp: 'tfel 4/26/2010 22:22'!
+packageClasses
+
+ ^ GCRegistry repositories
+ ifEmpty: [#()]
+ ifNotEmpty: [(GCRegistry at: self selectedRepository) packageClasses].! !
+
+
!GCRepositoryBrowser methodsFor: 'actions' stamp: 'tfel 6/14/2010 16:08'!
fileOut

0 comments on commit b164abc

Please sign in to comment.