Packages April 2018

packages@lists.squeakfoundation.org

1 participants
86 discussions

The Trunk: EToys-nice.323.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.323.mcz ==================== Summary ==================== Name: EToys-nice.323 Author: nice Time: 6 April 2018, 11:08:06.003784 pm UUID: 9cc67174-4ffd-4a87-9b85-aa82ba03b3a6 Ancestors: EToys-tpr.322 Fix the incorrect SoundService default initialization (see this package postscript for an explanation) Remove un-necessary Boolean>>xor: Sort the categories. =============== Diff against EToys-tpr.322 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! + SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! + SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Base'! SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Connectors'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! - SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! - SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! - SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! - SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'! - SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! - SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! + SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! + SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! + SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! + SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! + SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'! + SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Languages'! SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-TextConversion'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type Vocabularies'! + SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! + SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! + SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! - SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! - SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! + SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! - SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! + SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! - SystemOrganization addCategory: #'Etoys-Widgets'! - SystemOrganization addCategory: #'Etoys-Squeakland-Support'! - SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! - SystemOrganization addCategory: #'Etoys-OLPC-Display'! - SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! + SystemOrganization addCategory: #'Etoys-Widgets'! Item was removed: - ----- Method: Boolean>>xor: (in category '*Etoys-Squeakland-logical operations') ----- - xor: aBoolean - "Exclusive OR. Answer true if the receiver is not equivalent to aBoolean." - - ^(self == aBoolean) not! Item was changed: ----- Method: TileMorphTest>>setUp (in category 'running') ----- setUp + soundSystemBackup := SoundService default: (self class environment at: #BaseSoundSystem ifAbsent: [nil]).! - - self soundSystemBackup: SoundService defaultOrNil. - SoundService default: (self class environment at: #BaseSoundSystem ifAbsent: [nil]).! Item was removed: - ----- Method: TileMorphTest>>soundSystemBackup (in category 'accessing') ----- - soundSystemBackup - - ^ soundSystemBackup! Item was removed: - ----- Method: TileMorphTest>>soundSystemBackup: (in category 'accessing') ----- - soundSystemBackup: anObject - - soundSystemBackup := anObject! Item was changed: ----- Method: TileMorphTest>>tearDown (in category 'running') ----- tearDown + SoundService default: soundSystemBackup.! - SoundService default: self soundSystemBackup.! Item was changed: (PackageInfo named: 'EToys') postscript: 'KedamaMorph allInstancesDo: [ :each | (each instVarNamed: #turtlesToDisplay) ifNotNil: [ :turtlesToDisplay | turtlesToDisplay class == Array ifTrue: [ + each instVarNamed: #turtlesToDisplay put: turtlesToDisplay asSet ] ] ]. + + "Fix SoundService default. + One must not invoke this: + SoundService default: SoundService defaultOrNil. + because it fills the class inst var ''default'' with an instance instead of a class. + This script checks if that ever happened and tries to restore a healthy default." + (SoundService instVarNamed: #default) + ifNotNil: [:ss | ss isBehavior ifFalse: [SoundService unregister: ss; default: ss class]].'! - each instVarNamed: #turtlesToDisplay put: turtlesToDisplay asSet ] ] ]'!

1 0

The Trunk: Multilingual-nice.237.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.237.mcz ==================== Summary ==================== Name: Multilingual-nice.237 Author: nice Time: 6 April 2018, 7:37:57.89255 pm UUID: 08e8ac08-7ec9-9f43-a965-11b791a7cfb4 Ancestors: Multilingual-tonyg.236 Add some fixes required for the Japanese locale to function properly. >From http://bugs.squeak.org/view.php?id=7864 Note: - I have replace the patch of copy by a patch of postCopy which is the correct way to do it in modern Squeak. - i have not integrated the crossedX patch yet because I need to understand the bug first, so I am waiting for feedback =============== Diff against Multilingual-tonyg.236 =============== Item was changed: ----- Method: JapaneseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | + platformName := Smalltalk platformName. - platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^NoConversionClipboardInterpreter]. + platformName = 'Win32' ifTrue: [^UTF8ClipboardInterpreter]. - platformName = 'Win32' ifTrue: [^WinShiftJISClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [^MacShiftJISClipboardInterpreter]. ^platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [UnixJPClipboardInterpreter]] ifFalse: [ NoConversionClipboardInterpreter ]! Item was changed: ----- Method: JapaneseEnvironment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass | platformName osVersion encoding | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. + platformName = 'Win32' - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^UTF8TextConverter]. + platformName = 'ZaurusOS' - (#('Win32' 'ZaurusOS') includes: platformName) ifTrue: [^ShiftJISTextConverter]. platformName = 'Mac OS' ifTrue: [^('10*' match: osVersion) ifTrue: [UTF8TextConverter] ifFalse: [ShiftJISTextConverter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. encoding ifNil: [^EUCJPTextConverter]. (encoding = 'utf-8') ifTrue: [^UTF8TextConverter]. (encoding = 'shiftjis' or: [ encoding = 'sjis' ]) ifTrue: [^ShiftJISTextConverter]. ^EUCJPTextConverter]. ^MacRomanTextConverter! Item was added: + ----- Method: LanguageEnvironment class>>isAlphaNumeric: (in category 'accessing') ----- + isAlphaNumeric: char + + ^ self charsetClass isAlphaNumeric: char. + ! Item was added: + ----- Method: LanguageEnvironment class>>toCasefold: (in category 'casing') ----- + toCasefold: aWideString + ^self charsetClass toCasefold: aWideString! Item was added: + ----- Method: LanguageEnvironment class>>toLowercase: (in category 'casing') ----- + toLowercase: aWideString + ^self charsetClass toLowercase: aWideString! Item was added: + ----- Method: LanguageEnvironment class>>toLowercaseCode: (in category 'casing') ----- + toLowercaseCode: integerValue + ^self charsetClass toLowercaseCode: integerValue! Item was added: + ----- Method: LanguageEnvironment class>>toUppercase: (in category 'casing') ----- + toUppercase: aWideString + ^self charsetClass toUppercase: aWideString! Item was added: + ----- Method: LanguageEnvironment class>>toUppercaseCode: (in category 'casing') ----- + toUppercaseCode: integerValue + ^self charsetClass toUppercaseCode: integerValue! Item was changed: ----- Method: StrikeFontSet>>postCopy (in category 'copying') ----- postCopy super postCopy. self reset. + fontArray := fontArray collect: #copy - fontArray := fontArray copy ! Item was changed: ----- Method: UTF32JPInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: JapaneseEnvironment leadingChar code: keyValue!

1 0

The Trunk: Morphic-nice.1411.mcz
by commits＠source.squeak.org 06 Apr '18

06 Apr '18

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1411.mcz ==================== Summary ==================== Name: Morphic-nice.1411 Author: nice Time: 6 April 2018, 12:18:50.18955 pm UUID: b1fb10c7-ba0f-7f41-a17f-1cdfd5e60e85 Ancestors: Morphic-mt.1410 Fix http://bugs.squeak.org/view.php?id=7863 can't undo paste initials =============== Diff against Morphic-mt.1410 =============== Item was changed: ----- Method: TextEditor>>pasteInitials: (in category 'editing keys') ----- pasteInitials: aKeyboardEvent "Replace the current text selection by an authorship name/date stamp; invoked by cmd-shift-v, easy way to put an authorship stamp in the comments of an editor." self insertAndCloseTypeIn. + self openTypeIn. self replace: self selectionInterval with: (Text fromString: Utilities changeStamp) and: [self selectAt: self stopIndex]. + self closeTypeIn. ^ true!

1 0

The Trunk: 60Deprecated-mt.14.mcz
by commits＠source.squeak.org 05 Apr '18

05 Apr '18

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.14.mcz ==================== Summary ==================== Name: 60Deprecated-mt.14 Author: mt Time: 5 April 2018, 10:31:02.988307 am UUID: d86c101d-94ec-4a42-add5-f8934e606243 Ancestors: 60Deprecated-mt.13 No need for #exploreAndYourself anymore. =============== Diff against 60Deprecated-mt.13 =============== Item was added: + ----- Method: Object>>exploreAndYourself (in category '*60Deprecated-Tools') ----- + exploreAndYourself + + self deprecated: 'Use #explore because it does not return the tool window anymore. Only calls via ToolSet do so.'. + self explore!

1 0

The Trunk: Tools-mt.804.mcz
by commits＠source.squeak.org 05 Apr '18

05 Apr '18

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.804.mcz ==================== Summary ==================== Name: Tools-mt.804 Author: mt Time: 5 April 2018, 10:29:51.105307 am UUID: 7490573c-8cd9-0d46-afe3-bea1c791066d Ancestors: Tools-mt.803 Consistently return the domain object in question for any inspect/explore/browse call to it. Background: We did change the semantics of #inspect for the Squeak 5.1 release to harmonize #explore. After several ongoing discussions with Chris (cmm), we found a more usefull consent. That is, call ToolSet directly if you want to gain access to the created tool window(s). Call the object directly to get the object back. Now you can sprinkle #inspect, #explore, #browse etc. in your code during exploratory debugging sessions again. Let's hope this works for everybody. See the deprecated #exploreAndYourself to better understand what is not required anymore. =============== Diff against Tools-mt.803 =============== Item was changed: ----- Method: Inspector>>exploreObject (in category 'toolbuilder') ----- exploreObject "Switch to an explorer tool." | window currentBounds | currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow. "Close first because MVC fiddles around with processes." self changed: #close. + window := ToolSet explore: self object. - window := self object explore. "---- In MVC, the lines after this will not be executed ---" window model setExpression: self expression. ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.! Item was changed: ----- Method: Object>>basicInspect (in category '*Tools-inspecting') ----- basicInspect "Create and schedule an Inspector in which the user can examine the receiver's variables. This method should not be overriden." + ToolSet basicInspect: self! - ^ToolSet basicInspect: self! Item was changed: ----- Method: Object>>browse (in category '*Tools-Browsing') ----- browse + ToolSet browseClass: self class! - ^ToolSet browseClass: self class! Item was changed: ----- Method: Object>>explore (in category '*Tools-Explorer') ----- explore + ToolSet explore: self! - ^ToolSet explore: self! Item was removed: - ----- Method: Object>>exploreAndYourself (in category '*Tools-Explorer') ----- - exploreAndYourself - "i.e. explore; yourself. Thisway i can peek w/o typing all the parentheses" - self explore. - ^self! Item was changed: ----- Method: Object>>explorePointers (in category '*Tools-Debugger') ----- explorePointers + PointerExplorer openOn: self! - PointerExplorer openOn: self.! Item was changed: ----- Method: Object>>exploreWithLabel: (in category '*Tools-Explorer') ----- exploreWithLabel: label + ToolSet explore: self label: label! - - ^ ObjectExplorer openOn: self withLabel: label! Item was changed: ----- Method: Object>>inspect (in category '*Tools-inspecting') ----- inspect "Create and schedule an Inspector in which the user can examine the receiver's variables." + ToolSet inspect: self! - ^ ToolSet inspect: self! Item was changed: ----- Method: Object>>inspectWithLabel: (in category '*Tools-inspecting') ----- inspectWithLabel: aLabel "Create and schedule an Inspector in which the user can examine the receiver's variables." + ToolSet inspect: self label: aLabel! - ^ToolSet inspect: self label: aLabel! Item was changed: ----- Method: ObjectExplorer>>inspectObject (in category 'toolbuilder') ----- inspectObject "Switch to an inspector tool." | window currentBounds | currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow. "Close first because MVC fiddles around with processes." self changed: #close. + window := ToolSet inspect: self rootObject. - window := self rootObject inspect. "---- In MVC, the lines after this will not be executed ---" window model setExpression: self expression. ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.! Item was added: + ----- Method: StandardToolSet class>>explore:label: (in category 'inspecting') ----- + explore: anObject label: label + + ^ ObjectExplorer openOn: anObject withLabel: label!

1 0

The Trunk: System-mt.1014.mcz
by commits＠source.squeak.org 05 Apr '18

05 Apr '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1014.mcz ==================== Summary ==================== Name: System-mt.1014 Author: mt Time: 5 April 2018, 10:22:30.974307 am UUID: 8650d884-c761-f240-a1c7-5f04eb83a0a9 Ancestors: System-mt.1013 Adds #explore:label: to tool set to mirror #inspect:label: and hence make this Inspector/Explorer dualism more consistent. =============== Diff against System-mt.1013 =============== Item was added: + ----- Method: ToolSet class>>explore:label: (in category 'inspecting') ----- + explore: anObject label: aString + "Open an explorer on the given object." + self default ifNil:[^self inform: 'Cannot explore - no ToolSet present']. + ^self default explore: anObject label: aString!

1 0

The Trunk: Morphic-mt.1410.mcz
by commits＠source.squeak.org 05 Apr '18

05 Apr '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1410.mcz ==================== Summary ==================== Name: Morphic-mt.1410 Author: mt Time: 5 April 2018, 10:19:42.770307 am UUID: 014befa8-9d09-8546-8ca8-37a95f1e340a Ancestors: Morphic-cmm.1409 Minor clean-up. =============== Diff against Morphic-cmm.1409 =============== Item was changed: ----- Method: TextURL>>open: (in category '*Morphic') ----- open: anObject anObject isBehavior ifTrue: [ + ^ ToolSet browseClass: anObject]. - ^ anObject browse]. anObject isCompiledMethod ifTrue: [ ^ ToolSet browse: anObject methodClass selector: anObject selector]. anObject class == MethodReference ifTrue: [ ^ ToolSet browse: anObject actualClass selector: anObject selector]. anObject isSymbol ifTrue: [ SystemNavigation default browseAllImplementorsOf: anObject. SystemNavigation default browseAllCallsOn: anObject. + self flag: #todo. "mt: Which tool window to return in this case?" ^ self].!

1 0

The Trunk: 60Deprecated-mt.13.mcz
by commits＠source.squeak.org 05 Apr '18

05 Apr '18

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.13.mcz ==================== Summary ==================== Name: 60Deprecated-mt.13 Author: mt Time: 5 April 2018, 9:57:04.971457 am UUID: 29391520-9b58-8e4d-9fa1-d3a4f896668f Ancestors: 60Deprecated-mt.12 Adds deprecation for window re-use. =============== Diff against 60Deprecated-mt.12 =============== Item was added: + ----- Method: SystemWindow>>anyOpenWindowLikeMe (in category '*60Deprecated-open/close') ----- + anyOpenWindowLikeMe + + self deprecated: 'Use #anyOpenWindowLikeMe: passing a concrete world object.'. + ^ self anyOpenWindowLikeMeIn: Project current world!

1 0

The Trunk: Morphic-cmm.1409.mcz
by commits＠source.squeak.org 04 Apr '18

04 Apr '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1409.mcz ==================== Summary ==================== Name: Morphic-cmm.1409 Author: cmm Time: 4 April 2018, 2:30:02.510117 pm UUID: 6d625668-7bfe-4baa-8c15-ea49525a34dd Ancestors: Morphic-cmm.1408 Slightly better fix (thanks Tim) which uses the World passed-in to the sender rather than the global World. =============== Diff against Morphic-cmm.1408 =============== Item was removed: - ----- Method: SystemWindow>>anyOpenWindowLikeMe (in category 'open/close') ----- - anyOpenWindowLikeMe - - self class reuseWindows ifFalse: [ ^Array empty ]. - ^ SystemWindow - windowsIn: World - satisfying: - [ : each | - each model class = self model class - and: [ (each model respondsTo: #representsSameBrowseeAs:) - and: [ each model representsSameBrowseeAs: self model ] ] ] - ! Item was added: + ----- Method: SystemWindow>>anyOpenWindowLikeMeIn: (in category 'open/close') ----- + anyOpenWindowLikeMeIn: aPasteUpMorph + self class reuseWindows ifFalse: [ ^Array empty ]. + ^ SystemWindow + windowsIn: aPasteUpMorph + satisfying: + [ : each | + each model class = self model class + and: [ (each model respondsTo: #representsSameBrowseeAs:) + and: [ each model representsSameBrowseeAs: self model ] ] ] + ! Item was changed: ----- Method: SystemWindow>>openInWorld: (in category 'open/close') ----- openInWorld: aWorld "This msg and its callees result in the window being activeOnlyOnTop" + ^ (self anyOpenWindowLikeMeIn: aWorld) - ^ self anyOpenWindowLikeMe ifEmpty: [ self bounds: (RealEstateAgent initialFrameFor: self world: aWorld) ; openAsIsIn: aWorld ] ifNotEmptyDo: [ : windows | windows anyOne expand ; beKeyWindow ; postAcceptBrowseFor: self ].! Item was changed: ----- Method: SystemWindow>>openInWorld:extent: (in category 'open/close') ----- openInWorld: aWorld extent: extent "This msg and its callees result in the window being activeOnlyOnTop" + ^ (self anyOpenWindowLikeMeIn: aWorld) - ^ self anyOpenWindowLikeMe ifEmpty: [ self position: (RealEstateAgent initialFrameFor: self initialExtent: extent world: aWorld) topLeft ; extent: extent. self openAsIsIn: aWorld ] ifNotEmptyDo: [ : windows | windows anyOne expand ; beKeyWindow ; postAcceptBrowseFor: self ].!

1 0

The Trunk: PreferenceBrowser-mt.82.mcz
by commits＠source.squeak.org 04 Apr '18

04 Apr '18

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.82.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.82 Author: mt Time: 4 April 2018, 12:35:28.855182 pm UUID: ad916872-7020-fb43-893e-281a1b14a77d Ancestors: PreferenceBrowser-tpr.81 Some improvements for the preference wizard: 1) Show checkmarks to indicate what is selected and what not. 2) Add prefs for bigger fonts and cursors. 3) Do not show autogenerated DEMO themes in the list of UI themes to avoid visual glitches. 4) Add pref for #alternativeBrowseIt to last (tool) page. Well, the code still needs clean-up. At the moment, the only good thing is that the whole code mess is in the single class PreferenceWizardMorph. :-) =============== Diff against PreferenceBrowser-tpr.81 =============== Item was changed: Morph subclass: #PreferenceWizardMorph + instanceVariableNames: 'previewWorld titleMorph buttonRowMorph controlMorph startButton previousButton nextButton pages currentPageIndex pagesLabel skipButton isFullScreen lowPerformanceMorph checkmark' - instanceVariableNames: 'previewWorld titleMorph buttonRowMorph controlMorph startButton previousButton nextButton pages currentPageIndex pagesLabel skipButton isFullScreen lowPerformanceMorph' classVariableNames: '' poolDictionaries: '' category: 'PreferenceBrowser'! Item was added: + ----- Method: PreferenceWizardMorph>>changed: (in category 'updating') ----- + changed: aspect + + super changed: aspect. + + (aspect beginsWith: #state) + ifTrue: [super changed: ('label', (aspect allButFirst: 5)) asSymbol].! Item was added: + ----- Method: PreferenceWizardMorph>>checkmark (in category 'initialization') ----- + checkmark + + ^ checkmark ifNil: [checkmark := (((ToolIcons iconNamed: #checkmark) dyed: Color white) scaledToSize: 20@20) asMorph]! Item was changed: ----- Method: PreferenceWizardMorph>>createCheckbox:for:help: (in category 'initialization') ----- createCheckbox: label for: selector help: terms | box lbl btn | btn := self createButton + layoutInset: 0; label: ' '; + onColor: (self defaultColor adjustBrightness: 0.3) offColor: (self defaultColor adjustBrightness: 0.3); - onColor: Color white offColor: (self defaultColor adjustBrightness: 0.3); vResizing: #rigid; hResizing: #rigid; action: ('toggle', selector) asSymbol; getStateSelector: ('state', selector) asSymbol; + getLabelSelector: ('label', selector) asSymbol; extent: 25@25. lbl := self createLabel: label color: self defaultTextColor. box := Morph new color: Color transparent; changeTableLayout; listDirection: #leftToRight; cellPositioning: #topLeft; hResizing: #spaceFill; vResizing: #shrinkWrap; cellInset: 10; yourself. box addAllMorphs: {btn. lbl}. self setBalloonText: (terms isString ifTrue: [terms] ifFalse: [self findHelpStringFor: terms]) for: box. ^ box! Item was added: + ----- Method: PreferenceWizardMorph>>doesNotUnderstand: (in category 'buttons') ----- + doesNotUnderstand: msg + + (msg selector numArgs = 0 and: [msg selector beginsWith: 'label']) + ifTrue: [^ (self perform: ('state', (msg selector allButFirst: 5)) asSymbol) + ifTrue: [self checkmark] + ifFalse: [' '] ]. + + ^ super doesNotUnderstand: msg! Item was changed: ----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization') ----- initializePage01Themes | currentPage | currentPage := pages add: self createPage. currentPage addMorphBack: (self createLabel: 'Choose a theme:' color: Color white). + ((UserInterfaceTheme allThemes + reject: [:uit | uit name beginsWith: 'Demo']) + sorted: [:a :b | a name <= b name]) + do: [:ea | + currentPage addMorphBack: (self createButton + label: ea name; + hResizing: #spaceFill; + action: #chooseTheme:; + arguments: {ea})]. - (UserInterfaceTheme allThemes sorted: [:a :b | a name <= b name]) do: [:ea | - currentPage addMorphBack: (self createButton - label: ea name; - hResizing: #spaceFill; - action: #chooseTheme:; - arguments: {ea})]. currentPage addMorphBack: self createVerticalSpacer. ! Item was added: + ----- Method: PreferenceWizardMorph>>initializePage02bVisualsMore (in category 'initialization') ----- + initializePage02bVisualsMore + + | currentPage | + currentPage := pages add: self createPage. + currentPage addMorphBack: (self createLabel: 'Choose more visual settings' color: Color white). + + currentPage addAllMorphsBack: { + self createCheckbox: 'Bigger Fonts' translated for: #UseBiggerFonts help: 'For high-DPI displays, bigger fonts can improve readability.'. + self createCheckbox: 'Bigger Cursors' translated for: #UseBiggerCursors help: #(bigger cursor). + }. + + currentPage addMorphBack: self createVerticalSpacer. + ! Item was changed: ----- Method: PreferenceWizardMorph>>initializePage05Tools (in category 'initialization') ----- initializePage05Tools | currentPage | currentPage := pages add: self createPage. currentPage addMorphBack: (self createLabel: 'Choose other settings' color: Color white). currentPage addAllMorphsBack: { self createCheckbox: 'Trace messages browser' translated for: #TraceMessages help: #(trace message). self createCheckbox: 'Reuse tool windows' translated for: #ReuseWindows help: #(window reuse). self createCheckbox: 'Tool and menu icons' translated for: #ToolAndMenuIcons help: 'Whether to show icons in tools and menus.' translated. + self createCheckbox: 'Browse class hierarchy' translated for: #AlternativeBrowseIt help: 'Whether to spawn a hierarchy browser or full system browser on browse-it commands.' translated. }. currentPage addMorphBack: self createVerticalSpacer. ! Item was changed: ----- Method: PreferenceWizardMorph>>initializePages (in category 'initialization') ----- initializePages pages := OrderedCollection new. currentPageIndex := 0. self initializePage01Themes; initializePage02Visuals; + initializePage02bVisualsMore; initializePage03Interaction; initializePage04InteractionMore; initializePage05Tools.! Item was added: + ----- Method: PreferenceWizardMorph>>stateAlternativeBrowseIt (in category 'buttons') ----- + stateAlternativeBrowseIt + + ^ Preferences valueOfFlag: #alternativeBrowseIt ifAbsent: [false]! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseBiggerCursors (in category 'buttons') ----- + stateUseBiggerCursors + + ^ Cursor useBiggerCursors! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseBiggerFonts (in category 'buttons') ----- + stateUseBiggerFonts + + ^ UserInterfaceTheme current name beginsWith: 'Demo'! Item was changed: + ----- Method: PreferenceWizardMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: PreferenceWizardMorph>>stepTime (in category 'testing') ----- stepTime ^ 1000! Item was added: + ----- Method: PreferenceWizardMorph>>toggleAlternativeBrowseIt (in category 'buttons') ----- + toggleAlternativeBrowseIt + + Preferences toggle: #alternativeBrowseIt. + self changed: #stateAlternativeBrowseIt.! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseBiggerCursors (in category 'buttons') ----- + toggleUseBiggerCursors + + Cursor useBiggerCursors: self stateUseBiggerCursors not. + Cursor currentCursor: Cursor currentCursor. + + self changed: #stateUseBiggerCursors.! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseBiggerFonts (in category 'buttons') ----- + toggleUseBiggerFonts + + [ + self stateUseBiggerFonts + ifFalse: [Preferences setDemoFonts] + ifTrue: [Preferences restoreDefaultFonts]. + ] valueSupplyingAnswer: true. + + self changed: #stateUseBiggerFonts.!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2018