Squeak-dev March 2010

squeak-dev@lists.squeakfoundation.org

158 participants
767 discussions

The Trunk: Multilingual-nice.117.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.117.mcz ==================== Summary ==================== Name: Multilingual-nice.117 Author: nice Time: 27 March 2010, 11:31:10.895 pm UUID: 04c2310e-4b7d-be47-8fc2-a0fa5d8140a1 Ancestors: Multilingual-nice.116 move lastWidth inst-var one level upper for handling of CombinedChar =============== Diff against Multilingual-nice.116 =============== Item was changed: ----- Method: MultiCharacterScanner>>removeLastCharFromPresentation (in category 'multilingual scanning') ----- removeLastCharFromPresentation + destX := destX - lastWidth. ! Item was changed: ----- Method: MultiCharacterScanner>>addCharToPresentation: (in category 'multilingual scanning') ----- addCharToPresentation: char + lastWidth := self widthOf: char inFont: font. + destX := destX + lastWidth.! - - ! Item was changed: Object subclass: #MultiCharacterScanner + instanceVariableNames: 'destX lastIndex xTable destY stopConditions text textStyle alignment leftMargin rightMargin font line runStopIndex spaceCount spaceWidth emphasisCode kern indentationLevel wantsColumnBreaks pendingKernX baselineY firstDestX presentation presentationLine numOfComposition lastWidth' - instanceVariableNames: 'destX lastIndex xTable destY stopConditions text textStyle alignment leftMargin rightMargin font line runStopIndex spaceCount spaceWidth emphasisCode kern indentationLevel wantsColumnBreaks presentation presentationLine numOfComposition baselineY firstDestX pendingKernX' classVariableNames: 'DefaultStopConditions NilCondition PaddedSpaceCondition SpaceCondition' poolDictionaries: 'TextConstants' category: 'Multilingual-Scanning'!

1 0

The Trunk: Multilingual-nice.116.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.116.mcz ==================== Summary ==================== Name: Multilingual-nice.116 Author: nice Time: 27 March 2010, 11:22:00.573 pm UUID: 6339699b-51ec-fb41-a1e0-c8246b621919 Ancestors: Multilingual-ul.115 Don't let Unicode use #scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern: until problems are fixed. Anyway, combining diacritical was experimental and not really operational. =============== Diff against Multilingual-ul.115 =============== Item was changed: MultiCharacterScanner subclass: #MultiCompositionScanner + instanceVariableNames: 'spaceX lineHeight baseline breakableIndex lineHeightAtBreak baselineAtBreak breakAtSpace' - instanceVariableNames: 'spaceX lineHeight baseline breakableIndex lineHeightAtBreak baselineAtBreak breakAtSpace lastWidth' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-Scanning'! Item was changed: ----- Method: MultiCompositionScanner>>removeLastCharFromPresentation (in category 'multilingual scanning') ----- removeLastCharFromPresentation presentation ifNotNil: [ presentation position: presentation position - 1. ]. + super removeLastCharFromPresentation! - destX := destX - lastWidth. - ! Item was changed: ----- Method: MultiCompositionScanner>>addCharToPresentation: (in category 'multilingual scanning') ----- addCharToPresentation: char presentation nextPut: char. + super addCharToPresentation: char! - lastWidth := self widthOf: char inFont: font. - destX := destX + lastWidth. - ! Item was changed: ----- Method: Unicode class>>scanSelector (in category 'accessing - displaying') ----- scanSelector + "^ #scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern:." + ^ #scanMultiCharactersFrom:to:in:rightX:stopConditions:kern:. - ^ #scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern:. - "^ #scanMultiCharactersFrom:to:in:rightX:stopConditions:kern:." !

1 0

The Trunk: Nebraska-nice.29.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Nicolas Cellier uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-nice.29.mcz ==================== Summary ==================== Name: Nebraska-nice.29 Author: nice Time: 27 March 2010, 11:16:50.444 pm UUID: 5a54f14c-e0b0-014b-8b3e-961ed20e8bb9 Ancestors: Nebraska-nice.28 Remove a _ assignment from a class comment =============== Diff against Nebraska-nice.28 =============== Item was changed: Object subclass: #CanvasEncoder instanceVariableNames: 'connection lastClipRect lastTransform fontCache cachedObjects cachingEnabled' classVariableNames: 'SentTypesAndSizes SimpleCounters' poolDictionaries: '' category: 'Nebraska-Morphic-Remote'! + !CanvasEncoder commentStamp: 'nice 3/24/2010 07:40' prior: 0! - !CanvasEncoder commentStamp: '<historical>' prior: 0! Encodes canvas commands into string-arrays format. ---possible further compression for forms --- 600 * 359 * 4 861600 self encodeForRemoteCanvas size 76063 Time millisecondsToRun: [self encodeForRemoteCanvas] | raw data | + data := self encodeForRemoteCanvas. + raw := RWBinaryOrTextStream on: (String new: 1000). - data _ self encodeForRemoteCanvas. - raw _ RWBinaryOrTextStream on: (String new: 1000). Time millisecondsToRun: [(GZipWriteStream on: raw) nextPutAll: data; close]. raw contents size (GZipReadStream on: (ReadStream on: raw contents)) upToEnd size | raw | + raw := RWBinaryOrTextStream on: (String new: bits size). - raw _ RWBinaryOrTextStream on: (String new: bits size). raw nextPutAll: bits Time millisecondsToRun: [bits compressGZip] 50 bits compressGZip size 861620!

1 0

The Trunk: Morphic-nice.399.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.399.mcz ==================== Summary ==================== Name: Morphic-nice.399 Author: nice Time: 27 March 2010, 11:08:14.17 pm UUID: 627b1685-8c63-354e-abbc-16c45dc4133d Ancestors: Morphic-tfel.398 Fix an _ assignment in class comment =============== Diff against Morphic-tfel.398 =============== Item was changed: RectangleMorph subclass: #TextMorph instanceVariableNames: 'textStyle text wrapFlag paragraph editor container predecessor successor backgroundColor margins editHistory' classVariableNames: 'CaretForm DefaultEditorClass' poolDictionaries: '' category: 'Morphic-Basic'! + !TextMorph commentStamp: 'nice 3/24/2010 07:40' prior: 0! - !TextMorph commentStamp: 'sd 2/20/2004 23:25' prior: 0! TextMorphs support display of text with emphasis. They also support reasonable text-editing capabilities, as well as embedded hot links, and the ability to embed submorphs in the text. Late in life, TextMorph was made a subclass of BorderedMorph to provide border and background color if desired. In order to keep things compatible, protocols have been redirected so that color (preferably textColor) relates to the text, and backgroundColor relates to the inner fill color. Text display is clipped to the innerBounds of the rectangle, and text composition is normally performed within a rectangle which is innerBounds inset by the margins parameter. If text has been embedded in another object, one can elect to fill the owner's shape, in which case the text will be laid out in the shape of the owner's shadow image (including any submorphs other than the text). One can also elect to have the text avoid occlusions, in which case it will avoid the bounds of any sibling morphs that appear in front of it. It may be necessary to update bounds in order for the text runaround to notice the presence of a new occluding shape. The optional autoFitContents property enables the following feature: if the text contents changes, then the bounds of the morph will be adjusted to fit the minimum rectangle that encloses the text (plus any margins specified). Similarly, any attempt to change the size of the morph will be resisted if this parameter is set. Except... If the wrapFlag parameter is true, then text will be wrapped at word boundaries based on the composition width (innerBounds insetBy: margins) width. Thus an attempt to resize the morph in autofit mode, if it changes the width, will cause the text to be recomposed with the new width, and then the bounds will be reset to the minimum enclosing rectangle. Similarly, if the text contents are changed with the wrapFlag set to true, word wrap will be performed based on the current compostion width, after which the bounds will be set (or not), based on the autoFitcontents property. Note that fonts can only be applied to the TextMorph as a whole. While you can change the size, color, and emphasis of a subsection of the text and have it apply to only that subsection, changing the font changes the font for the entire contents of the TextMorph. Still a TextMorph can be composed of several texts of different fonts | font1 font2 t1 t2 tMorph| + tMorph := TextMorph new. + font1 := (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' size: 22)). + font2 := (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' size: 11)). + t1 := 'this is font1' asText addAttribute: font1. + t2 := ' and this is font2' asText addAttribute: font2. - tMorph _ TextMorph new. - font1 _ (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' size: 22)). - font2 _ (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' size: 11)). - t1 _ 'this is font1' asText addAttribute: font1. - t2 _ ' and this is font2' asText addAttribute: font2. tMorph contents: (t1,t2). tMorph openInHand. Yet to do: Make a comprehensive control for the eyedropper, with border width and color, inner color and text color, and margin widths.! Item was changed: SimpleBorder subclass: #ComplexBorder instanceVariableNames: 'style colors lineStyles' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Borders'! + !ComplexBorder commentStamp: 'nice 3/24/2010 07:36' prior: 0! - !ComplexBorder commentStamp: 'kfr 10/27/2003 10:18' prior: 0! see BorderedMorph. + poly := polygon250 - poly _ polygon250 + baseColor := Color blue twiceLighter. + border := (ComplexBorder framed: 10) baseColor: poly color. - baseColor _ Color blue twiceLighter. - border _ (ComplexBorder framed: 10) baseColor: poly color. border frameRectangle: ((100@100 extent: 200@200) insetBy: -5) on: Display getCanvas. + baseColor := Color red twiceLighter. + border := (ComplexBorder framed: 10) baseColor: baseColor. - baseColor _ Color red twiceLighter. - border _ (ComplexBorder framed: 10) baseColor: baseColor. border drawPolygon: {100@100. 300@100. 300@300. 100@300} on: Display getCanvas. border drawPolyPatchFrom: 100@200 via: 100@100 via: 200@100 to: 200@200 on: Display getCanvas. border drawPolyPatchFrom: 100@100 via: 200@100 via: 200@200 to: 100@200 on: Display getCanvas. border drawPolyPatchFrom: 200@100 via: 200@200 via: 100@200 to: 100@100 on: Display getCanvas. border drawPolyPatchFrom: 200@200 via: 100@200 via: 100@100 to: 200@100 on: Display getCanvas. + border := (ComplexBorder raised: 10) baseColor: poly color. - border _ (ComplexBorder raised: 10) baseColor: poly color. border drawPolygon: poly getVertices on: Display getCanvas 360 / 16.0 22.5 + points := (0 to: 15) collect:[:i| (Point r: 100 degrees: i*22.5) + 200]. - points _ (0 to: 15) collect:[:i| (Point r: 100 degrees: i*22.5) + 200]. Display getCanvas fillOval: (100@100 extent: 200@200) color: baseColor. border drawPolygon: points on: Display getCanvas. -1 to: points size + 1 do:[:i| border drawPolyPatchFrom: (points atWrap: i) via: (points atWrap: i+1) via: (points atWrap: i+2) to: (points atWrap: i+3) on: Display getCanvas. ]. Display getCanvas fillOval: (100@100 extent: 200@200) color: baseColor. 0 to: 36 do:[:i| border drawLineFrom: (Point r: 100 degrees: i*10) + 200 to: (Point r: 100 degrees: i+1*10) + 200 on: Display getCanvas. ]. drawPolygon: Point r: 1.0 degrees: 10 MessageTally spyOn:[ Display deferUpdates: true. + t1 := [1 to: 1000 do:[:i| - t1 _ [1 to: 1000 do:[:i| border drawLineFrom: (100@100) to: (300@100) on: Display getCanvas. border drawLineFrom: (300@100) to: (300@300) on: Display getCanvas. border drawLineFrom: (300@300) to: (100@300) on: Display getCanvas. border drawLineFrom: (100@300) to: (100@100) on: Display getCanvas]] timeToRun. Display deferUpdates: false. ]. MessageTally spyOn:[ Display deferUpdates: true. + t2 := [1 to: 1000 do:[:i| - t2 _ [1 to: 1000 do:[:i| border drawLine2From: (100@100) to: (300@100) on: Display getCanvas. border drawLine2From: (300@100) to: (300@300) on: Display getCanvas. border drawLine2From: (300@300) to: (100@300) on: Display getCanvas. border drawLine2From: (100@300) to: (100@100) on: Display getCanvas]] timeToRun. Display deferUpdates: false. ]. !

1 0

The Trunk: Files-nice.79.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Nicolas Cellier uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-nice.79.mcz ==================== Summary ==================== Name: Files-nice.79 Author: nice Time: 27 March 2010, 10:58:18.301 pm UUID: 1a2f808c-0bf0-504b-abba-4607dec810b2 Ancestors: Files-ul.78 Fix an _ in comment =============== Diff against Files-ul.78 =============== Item was changed: ReadWriteStream subclass: #CompressedSourceStream instanceVariableNames: 'segmentFile segmentSize nSegments segmentTable segmentIndex dirty endOfFile' classVariableNames: '' poolDictionaries: '' category: 'Files-System'! + !CompressedSourceStream commentStamp: 'nice 3/24/2010 07:36' prior: 0! - !CompressedSourceStream commentStamp: 'di 11/3/2003 17:58' prior: 0! I implement a file format that compresses segment by segment to allow incremental writing and browsing. Note that the file can only be written at the end. Structure: segmentFile The actual compressed file. segmentSize This is the quantum of compression. The virtual file is sliced up into segments of this size. nSegments The maximum number of segments to which this file can be grown. endOfFile The user's endOfFile pointer. segmentTable When a file is open, this table holds the physical file positions of the compressed segments. segmentIndex Index of the most recently accessed segment. Inherited from ReadWriteStream... collection The segment buffer, uncompressed position This is the position *local* to the current segment buffer readLimit ReadLimit for the current buffer writeLimit WriteLimit for the current buffer Great care must be exercised to distinguish between the position relative to the segment buffer and the full file position (and, or course, the segment file position ;-). The implementation defaults to a buffer size of 20k, and a max file size of 34MB (conveniently chosen to be greater than the current 33MB limit of source code pointers). The format of the file is as follows: segmentSize 4 bytes nSegments 4 bytes endOfFile 4 bytes segmentTable 4 bytes * (nSegments+1) beginning of first compressed segment It is possible to override the default allocation by sending the message #segmentSize:nSegments: immediately after opening a new file for writing, as follows: + bigFile := (CompressedSourceStream on: (FileStream newFileNamed: 'biggy.stc')) - bigFile _ (CompressedSourceStream on: (FileStream newFileNamed: 'biggy.stc')) segmentSize: 50000 maxSize: 200000000 The difference between segment table entries reveals the size of each compressed segment. When a file is being written, it may lack the final segment, but any flush, position:, or close will force a dirty segment to be written.!

1 0

The Trunk: Tests-ul.64.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.64.mcz ==================== Summary ==================== Name: Tests-ul.64 Author: ul Time: 27 March 2010, 9:49:51.158 pm UUID: fd20a054-d13c-884d-80b9-2c3449a310c4 Ancestors: Tests-bf.63 - removed the forced full GC and Transcript logging from DecompilerTests >> #decompileClassesSelect:. This gives ~2.6x speedup for running these tests (from 80 to 30 seconds on my pc) =============== Diff against Tests-bf.63 =============== Item was changed: ----- Method: DecompilerTests>>decompileClassesSelect: (in category 'utilities') ----- decompileClassesSelect: aBlock (Smalltalk classNames select: aBlock) do: [:cn | | cls | + cls := Smalltalk globals at: cn. - cls := Smalltalk at: cn. - Smalltalk garbageCollect. - Transcript cr; show: cn. cls selectorsAndMethodsDo: [:selector :meth | (self isFailure: cls sel: selector) ifFalse: [" to help making progress (self isStoredProblems: cls theNonMetaClass sel: selector meta: cls isMeta) ifFalse: [ " - Transcript nextPut: $.; flush. self checkDecompileMethod: meth]]]!

1 0

The Trunk: System-tfel.303.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tfel.303.mcz ==================== Summary ==================== Name: System-tfel.303 Author: tfel Time: 27 March 2010, 9:57:46.948 pm UUID: 5a917360-5aea-4468-96ab-399184018b96 Ancestors: System-ar.302 * Make the gray for the windows a little darker, that's easier on the eyes * Set the default window title font size to 9 (new Squeakers will appreciate this, I believe) =============== Diff against System-ar.302 =============== Item was changed: ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') ----- restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts " self setDefaultFonts: #( (setSystemFontTo: 'Bitmap DejaVu Sans' 9) (setListFontTo: 'Bitmap DejaVu Sans' 9) (setFlapsFontTo: Accushi 12) (setEToysFontTo: BitstreamVeraSansBold 9) (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9) (setMenuFontTo: 'Bitmap DejaVu Sans' 9) + (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9) - (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 12) (setBalloonHelpFontTo: Accujen 9) (setCodeFontTo: 'Bitmap DejaVu Sans' 9) (setButtonFontTo: BitstreamVeraSansMono 9) ) ! Item was changed: ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') ----- lexiconWindowColor ^ self valueOfFlag: #lexiconWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') ----- instanceBrowserWindowColor ^ self valueOfFlag: #instanceBrowserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') ----- fileListWindowColor ^ self valueOfFlag: #fileListWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') ----- debuggerWindowColor ^ self valueOfFlag: #debuggerWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') ----- defaultWindowColor ^ self valueOfFlag: #defaultWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') ----- workspaceWindowColor ^ self valueOfFlag: #workspaceWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') ----- classCommentVersionsBrowserWindowColor ^ self valueOfFlag: #classCommentVersionsBrowserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') ----- fileContentsBrowserWindowColor ^ self valueOfFlag: #fileContentsBrowserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') ----- versionsBrowserWindowColor ^ self valueOfFlag: #versionsBrowserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>traceMessages (in category 'standard queries') ----- traceMessages ^ self valueOfFlag: #traceMessages + ifAbsent: [false]! - ifAbsent: [ false ]! Item was changed: ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') ----- testRunnerWindowColor ^ self valueOfFlag: #testRunnerWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') ----- dualChangeSorterWindowColor ^ self valueOfFlag: #dualChangeSorterWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') ----- messageListWindowColor ^ self valueOfFlag: #messageListWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') ----- messageNamesWindowColor ^ self valueOfFlag: #messageNamesWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') ----- browserWindowColor ^ self valueOfFlag: #browserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') ----- packageLoaderWindowColor ^ self valueOfFlag: #packageLoaderWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') ----- transcriptWindowColor ^ self valueOfFlag: #transcriptWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') ----- changeSorterWindowColor ^ self valueOfFlag: #changeSorterWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts.'! - (PackageInfo named: 'System') postscript: ''! Item was changed: ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') ----- methodFinderWindowColor ^ self valueOfFlag: #methodFinderWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') ----- changeListWindowColor ^ self valueOfFlag: #changeListWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') ----- preferenceBrowserWindowColor ^ self valueOfFlag: #preferenceBrowserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') ----- packageBrowserWindowColor ^ self valueOfFlag: #packageBrowserWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]! Item was changed: ----- Method: Preferences class>>installUniformWindowColors (in category 'window colors') ----- installUniformWindowColors "Install the factory-provided uniform window colors for all tools" "Preferences installUniformWindowColors" + self installWindowColorsVia: [:aQuad | Color veryVeryLightGray]! - self installWindowColorsVia: [:aQuad | Color veryVeryLightGray muchLighter]! Item was changed: ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') ----- monticelloToolWindowColor ^ self valueOfFlag: #monticelloToolWindowColor ifAbsent: [Color + r: 0.875 + g: 0.875 + b: 0.875]! - r: 0.971 - g: 0.971 - b: 0.971]!

1 0

The Trunk: Morphic-tfel.398.mcz
by commits＠source.squeak.org 27 Mar '10

27 Mar '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.398.mcz ==================== Summary ==================== Name: Morphic-tfel.398 Author: tfel Time: 27 March 2010, 9:52:31.443 pm UUID: 9edaef18-2411-4cc0-b376-726fd77a3557 Ancestors: Morphic-ar.397 Multiple people thought the yellow button has not enough contrast, so I made it more orange. =============== Diff against Morphic-ar.397 =============== Item was changed: ----- Method: SystemWindow class>>collapseBoxImage (in category 'initializing') ----- collapseBoxImage "Supplied here because we don't necessarily have ComicBold" ^ CollapseBoxImage ifNil: [CollapseBoxImage := (Form extent: 14@14 depth: 32 + fromArray: #(0 768 5853184 288569344 1550537988 2844748052 3449976096 3449976096 2827970835 1550537731 288569600 5787392 768 0 1256960 15043082 844713216 3063837470 4158037328 4294162549 4294689156 4294689156 4294162292 4158036813 3046994460 844713216 14714890 1256704 7690756 861424896 3585112609 4294226279 4294952069 4294952069 4294951812 4294951812 4294952069 4294952068 4294226278 3585047331 844647680 7625220 287914752 3047058190 4294222924 4294949230 4294948716 4294948716 4294948716 4294948716 4294948716 4294948717 4294949231 4294223955 3047058707 287914240 1584092675 4158030361 4294944327 4294945619 4294945877 4294946134 4294946134 4294945877 4294945619 4294945102 4294944587 4294945360 4158031652 1567315202 2861589770 4294150937 4294938911 4294217252 4293955628 4294021937 4294021938 4294021421 4294020390 4293954079 4294084893 4294873892 4294151196 2844812298 3483593741 4294741530 4294478360 4291271017 4292461743 4292461485 4292461485 4292461485 4292461485 4292527535 4291340680 4293625630 4294807066 3466816525 3500370957 4294741530 4294347032 4291669904 4294112759 4294112244 4294112244 4294112244 4294112244 4294243831 4292200893 4293428769 4294807066 3483593741 2878432779 4294150937 4294806810 4292511536 4292382532 4292382531 4292382531 4292382531 4292382531 4292382532 4292249912 4294347548 4294216473 2878432523 1617712902 4174872597 4294938651 4294938393 4294938136 4294938136 4294938136 4294938136 4294938136 4294938136 4294938393 4294938651 4158095381 1617712902 304955136 3097520909 4294282265 4294938395 4294938395 4294938395 4294938395 4294938395 4294938395 4294938395 4294938395 4294282009 3097455373 304889600 7953671 911888388 3635573264 4294347801 4294938651 4294938395 4294938395 4294938395 4294938395 4294938651 4294347801 3635573264 895111172 7888135 1520128 16753431 911954180 3131075341 4191781141 4294216473 4294741530 4294741530 4294216473 4191781141 3131075341 895176964 16752406 1454592 0 3072 6708483 322388481 1651398919 2945607436 3550833934 3550833934 2945607436 1651398919 322322945 6642947 2816 0) - fromArray: #(0 0 5854464 288568064 1550541582 2844754727 3449983798 3449983798 2827977511 1550541581 288568064 5788928 0 0 1251328 15059494 844715013 3063844916 4158047598 4294173075 4294699425 4294699425 4294172818 4158047339 3047001906 844715013 14730789 1251328 7695120 861426436 3585122108 4294238345 4294963108 4294962852 4294962595 4294962595 4294962852 4294963108 4294238345 3585056574 844649220 7629583 287911168 3047067176 4294237302 4294962067 4294961553 4294961553 4294961553 4294961553 4294961553 4294961810 4294962068 4294237563 3047067180 287910912 1584096270 4158045509 4294960759 4294960767 4294961024 4294961025 4294961025 4294961024 4294961023 4294960763 4294960505 4294961022 4158045773 1567318796 2861597216 4294169679 4294958680 4294235481 4293972830 4294038626 4294038626 4294038367 4294038106 4293972308 4294103635 4294892891 4294169682 2844820000 3483603497 4294761043 4294498129 4291279233 4292465594 4292465592 4292465592 4292465592 4292465592 4292531386 4291346328 4293643602 4294826835 3466826281 3500380713 4294761299 4294366544 4291675295 4294112246 4294111987 4294111987 4294111987 4294111987 4294243574 4292203203 4293446228 4294826835 3483603497 2878440481 4294169679 4294826836 4292526427 4292395625 4292395625 4292395625 4292395625 4292395625 4292395626 4292263777 4294366803 4294235215 2878440225 1617716496 4174888258 4294958934 4294958676 4294958675 4294958675 4294958675 4294958675 4294958675 4294958675 4294958676 4294959190 4158111042 1617716496 304951552 3097530152 4294301264 4294958677 4294958421 4294958421 4294958421 4294958421 4294958421 4294958421 4294958677 4294301264 3097464616 304886016 7958548 911889929 3635584561 4294366800 4294958934 4294958677 4294958421 4294958421 4294958677 4294958934 4294366800 3635584561 895112713 7892755 1514752 16775998 911955722 3131084841 4191796803 4294235216 4294761299 4294761299 4294235216 4191796803 3131084840 895178506 16774203 1448960 0 0 6710533 322386432 1651402770 2945615139 3550843947 3550843947 2945615139 1651402770 322320896 6644741 0 0) offset: 0@0)]!

1 0

Facelifting the second
by Torsten Bergmann 27 Mar '10

27 Mar '10

>I'll try to fix anything people might find wrong/not configurable >enough with it. The buttons look nice, but two buttons disappear when you deselect the window by selecting another Bye T. -- Sicherer, schneller und einfacher. Die aktuellen Internet-Browser - jetzt kostenlos herunterladen! http://portal.gmx.net/de/go/atbrowser

14 27

Re: [squeak-dev] The Inbox: System-tfel.303.mcz
by Tim Felgentreff 27 Mar '10

27 Mar '10

Also, setting the default world color using World color: Preferences defaultWorldColor. looks much nicer with the gray windows. Regards, Tim On Sat, 2010-03-27 at 00:00 +0000, commits(a)source.squeak.org wrote: > A new version of System was added to project The Inbox: > http://source.squeak.org/inbox/System-tfel.303.mcz > > ==================== Summary ==================== > > Name: System-tfel.303 > Author: tfel > Time: 27 March 2010, 9:57:46.948 pm > UUID: 5a917360-5aea-4468-96ab-399184018b96 > Ancestors: System-ar.302 > > * Make the gray for the windows a little darker, that's easier on the eyes > * Set the default window title font size to 9 (new Squeakers will appreciate this, I believe) > > =============== Diff against System-ar.302 =============== > > Item was changed: > ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') ----- > restoreDefaultFonts > "Since this is called from menus, we can take the opportunity to prompt for missing font styles." > " > Preferences restoreDefaultFonts > " > > self setDefaultFonts: #( > (setSystemFontTo: 'Bitmap DejaVu Sans' 9) > (setListFontTo: 'Bitmap DejaVu Sans' 9) > (setFlapsFontTo: Accushi 12) > (setEToysFontTo: BitstreamVeraSansBold 9) > (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9) > (setMenuFontTo: 'Bitmap DejaVu Sans' 9) > + (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9) > - (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 12) > (setBalloonHelpFontTo: Accujen 9) > (setCodeFontTo: 'Bitmap DejaVu Sans' 9) > (setButtonFontTo: BitstreamVeraSansMono 9) > ) > ! > > Item was changed: > ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') ----- > lexiconWindowColor > ^ self > valueOfFlag: #lexiconWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') ----- > instanceBrowserWindowColor > ^ self > valueOfFlag: #instanceBrowserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') ----- > fileListWindowColor > ^ self > valueOfFlag: #fileListWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') ----- > debuggerWindowColor > ^ self > valueOfFlag: #debuggerWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') ----- > defaultWindowColor > ^ self > valueOfFlag: #defaultWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') ----- > workspaceWindowColor > ^ self > valueOfFlag: #workspaceWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') ----- > classCommentVersionsBrowserWindowColor > ^ self > valueOfFlag: #classCommentVersionsBrowserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') ----- > fileContentsBrowserWindowColor > ^ self > valueOfFlag: #fileContentsBrowserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') ----- > versionsBrowserWindowColor > ^ self > valueOfFlag: #versionsBrowserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>traceMessages (in category 'standard queries') ----- > traceMessages > ^ self > valueOfFlag: #traceMessages > + ifAbsent: [false]! > - ifAbsent: [ false ]! > > Item was changed: > ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') ----- > testRunnerWindowColor > ^ self > valueOfFlag: #testRunnerWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') ----- > dualChangeSorterWindowColor > ^ self > valueOfFlag: #dualChangeSorterWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') ----- > messageListWindowColor > ^ self > valueOfFlag: #messageListWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') ----- > messageNamesWindowColor > ^ self > valueOfFlag: #messageNamesWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') ----- > browserWindowColor > ^ self > valueOfFlag: #browserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') ----- > packageLoaderWindowColor > ^ self > valueOfFlag: #packageLoaderWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') ----- > transcriptWindowColor > ^ self > valueOfFlag: #transcriptWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') ----- > changeSorterWindowColor > ^ self > valueOfFlag: #changeSorterWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > + (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts.'! > - (PackageInfo named: 'System') postscript: ''! > > Item was changed: > ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') ----- > methodFinderWindowColor > ^ self > valueOfFlag: #methodFinderWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') ----- > changeListWindowColor > ^ self > valueOfFlag: #changeListWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') ----- > preferenceBrowserWindowColor > ^ self > valueOfFlag: #preferenceBrowserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') ----- > packageBrowserWindowColor > ^ self > valueOfFlag: #packageBrowserWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > > Item was changed: > ----- Method: Preferences class>>installUniformWindowColors (in category 'window colors') ----- > installUniformWindowColors > "Install the factory-provided uniform window colors for all tools" > > "Preferences installUniformWindowColors" > + self installWindowColorsVia: [:aQuad | Color veryVeryLightGray]! > - self installWindowColorsVia: [:aQuad | Color veryVeryLightGray muchLighter]! > > Item was changed: > ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') ----- > monticelloToolWindowColor > ^ self > valueOfFlag: #monticelloToolWindowColor > ifAbsent: [Color > + r: 0.875 > + g: 0.875 > + b: 0.875]! > - r: 0.971 > - g: 0.971 > - b: 0.971]! > >

1 0

← Newer
1
...
8
9
10
11
12
13
14
...
77
Older →

Jump to page: