Packages March 2013

packages@lists.squeakfoundation.org

1 participants
258 discussions

The Trunk: System-fbs.517.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.517.mcz ==================== Summary ==================== Name: System-fbs.517 Author: fbs Time: 4 March 2013, 10:44:38.221 pm UUID: 33c1ed01-a761-41ed-8dd8-f4abf26395b3 Ancestors: System-fbs.516 Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp. =============== Diff against System-fbs.516 =============== Item was changed: ----- Method: ChangeSet>>methodsWithInitialsOtherThan: (in category 'moving changes') ----- methodsWithInitialsOtherThan: myInits "Return a collection of method refs whose author appears to be different from the given one" | slips | slips := OrderedCollection new. self changedClasses do: [:aClass | (self methodChangesAtClass: aClass name) associationsDo: [:mAssoc | | aTimeStamp method | (#(remove addedThenRemoved) includes: mAssoc value) ifFalse: [method := aClass compiledMethodAt: mAssoc key ifAbsent: [nil]. method ifNotNil: + [((aTimeStamp := method timeStamp) notNil and: - [((aTimeStamp := Utilities timeStampForMethod: method) notNil and: [(aTimeStamp beginsWith: myInits) not]) ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]]. ^ slips "Smalltalk browseMessageList: (ChangeSet current methodsWithInitialsOtherThan: 'sw') name: 'authoring problems'"! Item was changed: ----- Method: ImageSegment>>writeForExportWithSources:inDirectory: (in category 'read/write segment') ----- writeForExportWithSources: fName inDirectory: aDirectory "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "this is the old version which I restored until I solve the gzip problem" | fileStream temp tempFileName zipper allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. tempFileName := aDirectory nextNameFor: 'SqProject' extension: 'temp'. zipper := [ ProgressNotification signal: '3:uncompressedSaveComplete'. (aDirectory oldFileNamed: tempFileName) compressFile. "makes xxx.gz" aDirectory rename: (tempFileName, FileDirectory dot, 'gz') toBe: fName. aDirectory deleteFileNamed: tempFileName ifAbsent: [] ]. fileStream := aDirectory newFileNamed: tempFileName. fileStream fileOutClass: nil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [zipper value. ^ self]. fileStream reopen; setToEnd. fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream close. zipper value.! Item was changed: ----- Method: ImageSegment>>writeForExportWithSources:inDirectory:changeSet: (in category 'read/write segment') ----- writeForExportWithSources: fName inDirectory: aDirectory changeSet: aChangeSetOrNil "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "Files out a changeSet first, so that a project can contain classes that are unique to the project." | fileStream temp tempFileName zipper allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. tempFileName := aDirectory nextNameFor: 'SqProject' extension: 'temp'. zipper := [ Preferences debugPrintSpaceLog ifTrue:[ fileStream := aDirectory newFileNamed: (fName copyFrom: 1 to: (fName lastIndexOf: $.)), 'space'. self printSpaceAnalysisOn: fileStream. fileStream close]. ProgressNotification signal: '3:uncompressedSaveComplete'. (aDirectory oldFileNamed: tempFileName) compressFile. "makes xxx.gz" aDirectory rename: (tempFileName, FileDirectory dot, 'gz') toBe: fName. aDirectory deleteFileNamed: tempFileName ifAbsent: [] ]. fileStream := aDirectory newFileNamed: tempFileName. fileStream fileOutChangeSet: aChangeSetOrNil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [zipper value. ^ self]. fileStream reopen; setToEnd. fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities - timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream close. zipper value. ! Item was changed: ----- Method: ImageSegment>>writeForExportWithSourcesGZ:inDirectory: (in category 'read/write segment') ----- writeForExportWithSourcesGZ: fName inDirectory: aDirectory "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "this is the gzipped version which I have temporarily suspended until I can get resolve the problem with forward references tring to reposition the stream - RAA 11 june 2000" | fileStream temp allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. fileStream := GZipSurrogateStream newFileNamed: fName inDirectory: aDirectory. fileStream fileOutClass: nil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [ fileStream reallyClose. "since #close is ignored" ^ self ]. "fileStream reopen; setToEnd." "<--not required with gzipped surrogate stream" fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream reallyClose. "since #close is ignored" ! Item was changed: ----- Method: Utilities class>>doesMethod:forClass:bearInitials: (in category 'miscellaneous') ----- doesMethod: aSelector forClass: aClass bearInitials: initials "Answer whether a method bears the given initials at the head of its time stamp" | aTimeStamp implementingClass aMethod | implementingClass := aClass whichClassIncludesSelector: aSelector. implementingClass ifNil: [^ false]. (aMethod := implementingClass compiledMethodAt: aSelector) ifNil: [^ false]. + ^ (aTimeStamp := aMethod timeStamp) notNil and: - ^ (aTimeStamp := self timeStampForMethod: aMethod) notNil and: [aTimeStamp beginsWith: initials]! Item was changed: ----- Method: Utilities class>>methodsWithInitials: (in category 'identification') ----- methodsWithInitials: targetInitials "Based on a do-it contributed to the Squeak mailing list by Göran Hultgen: Browse methods whose initials (in the time-stamp, as logged to disk) match the given initials. Print out the complete time-stamp table to the Transcript. Answer a list of (initials -> count) associations. CAUTION: It may take several minutes for this to complete." "Time millisecondsToRun: [Utilities methodsWithInitials: 'bf']" | initials timeStamp allSubmitters | initials := ''. timeStamp := ''. allSubmitters := Bag new. self systemNavigation browseAllSelect: [:cm | + timeStamp := cm timeStamp. - timeStamp := Utilities timeStampForMethod: cm. initials := timeStamp isEmpty ifTrue: [''] ifFalse: [timeStamp substrings first]. initials := initials isEmpty ifTrue: ['<no time stamp>'] ifFalse: [initials first isDigit ifTrue: ['<date>'] ifFalse: [initials]]. allSubmitters add: initials. (initials = targetInitials)] name: ('Methods with initials ', targetInitials) autoSelect: nil. allSubmitters sortedCounts do: [:elem | Transcript cr; show: elem asString]. ^ allSubmitters ! Item was removed: - ----- Method: Utilities class>>timeStampForMethod: (in category 'miscellaneous') ----- - timeStampForMethod: method - "Answer the authoring time-stamp for the given method, retrieved from the sources or changes file. Answer the empty string if no time stamp is available." - "Utilities timeStampForMethod: (Utilities class compiledMethodAt: #timeStampForMethod:)" - - ^ method timeStamp!

1 0

The Trunk: System-fbs.517.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

1 0

The Trunk: SmallLand-ColorTheme-fbs.1.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-fbs.1.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-fbs.1 Author: fbs Time: 5 March 2013, 9:33:48.238 am UUID: c4426ce9-1634-41c0-af8c-cb1b56a90aba Ancestors: Put all the SmallLand colour themes in a separate package. ==================== Snapshot ==================== SystemOrganization addCategory: #'SmallLand-ColorTheme'! ColorTheme subclass: #SmallLandColorTheme instanceVariableNames: 'darks normals lights' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! SmallLandColorTheme subclass: #BlueSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: BlueSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " BlueSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.2 0.3 0.9 )) with: (Color fromArray: #(0.6 0.7 1.0 )) with: (Color fromArray: #(0.85 0.9 1.0 ))! SmallLandColorTheme subclass: #GraySmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: GraySmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " GraySmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.4 0.4 0.4 )) with: (Color fromArray: #(0.8 0.8 0.8 )) with: (Color fromArray: #(0.97 0.97 0.97 ))! SmallLandColorTheme subclass: #GreenSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: GreenSmallLandColorTheme>>baseColors (in category 'initialize-release') ----- baseColors " GreenSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.1 0.5 0.3 )) with: (Color fromArray: #(0.2 0.9 0.6 )) with: (Color fromArray: #(0.85 1.0 0.98 ))! SmallLandColorTheme subclass: #MagentaSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: MagentaSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " MagentaSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.8 0.1 0.7 )) with: (Color fromArray: #(1.0 0.3 0.9 )) with: (Color fromArray: #(1.0 0.9 0.8 ))! SmallLandColorTheme subclass: #OrangeSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: OrangeSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " OrangeSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.8 0.4 0.0 )) with: (Color fromArray: #(1.0 0.8 0.0 )) with: (Color fromArray: #(1.0 1.0 0.8 ))! SmallLandColorTheme subclass: #RedSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: RedSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " RedSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.8 0.0 0.2 )) with: (Color fromArray: #(0.97 0.13 0.3 )) with: (Color fromArray: #(1.0 0.88 0.97 ))! ----- Method: SmallLandColorTheme class>>allThemes (in category 'accessing') ----- allThemes " SmallLandColorTheme allThemes. " ^ self withAllSubclasses reject: [:each | each == self]! ----- Method: SmallLandColorTheme class>>chooseTheme (in category 'accessing') ----- chooseTheme " SmallLandColorTheme chooseTheme. " | themes menu | menu := MenuMorph new defaultTarget: self. menu addTitle: 'choose color theme' translated. Preferences noviceMode ifFalse: [menu addStayUpItem]. "" themes := self allThemes asSortedCollection: [:x :y | x themeName translated <= y themeName translated]. themes do: [:each | ""menu addUpdating: #stringForTheme: target: each selector: #applyTheme: argumentList: {each}]. "" menu popUpInWorld! ----- Method: SmallLandColorTheme class>>stringForTheme: (in category 'accessing') ----- stringForTheme: aTheme ^ (aTheme == ColorTheme current class ifTrue: ['<on>'] ifFalse: ['<off>']) , aTheme themeName translated.! ----- Method: SmallLandColorTheme class>>themeName (in category 'accessing') ----- themeName " self themeName. BlueSmallLandColorTheme themeName. GreenSmallLandColorTheme themeName. " ^ self name allButLast: 'SmallLandColorTheme' size. ! ----- Method: SmallLandColorTheme>>apply (in category 'applying') ----- apply Preferences installBrightWindowColors. "" super apply. "" self updateTopProject. self updateFlaps. self updateWorldMainDockingBar! ----- Method: SmallLandColorTheme>>balloonColor (in category 'theme') ----- balloonColor ^ (self light: 1) twiceLighter alpha: 0.95"Color white alpha: 0.95"! ----- Method: SmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors "Answer a collection of the 3 base colors" ^ self subclassResponsibility! ----- Method: SmallLandColorTheme>>cancelColor (in category 'theme') ----- cancelColor ^ super cancelColor"self normal: 8"! ----- Method: SmallLandColorTheme>>dark: (in category 'private - colors') ----- dark: index ^ darks at: index! ----- Method: SmallLandColorTheme>>defaultWorldColor (in category 'theme') ----- defaultWorldColor ^ (self light: 1) twiceLighter twiceLighter ! ----- Method: SmallLandColorTheme>>dialog3DTitles (in category 'theme - dialogs') ----- dialog3DTitles ^ false! ----- Method: SmallLandColorTheme>>dialogBorderColor (in category 'theme - dialogs') ----- dialogBorderColor ^ (self dark: 5) ! ----- Method: SmallLandColorTheme>>dialogBorderWidth (in category 'theme - dialogs') ----- dialogBorderWidth ^ 2! ----- Method: SmallLandColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') ----- dialogButtonBorderWidth ^ 1! ----- Method: SmallLandColorTheme>>dialogColor (in category 'theme - dialogs') ----- dialogColor ^ self light: 3! ----- Method: SmallLandColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') ----- dialogPaneBorderColor ^ self dialogTextBoxBorderColor ! ----- Method: SmallLandColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') ----- dialogPaneBorderWidth ^ 1! ----- Method: SmallLandColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') ----- dialogPaneRampOrColor ^ self dialogTextBoxColor! ----- Method: SmallLandColorTheme>>dialogRampOrColor (in category 'theme - dialogs') ----- dialogRampOrColor ^ self dialogColor! ----- Method: SmallLandColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') ----- dialogTextBoxBorderColor ^ self normal: 1! ----- Method: SmallLandColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') ----- dialogTextBoxColor ^ self light: 1! ----- Method: SmallLandColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') ----- dockingBarAutoGradient ^ true! ----- Method: SmallLandColorTheme>>dockingBarColor (in category 'theme - dockingbar') ----- dockingBarColor ^self normal:1! ----- Method: SmallLandColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') ----- dockingBarGradientRamp ^ {0.0 -> Color white. 1.0 -> (self normal:1)}! ----- Method: SmallLandColorTheme>>helpColor (in category 'theme') ----- helpColor ^ self okColor! ----- Method: SmallLandColorTheme>>initialize (in category 'initialization') ----- initialize "Initialize the receiver" | baseColors | super initialize. "" baseColors := self baseColors. "" darks := baseColors first wheel: 8. normals := baseColors second wheel: 8. lights := baseColors third wheel: 8! ----- Method: SmallLandColorTheme>>insertionPointColor (in category 'theme') ----- insertionPointColor ^ self normal: 7! ----- Method: SmallLandColorTheme>>keyboardFocusColor (in category 'theme') ----- keyboardFocusColor ^ self normal: 8! ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') ----- labelForColor: aColor ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString! ----- Method: SmallLandColorTheme>>light: (in category 'private - colors') ----- light: index ^ lights at: index! ----- Method: SmallLandColorTheme>>menuBorderColor (in category 'theme - menus') ----- menuBorderColor ^self dark: 1! ----- Method: SmallLandColorTheme>>menuBorderWidth (in category 'theme - menus') ----- menuBorderWidth ^ 2.! ----- Method: SmallLandColorTheme>>menuColor (in category 'theme - menus') ----- menuColor ^ self light: 1! ----- Method: SmallLandColorTheme>>menuLineColor (in category 'theme - menus') ----- menuLineColor ^ self normal: 1! ----- Method: SmallLandColorTheme>>menuSelectionColor (in category 'theme - menus') ----- menuSelectionColor ^ self dark: 1! ----- Method: SmallLandColorTheme>>menuTitleBorderColor (in category 'theme - menus') ----- menuTitleBorderColor ^ self menuTitleColor ! ----- Method: SmallLandColorTheme>>menuTitleBorderWidth (in category 'theme - menus') ----- menuTitleBorderWidth ^ 6! ----- Method: SmallLandColorTheme>>menuTitleColor (in category 'theme - menus') ----- menuTitleColor ^ self normal: 1! ----- Method: SmallLandColorTheme>>normal: (in category 'private - colors') ----- normal: index ^ normals at: index! ----- Method: SmallLandColorTheme>>okColor (in category 'theme') ----- okColor ^ super okColor "self normal: 2"! ----- Method: SmallLandColorTheme>>printOn: (in category 'printing') ----- printOn: aStream aStream nextPutAll: 'Small-Land Color Theme: ', self class themeName! ----- Method: SmallLandColorTheme>>rowOf: (in category 'private - colors') ----- rowOf: colors | row | row := AlignmentMorph newRow. row cellInset: 5. row color: Color white. "" colors do: [:each | | box label | box := RectangleMorph new. box extent: 100 @ 60. box color: each. box borderWidth: 2. box borderColor: box color muchDarker. "" label := StringMorph contents: (self labelForColor: each). label color: each negated. box addMorphCentered: label. "" row addMorphBack: box]. "" ^ row ! ----- Method: SmallLandColorTheme>>showColors (in category 'private - colors') ----- showColors " BlueSmallLandColorTheme new showColors. " | col | col := AlignmentMorph newColumn. col color: Color white. col addMorphBack: (self rowOf: darks). col addMorphBack: (self rowOf: normals). col addMorphBack: (self rowOf: lights). "" col openInWorld! ----- Method: SmallLandColorTheme>>textHighlightColor (in category 'theme') ----- textHighlightColor ^self normal: 1! ----- Method: SmallLandColorTheme>>updateFlaps (in category 'applying') ----- updateFlaps Flaps globalFlapTabs select: [:each | each flapID = 'Supplies' translated] thenDo: [:each | each color: (self normal: 1); borderColor: (self normal: 1); borderWidth: (self menuBorderWidth). "" each referent color: (self light: 1); borderWidth: (self menuBorderWidth); borderColor: (self normal: 1)]! ----- Method: SmallLandColorTheme>>updateTopProject (in category 'applying') ----- updateTopProject Project current == Project topProject ifFalse:[^ self]. "" World color: Preferences defaultWorldColor. World submorphs select: [:each | "" (each isKindOf: StringMorph) and: [each contents = 'Squeak']] thenDo: [:each | each color: (self dark: 1)]. ! ----- Method: SmallLandColorTheme>>updateWorldMainDockingBar (in category 'applying') ----- updateWorldMainDockingBar | oldPreference | oldPreference := Project current showWorldMainDockingBar. "" Project current showWorldMainDockingBar: false. Project current showWorldMainDockingBar: oldPreference. TheWorldMainDockingBar updateInstances! SmallLandColorTheme subclass: #VioletSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: VioletSmallLandColorTheme>>baseColors (in category 'as yet unclassified') ----- baseColors " VioletSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.6 0.0 1.0 )) with: (Color fromArray: #(0.8 0.4 1.0 )) with: (Color fromArray: #(0.95 0.95 1.0 ))! SmallLandColorTheme subclass: #YellowSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: YellowSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " YellowSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.6 0.6 0.0 )) with: (Color fromArray: #(0.9 0.9 0.3 )) with: (Color fromArray: #(1.0 1.0 0.9 ))!

1 0

The Trunk: SmallLand-ColorTheme-fbs.1.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

1 0

The Trunk: SmallLand-ColorTheme-fbs.1.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

1 0

The Trunk: EToys-fbs.92.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Frank Shearar uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-fbs.92.mcz ==================== Summary ==================== Name: EToys-fbs.92 Author: fbs Time: 4 March 2013, 10:22:27.2 pm UUID: b7eb5212-69a0-4f19-ada2-cb716e65a9f5 Ancestors: EToys-nice.91 All this method's senders are in the Etoys package, so it almost certainly belongs in the Etoys package. =============== Diff against EToys-nice.91 =============== Item was added: + ----- Method: Utilities class>>getterSelectorFor: (in category '*Etoys') ----- + getterSelectorFor: identifier + "Answer the corresponding getter. Two idiosyncratic vectorings herein... " + + "Utilities getterSelectorFor: #elvis" + + | aSymbol | + (aSymbol := identifier asSymbol) == #isOverColor: ifTrue: [^ #seesColor:]. + aSymbol == #copy ifTrue: [^ #getNewClone]. + + ^ ('get', (identifier asString capitalized)) asSymbol!

1 0

The Trunk: EToys-fbs.92.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

1 0

The Trunk: EToys-fbs.92.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

1 0

The Trunk: System-fbs.516.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.516.mcz ==================== Summary ==================== Name: System-fbs.516 Author: fbs Time: 4 March 2013, 10:21:47.905 pm UUID: d3eb929e-b62e-4856-80fd-ae702fa890fc Ancestors: System-nice.515 All this method's senders are in the Etoys package, so it almost certainly belongs in the Etoys package. =============== Diff against System-nice.515 =============== Item was removed: - ----- Method: Utilities class>>getterSelectorFor: (in category 'miscellaneous') ----- - getterSelectorFor: identifier - "Answer the corresponding getter. Two idiosyncratic vectorings herein... " - - "Utilities getterSelectorFor: #elvis" - - | aSymbol | - (aSymbol := identifier asSymbol) == #isOverColor: ifTrue: [^ #seesColor:]. - aSymbol == #copy ifTrue: [^ #getNewClone]. - - ^ ('get', (identifier asString capitalized)) asSymbol!

1 0

The Trunk: System-fbs.516.mcz
by commits＠source.squeak.org 04 Mar '13

04 Mar '13

1 0

← Newer
1
...
17
18
19
20
21
22
23
...
26
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2013