Packages March 2022

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: Morphic-mt.1919.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1919.mcz ==================== Summary ==================== Name: Morphic-mt.1919 Author: mt Time: 2 March 2022, 11:56:06.384065 am UUID: 63b6162c-ca23-ff42-b69b-a005bc2e386c Ancestors: Morphic-mt.1918 Complements System-mt.1317 =============== Diff against Morphic-mt.1918 =============== Item was changed: ----- Method: FontImporterTool>>applyFontToAll (in category 'actions') ----- applyFontToAll + | fontSymbolsToApply | - | fontSymbolsToApply fontToUse scaleFactorDelta | (Project uiManager confirm: 'Do you really want to overwrite individual\point sizes and emphases such as in\buttons and window titles?' translated withCRs title: 'Apply Font to Everything' translated) ifFalse: [^ self]. self currentSelection isInstalled ifFalse: [self installFont]. fontSymbolsToApply := self selectedFont hasFixedWidth ifTrue: [self fontSymbolsToUse] ifFalse: [ self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs. self fontSymbolsToUse copyWithout: #standardFixedFont]. - - fontToUse := self selectedFont. - scaleFactorDelta := 0. - self selectedFont pointSize ~= TTCFont referencePointSize ifTrue: [ - scaleFactorDelta := ((fontToUse pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0. - fontToUse := fontToUse asPointSize: TTCFont referencePointSize]. Cursor wait showWhile: [ UserInterfaceTheme makeAllTTCBased. UserInterfaceTheme current applyAfter: [ fontSymbolsToApply do: [:fontSymbol | + UserInterfaceTheme setFont: fontSymbol to: self selectedFont] ]].! - UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]]. - - scaleFactorDelta ~= 0 ifTrue: [ - Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta. - self flag: #todo. "mt: Inform the user? See UserInterfaceTheme class >> #setFont:to:"].!

1 0

The Trunk: Graphics-mt.491.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.491.mcz ==================== Summary ==================== Name: Graphics-mt.491 Author: mt Time: 2 March 2022, 11:55:29.321065 am UUID: 70c5f982-c217-bf42-bdea-4a5d2e8c7018 Ancestors: Graphics-mt.490 Complements System-mt.1317 =============== Diff against Graphics-mt.490 =============== Item was added: + ----- Method: TextStyle class>>referenceHeight (in category 'utilities') ----- + referenceHeight + "See commentary in RealEstateAgent class >> #scaleFactor." + + ^ self default isTTCStyle + ifTrue: [self pointsToPixels: TTCFont referencePointSize] + ifFalse: [self defaultFont height]!

1 0

The Trunk: System-mt.1317.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1317.mcz ==================== Summary ==================== Name: System-mt.1317 Author: mt Time: 2 March 2022, 11:55:00.421065 am UUID: f005548a-6d1b-f244-b033-8bc84eba7121 Ancestors: System-mt.1316 Finally decouple #standardDefaultTextFont from how #scaleFactor is computed in RealEstateAgent. =============== Diff against System-mt.1316 =============== Item was changed: ----- Method: RealEstateAgent class>>scaleFactor (in category 'display scale') ----- scaleFactor "Use the default font height to calculate some factor. Note that, in a distant future, we will be able to use a method that is not based on pixels once we only use TrueType fonts all over the image and have a rendering system other than BitBlt. Then, TextStyle class >> #pixelsPerInch will suffice, considering that 96 PPI represents a scale factor of 1.0. Until then, rendering is based on pixel geometry." + ^ ScaleFactor ifNil: [ScaleFactor := (TextStyle referenceHeight / StrikeFont referenceHeight)]! - ^ ScaleFactor ifNil: [ScaleFactor := (TextStyle defaultFont height / StrikeFont referenceHeight)]! Item was changed: ----- Method: UserInterfaceTheme class>>setFont:to: (in category 'tools - fonts') ----- setFont: symbolicName to: aFont + "Set symbolicName to aFont in all known UI themes. If aFont is a TrueType font, transform all themes into TTC-based ones." - "Set symbolicName to aFont in all known UI themes. If aFont is a TrueType font, transform all themes into TTC-based ones and re-apply the current theme by name." + (symbolicName = #standardSystemFont and: [aFont isTTCFont]) + ifTrue: [self makeAllTTCBased]. - | fontToUse | - fontToUse := aFont. - (symbolicName = #standardSystemFont and: [aFont isTTCFont]) ifTrue: [ - (self allThemes anySatisfy: [:uit | uit isTTCBased not]) - ifTrue: [ - self makeAllTTCBased. - aFont pointSize ~= TTCFont referencePointSize ifTrue: [ - "Do not change current #scaleFactor by accident. Use standard point size." - fontToUse := aFont asPointSize: TTCFont referencePointSize. - self inform: ((('Your system is now using TrueType fonts. The point size you specified was reset to {1}pt to retain the system''s current scale factor of {2}%.\\You can repeat this if you really want to use {3}pt. However, it is advised to change the system''s scale factor if you want to make all fonts look smaller or larger on your current display.\See the menu Extras > Scale Factor.' translated withCRs format: {fontToUse pointSize. (Display relativeUiScaleFactor * 100) rounded. aFont pointSize}) withNoLineLongerThan: 70) copyReplaceAll: String cr with: ' ') asTextFromHtml]] - ifFalse: [ "The user tried to increase the system's overall font size. Increase the scale factor instead. See RealEstateAgent class >> #scaleFactor, which is what all client code uses if it does not scale through font metrics." - | scaleFactorDelta | - scaleFactorDelta := ((aFont pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0. - fontToUse := aFont asPointSize: TTCFont referencePointSize. - scaleFactorDelta = 0 ifFalse: [ - Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta. - self inform: ((('You tried to change the system''s standard font size from {1}pt to {2}pt, which is an increase of about {3}%. As a result, the system''s scale factor was changed to {4}%.\\Other fonts will now appear smaller or larger as well. The system''s standard font size remains at {1}pt. Note that you may also edit the font''s extra glyph scale to make it look smaller or larger at the same point size.'translated withCRs format: {TTCFont referencePointSize. aFont pointSize. (scaleFactorDelta * 100) rounded. (Display relativeUiScaleFactor * 100) rounded.}) withNoLineLongerThan: 70) copyReplaceAll: String cr with: ' ') asTextFromHtml]] ]. self allThemes do: [:uit | + uit setFont: symbolicName to: aFont].! - uit setFont: symbolicName to: fontToUse].! Item was changed: ----- Method: UserInterfaceTheme class>>setSystemFontTo: (in category 'tools - fonts') ----- setSystemFontTo: aFont "Establish the default text font and style" aFont isTTCFont not ifTrue: [ Display uiScaleFactor = 1.0 ifFalse: [^ self error: 'You may only set a pre-rendered font for 100% scale factor']. aFont height = StrikeFont referenceHeight ifFalse: [^ self error: ('Incompatible pre-rendered font for 100% scale factor. Height must be {1} px' format: {StrikeFont referenceHeight})]]. - "Documentation only. Users can increase the default font size to any value. Yet, RealEstateAgent class >> #scaleFactor will change and the system effectively render stuff larger. So, it would be a good idea to keep #pixelSize/#height of system font, list font, and menu font similar. - - (aFont isTTCFont and: [aFont pointSize ~= TTCFont referencePointSize]) - ifTrue: [self notify: ('The standard system/text font should be {1} pt. If you want to increase the overall font size, please change the screen scale factor instead. You may proceed without harm.' format: {TTCFont referencePointSize})]. - " self setFont: #standardSystemFont to: aFont.!

1 0

The Trunk: TrueType-mt.79.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.79.mcz ==================== Summary ==================== Name: TrueType-mt.79 Author: mt Time: 2 March 2022, 10:52:13.629269 am UUID: 1de8388f-08db-7248-9cd3-136cf1308e9d Ancestors: TrueType-mt.78 In TextConstants, organize known style names as symbol, not string. =============== Diff against TrueType-mt.78 =============== Item was changed: ----- Method: TTCFont class>>reorganizeForNewFontArray:name: (in category 'other') ----- reorganizeForNewFontArray: array name: styleName | style existings regular altName | (TextConstants includesKey: styleName) ifFalse: [ + style := TextConstants at: styleName asSymbol put: (TextStyle fontArray: array). - style := TextConstants at: styleName put: (TextStyle fontArray: array). self register: array at: styleName. "Do this first to make #asPointSize: work" style defaultFont asPointSize: TextStyle defaultFont pointSize. "May create new point size" style defaultFontIndex: (style fontIndexOfPointSize: TextStyle defaultFont pointSize). ^ style ]. "There is a text style with the name I want to use. See if it is a TTC font..." style := TextConstants at: styleName. style isTTCStyle ifFalse: [ altName := ((array at: 1) name, 'TT') asSymbol. ^ self reorganizeForNewFontArray: array name: altName. ]. existings := (self getExistings: style fontArray), (Array with: array). regular := existings detect: [:e | (e at: 1) isRegular] ifNone: [existings at: 1]. regular do: [:r | r addLined: r. ]. "The existing array may be different in size than the new one." existings do: [:e | (e at: 1) isRegular ifFalse: [ regular do: [ :r | | f | f := e detect: [ :ea | ea pointSize = r pointSize ] ifNone: [ ]. f ifNotNil: [ r derivativeFont: f ]. ]. ]. ]. self register: regular at: styleName. style newFontArray: regular. style defaultFont asPointSize: TextStyle defaultFont pointSize. "May create new point size" style defaultFontIndex: (style fontIndexOfPointSize: TextStyle defaultFont pointSize). ^ style. !

1 0

The Trunk: Graphics-mt.490.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.490.mcz ==================== Summary ==================== Name: Graphics-mt.490 Author: mt Time: 2 March 2022, 10:18:11.47176 am UUID: ca84f705-7a8b-224e-bbd3-5af55bf955be Ancestors: Graphics-mt.489 Fix typo. =============== Diff against Graphics-mt.489 =============== Item was changed: ----- Method: DisplayScreen>>uiScaleFactor: (in category 'scale factor') ----- uiScaleFactor: aFloat "Sets the effective scale factor for the user interface, i.e., all widgets, tools, and windows. The user can override the CurrentScaleFactor recommended by the platform." | oldFactor newFactor | + (UserInterfaceTheme current canFakeScaleFactor: aFloat) ifTrue: [ - (UserInterfaceTheme current canFakeScaleFactor: 0.75) ifTrue: [ self flag: #isTTCBased. ^ UserInterfaceTheme current applyScaled: aFloat]. aFloat = 0.75 ifTrue: [(Project uiManager confirm: ((('You are currently using TrueType fonts. Your requested scale factor of {1}% looks better using pre-rendered pixel fonts.\\Do you want to switch to pixel fonts now?' translated withCRs format: {(aFloat * 100) rounded}) withNoLineLongerThan: 60) copyReplaceAll: String cr with: ' ') asTextFromHtml title: 'Blurry Fonts Detected' translated) == true ifTrue: [UserInterfaceTheme cleanUpAndReset. ^ self uiScaleFactor: aFloat]]. oldFactor := RealEstateAgent scaleFactor. "Use effective, pixel-based factor to account for rounding errors. See #isTTCBased and #uiScaleFactor." newFactor := aFloat max: 0.75. newFactor = oldFactor ifTrue: [^ self]. TextStyle pixelsPerInch: 96.0 * aFloat. newFactor := RealEstateAgent resetScaleFactor; scaleFactor. "Again, account for rounding errors." Project current ifNotNil: [:p | p displayScaleChangedFrom: oldFactor to: newFactor].!

1 0

The Trunk: System-mt.1316.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1316.mcz ==================== Summary ==================== Name: System-mt.1316 Author: mt Time: 2 March 2022, 9:44:47.386783 am UUID: c1dc4939-f264-4c42-9022-1efe9da28147 Ancestors: System-mt.1315 Complements Morphic-mt.1918. =============== Diff against System-mt.1315 =============== Item was changed: ----- Method: UserInterfaceTheme class>>makeAllTTCBased (in category 'tools') ----- makeAllTTCBased "Converts all known themes to only use TrueType fonts. Use #cleanUpAndReset if you want to undo this later." + (self allThemes allSatisfy: [:uit | uit isTTCBased]) + ifTrue: [^ self]. + self resetAfter: [ self allThemes copy do: [:uit | uit isGenuine ifFalse: [uit unregister]]. self allThemes do: [:uit | uit makeTTCBased]].!

1 0

The Trunk: Morphic-mt.1918.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1918.mcz ==================== Summary ==================== Name: Morphic-mt.1918 Author: mt Time: 2 March 2022, 9:43:47.009783 am UUID: 37cc13dd-cc57-4847-a3de-a133a6094c95 Ancestors: Morphic-mt.1917 FontImporterTool: Adds a simple way to apply the selected font (family) to all places in the system. =============== Diff against Morphic-mt.1917 =============== Item was changed: ----- Method: FontImporterTool>>applyFont (in category 'actions') ----- applyFont | fontSymbols fontLabels choice | fontSymbols := self fontSymbolsToUse. fontLabels := fontSymbols collect: [:ea | (ea findFeatures joinSeparatedBy: ' ') capitalized]. + + fontSymbols := #(all allScaled), fontSymbols. + fontLabels := #('All fonts' 'All fonts (only font family)'), fontLabels. + choice := Project uiManager chooseFrom: fontLabels values: fontSymbols title: 'Apply font as...' translated. choice ifNil: [^ self]. + + choice caseOf: { + [#all] -> [self applyFontToAll]. + [#allScaled] -> [self applyFontToAllScaled] + } otherwise: [self applyFontTo: choice].! - self applyFontTo: choice.! Item was added: + ----- Method: FontImporterTool>>applyFontToAll (in category 'actions') ----- + applyFontToAll + + | fontSymbolsToApply fontToUse scaleFactorDelta | + (Project uiManager + confirm: 'Do you really want to overwrite individual\point sizes and emphases such as in\buttons and window titles?' translated withCRs + title: 'Apply Font to Everything' translated) + ifFalse: [^ self]. + + self currentSelection isInstalled ifFalse: [self installFont]. + + fontSymbolsToApply := self selectedFont hasFixedWidth + ifTrue: [self fontSymbolsToUse] + ifFalse: [ + self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs. + self fontSymbolsToUse copyWithout: #standardFixedFont]. + + fontToUse := self selectedFont. + scaleFactorDelta := 0. + self selectedFont pointSize ~= TTCFont referencePointSize ifTrue: [ + scaleFactorDelta := ((fontToUse pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0. + fontToUse := fontToUse asPointSize: TTCFont referencePointSize]. + + Cursor wait showWhile: [ + UserInterfaceTheme makeAllTTCBased. + UserInterfaceTheme current applyAfter: [ + fontSymbolsToApply do: [:fontSymbol | + UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]]. + + scaleFactorDelta ~= 0 ifTrue: [ + Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta. + self flag: #todo. "mt: Inform the user? See UserInterfaceTheme class >> #setFont:to:"].! Item was added: + ----- Method: FontImporterTool>>applyFontToAllScaled (in category 'actions') ----- + applyFontToAllScaled + "Like #applyFontToAll but keep the respective point sizes and emphases." + + | fontSymbolsToApply | + self currentSelection isInstalled ifFalse: [self installFont]. + + fontSymbolsToApply := self selectedFont hasFixedWidth + ifTrue: [self fontSymbolsToUse] + ifFalse: [ + self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs. + self fontSymbolsToUse copyWithout: #standardFixedFont]. + + Cursor wait showWhile: [ + UserInterfaceTheme makeAllTTCBased. + UserInterfaceTheme current applyAfter: [ + fontSymbolsToApply do: [:fontSymbol | | fontToUse | + + (UserInterfaceTheme current get: fontSymbol) + ifNil: [fontToUse := self selectedFont] + ifNotNil: [:usedFont | + fontToUse := (self selectedFont + asPointSize: usedFont pointSize) + emphasized: usedFont emphasis]. + + UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]].!

1 0

The Trunk: Collections-eem.992.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.992.mcz ==================== Summary ==================== Name: Collections-eem.992 Author: eem Time: 1 March 2022, 12:39:53.850609 pm UUID: 677dd86e-ae58-41d3-b125-af837d2cdb61 Ancestors: Collections-mt.991 Add some missing features to the imfamous postcard. =============== Diff against Collections-mt.991 =============== Item was changed: ----- Method: Text class>>codeSample (in category 'filler text') ----- codeSample ^ 'exampleWithNumber: x "A method that illustrates every part of Smalltalk method syntax including primitives. It has unary, binary, and keyboard messages, declares arguments and temporaries, accesses a global variable + (but not an instance variable), uses literals (array, character, symbol, + string, integer, float, byte array), uses the pseudo variables nil, true, + false, self, super, and thisContext, shows that within a literal array + nil, true and false are symbols not pseudo variables, and has sequence, + assignment, return, cascade, and tuple (array) creation. It has both + zero argument and one argument blocks, and has a block temporary." - (but not an instance variable), uses literals (array, character, - symbol, string, integer, float), uses the pseudo variables true, - false, nil, self, and super, and has sequence, assignment, return - and cascade. It has both zero argument and one argument blocks." <primitive: ''primitiveCopyBits'' module: #BitBltPlugin error: ec> | y | true & false not & (nil isNil) ifFalse: [self halt]. y := self size + super size. + #($a #a ''a'' "a" 1 1.0 nil true false), { #[65]. thisContext. nil. true. false } + do: [ :each | | class | + class := each class. - #($a #a ''a'' "a" 1 1.0) - do: [ :each | Transcript + show: (class name); - show: (each class name); show: '' '']. ^ x < y'!

1 0

The Trunk: ToolBuilder-Morphic-mt.305.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.305.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.305 Author: mt Time: 1 March 2022, 5:46:53.070212 pm UUID: df06fa81-ad88-4206-9a04-6a7e35391d92 Ancestors: ToolBuilder-Morphic-mt.304 Minor tweaks in text-field construction through tool builder regarding padding. Also, when drawing help texts in text fields, use the current text font, not UI property #balloonTextFont. I think we can remove that property of #PluggableTextMorphPlus from UI themes. =============== Diff against ToolBuilder-Morphic-mt.304 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'widgets required') ----- buildPluggableText: aSpec | widget | widget := self textPaneClass new. aSpec stylerClass ifNotNil: [:c | widget styler: (c new view: widget)]. widget on: aSpec model text: aSpec getText accept: aSpec setText readSelection: aSpec selection menu: aSpec menu. aSpec textStyle ifNotNil: [:ts | ts isSymbol ifTrue: [widget getTextStyleSelector: ts] ifFalse: [widget setTextStyle: ts]] ifNil: [ aSpec font ifNotNil: [:f | f isSymbol ifTrue: [widget getFontSelector: f] ifFalse: [widget setTextStyle: f asNewTextStyle]] ]. widget readOnly: aSpec readOnly. widget plainTextOnly: aSpec plainTextOnly. widget editTextSelector: aSpec editText. widget wantsFrameAdornments: aSpec indicateUnacceptedChanges. widget askBeforeDiscardingEdits: aSpec askBeforeDiscardingEdits. widget setProperty: #alwaysAccept toValue: aSpec askBeforeDiscardingEdits not. widget wrapFlag: (aSpec softLineWrap ifNil: [true]). self register: widget id: aSpec name. widget getColorSelector: aSpec color. widget getTextColorSelector: aSpec textColor. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. + self setLayoutHintsForTextField: widget spec: aSpec. - self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. ^widget! Item was added: + ----- Method: MorphicToolBuilder>>setLayoutHintsForTextField:spec: (in category 'private') ----- + setLayoutHintsForTextField: widget spec: aSpec + + aSpec minimumWidth >= 0 + ifTrue: [widget minimumWidth: aSpec minimumWidth]. + aSpec minimumHeight >= 0 + ifTrue: [widget minimumHeight: aSpec minimumHeight]. + aSpec padding + ifNotNil: [:p | widget textMorph margins: p]. + "aSpec margin + ifNotNil: [:m | widget layoutOutset: m]." + + widget hResizing: (aSpec horizontalResizing ifNil: [#spaceFill]). + widget vResizing: (aSpec verticalResizing ifNil: [#spaceFill]).! Item was changed: ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') ----- drawBalloonTextOn: aCanvas "Show balloon text in the text morph if it has no contents. Catch errors to guard against broken models." | helpText helpFont helpColor box | textMorph contents ifNotEmpty: [ ^ self ]. helpText := [ self balloonText ] on: Error do: [ :err | '<error in #balloonText>' ]. helpText ifNil: [ ^ self ]. + helpFont := self textMorph textStyle defaultFont. + "self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont]." - helpFont := self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont]. helpColor := self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7]. box := self innerBounds insetBy: (self textMorph margins ifNil: [0]). box := box insetBy: (0 @ helpFont lineGapSlice corner: 0@0). aCanvas drawString: helpText in: box font: helpFont color: helpColor.!

1 0

The Trunk: Collections-mt.991.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.991.mcz ==================== Summary ==================== Name: Collections-mt.991 Author: mt Time: 1 March 2022, 5:39:24.888136 pm UUID: f34c5b0e-4785-3045-b7ac-4d2913b6b3bb Ancestors: Collections-mt.990 Complements Morphic-mt.1917 =============== Diff against Collections-mt.990 =============== Item was added: + ----- Method: Text class>>codeSample (in category 'filler text') ----- + codeSample + + ^ 'exampleWithNumber: x + "A method that illustrates every part of Smalltalk method syntax + including primitives. It has unary, binary, and keyboard messages, + declares arguments and temporaries, accesses a global variable + (but not an instance variable), uses literals (array, character, + symbol, string, integer, float), uses the pseudo variables true, + false, nil, self, and super, and has sequence, assignment, return + and cascade. It has both zero argument and one argument blocks." + <primitive: ''primitiveCopyBits'' module: #BitBltPlugin error: ec> + | y | + true & false not & (nil isNil) ifFalse: [self halt]. + y := self size + super size. + #($a #a ''a'' "a" 1 1.0) + do: [ :each | + Transcript + show: (each class name); + show: '' '']. + ^ x < y'! Item was added: + ----- Method: Text class>>forssmanSample (in category 'filler text') ----- + forssmanSample + "Detailtypografie. Friedrich Forssmann, Ralf de Jong. Verlag Hermann Schmidt. 2004. ISBN 978-3874395687. http://www.detailtypografie.de/" + + ^ self fromString: 'Wien, Venedig, Ravenna? Also gut: Ravenna. Gleichmäßiger + Regen hüllt den Abend ein. Die Fassaden der Häuser haben ihr + Antlitz verloren. Ein korpulenter Polizist humpelt auf + Krücken zum Strand. Vergeblich halten wir Ausschau, + melancholisch spielt Frau Löwe mit ihrem Zirkel. Wir öffnen + die Tür. Wir sehen nichts. In der Ferne ein Gewitter. Früher + wägte man den Sinn und den Unsinn und entschied sich für den + Unsinn. Das war eine Geschmackssache. Wir liegen in Fesseln, + ach und in Feuchte. Frau Löwe malt ein vergangenes Bild der + Wissenschaft auf die bröcklige Leinwand der Herzen. Sie + verneigt sich und küßt uns die Augen. Wir finden keine Luft + mehr, wir halten uns nur noch auf dem laufenden. Gott im + Himmel, laß es ein Ende haben!! Gott im Himmel, erweiche dein + Herz!! Gott im Himmel schenk uns dein Fleisch!! Wir finden ... + Luft ... Das Leselicht erlischt. »Blind ist der Blinde nur + hinter der Binde.« Schiller & Goethe reichen sich die Hände. + »Na denn? Na denn!!«'! Item was added: + ----- Method: Text class>>melvilleSample (in category 'filler text') ----- + melvilleSample + " + https://en.wikipedia.org/wiki/Moby-Dick + " + + ^ self fromString: 'Call me Ishmael. Some years ago - never mind how long + precisely - having little or no money in my purse, and + nothing particular to interest me on shore, I thought I + would sail about a little and see the watery part of the + world. It is a way I have of driving off the spleen and + regulating the circulation. Whenever I find myself growing + grim about the mouth; whenever it is a damp, drizzly + November in my soul; whenever I find myself involuntarily + pausing before coffin warehouses, and bringing up the rear + of every funeral I meet; and especially whenever my hypos + get such an upper hand of me, that it requires a strong + moral principle to prevent me from deliberately stepping + into the street, and methodically knocking people''s hats off + - then, I account it high time to get to sea as soon as I + can. This is my substitute for pistol and ball. With a + philosophical flourish Cato throws himself upon his sword; I + quietly take to the ship. There is nothing surprising in + this. If they but knew it, almost all men in their degree, + some time or other, cherish very nearly the same feelings + towards the ocean with me. + + There now is your insular city of the Manhattoes, belted + round by wharves as Indian isles by coral reefs - commerce + surrounds it with her surf. Right and left, the streets take + you waterward. Its extreme down-town is the battery, where + that noble mole is washed by waves, and cooled by breezes, + which a few hours previous were out of sight of land. Look + at the crowds of water-gazers there. + + -- Herman Melville'! Item was changed: ----- Method: Text class>>symbolSample (in category 'filler text') ----- symbolSample + "Symbols are specific to a font family. We cannot know which code points are supported and how symbols will look like. Thus, you should ask the font of your choice to provide you with a #symbolSample." + + ^ TextStyle defaultFont symbolSample! - - ^ self streamContents: [:stream | | lineLength character| - lineLength := 0. - 33 to: 255 do:[ :index | - character := stream nextPut: (Character value: index). - lineLength := lineLength + 1. - (('@Z`z' includes: character) or: [lineLength >= 30]) - ifTrue: [ - lineLength :=0. - stream cr]]]!

1 0

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 2022