Squeak-dev August 2013

squeak-dev@lists.squeakfoundation.org

45 participants
157 discussions

The Trunk: Tests-cmm.247.mcz
by commits＠source.squeak.org 31 Aug '13

31 Aug '13

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.247.mcz ==================== Summary ==================== Name: Tests-cmm.247 Author: cmm Time: 8 August 2013, 10:54:50.713 pm UUID: 93fd43c1-0207-42ed-bfe5-f2d6acfaa2c2 Ancestors: Tests-nice.246 Tests for loading each of the external-packages defined in Installer. =============== Diff against Tests-nice.246 =============== Item was added: + ----- Method: InstallerTest class>>suiteClass (in category 'as yet unclassified') ----- + suiteClass + ^ InstallerTestSuite! Item was added: + TestSuite subclass: #InstallerTestSuite + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Installer-Core'! Item was added: + ----- Method: InstallerTestSuite>>ensureTestMethods (in category 'initialize-release') ----- + ensureTestMethods + "Ensure InstallerTest has test methods for each externally-loadable package defined by Installer. By generating these methods, they don't have to be maintained separately." + ^ (Installer methodsInCategory: 'external-packages') do: + [ : each | (InstallerTest canUnderstand: each) ifFalse: + [ InstallerTest + compile: + (String streamContents: + [ : stream | stream + nextPutAll: 'test'; nextPutAll: each; + cr; tab; + nextPutAll: 'Installer new merge: #'; nextPutAll: each ]) + classified: '*generated' ] ]! Item was added: + ----- Method: InstallerTestSuite>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + self ensureTestMethods!

1 0

The Trunk: ReleaseBuilder-cmm.102.mcz
by commits＠source.squeak.org 31 Aug '13

31 Aug '13

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.102.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.102 Author: cmm Time: 31 August 2013, 3:56:13.245 pm UUID: bd9c8bf2-f5c7-4151-94e9-4f032f003388 Ancestors: ReleaseBuilder-fbs.101 - Delegate to Installer to merge the #squeakRelease "package" for building releases. =============== Diff against ReleaseBuilder-fbs.101 =============== Item was changed: ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') ----- loadWellKnownPackages "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact." + Installer new merge: #squeakRelease! - #('311Deprecated' - '39Deprecated' - '45Deprecated' - 'Nebraska' - 'SmallLand-ColorTheme' - 'ST80' - 'ST80Tools' - 'SystemReporter' - 'Universes' - 'XML-Parser') do: [:pkgName | - FileStream stdout nextPutAll: ('Loading {1}\' withCRs format: {pkgName}). - Installer squeak - project: 'trunk'; - install: pkgName].! Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') ----- prepareNewBuild "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" TTCFont registerAll. RealEstateAgent standardSize: 600@400. SystemVersion newVersion: self versionString. SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). self setDisplayExtent: 800 @ 600; setPreferences; switchToNewRepository; openWelcomeWorkspaces. self cleanPackages. + Smalltalk cleanUp: true. - Smalltalk cleanUp: true except: #() confirming: false. Undeclared removeUnreferencedKeys. Smalltalk garbageCollect. self loadWellKnownPackages. Compiler recompileAll.!

1 0

The Trunk: Installer-Core-cmm.378.mcz
by commits＠source.squeak.org 31 Aug '13

31 Aug '13

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.378.mcz ==================== Summary ==================== Name: Installer-Core-cmm.378 Author: cmm Time: 31 August 2013, 3:51:35.567 pm UUID: 05eafe7c-dc5b-42fc-bb8b-889de99f723b Ancestors: Installer-Core-cmm.377 - Initial sketch of our newly-modularised package hierarchy from #core, used by #system and topped with #squeakRelease for the full release image content. Now used by ReleaseBuilder for help in building the release image. - Fix Installer>>#unload to disableUpdatesOfPackage: unloaded packages. =============== Diff against Installer-Core-cmm.377 =============== Item was changed: + ----- Method: Installer>>broomMorphsBase (in category 'package-definitions') ----- - ----- Method: Installer>>broomMorphsBase (in category 'external-packages') ----- broomMorphsBase "Morph alignment user-interface tool." ^ { #ss3 -> 'Connectors'. 'BroomMorphs-Base' }! Item was changed: + ----- Method: Installer>>connectors (in category 'package-definitions') ----- - ----- Method: Installer>>connectors (in category 'external-packages') ----- connectors "Connect Morphs together. Make diagrams." ^ { self broomMorphsBase. 'CGPrereqs'. 'FSM'. 'Connectors'. 'ConnectorsText'. 'ConnectorsShapes'. 'ConnectorsTools'. 'ConnectorsGraphLayout'. 'BroomMorphs-Connectors' }! Item was added: + ----- Method: Installer>>core (in category 'package-definitions') ----- + core + "Approximate minimum core capable of expanding itself. First draft" + ^ { #squeak -> MCMcmUpdater defaultUpdateURL asUrl path last. + 'Kernel'. + 'Collections'. + 'Exceptions'. + 'Files'. + 'Graphics'. + 'Balloon'. + 'Network'. + 'Monticello'. + 'Installer-Core' }! Item was changed: + ----- Method: Installer>>curvedSpaceExplorer (in category 'package-definitions') ----- - ----- Method: Installer>>curvedSpaceExplorer (in category 'external-packages') ----- curvedSpaceExplorer "Explore curved 3D spaces." ^ { self openGL. 'CCSpaceExplorer' }! Item was changed: + ----- Method: Installer>>ffi (in category 'package-definitions') ----- - ----- Method: Installer>>ffi (in category 'external-packages') ----- ffi "Foreign Function Interface." ^ { #squeak -> 'FFI'. 'FFI-Pools'. 'FFI-Kernel' }! Item was changed: + ----- Method: Installer>>ffiTests (in category 'package-definitions') ----- - ----- Method: Installer>>ffiTests (in category 'external-packages') ----- ffiTests "Tests for Foreign Function Interface." ^ { self ffi. 'FFI-Tests' }! Item was changed: + ----- Method: Installer>>fuel (in category 'package-definitions') ----- - ----- Method: Installer>>fuel (in category 'external-packages') ----- fuel "Serialization package." ^ { #ss3 -> 'Fuel'. 'ConfigurationOfFuel' }! Item was changed: + ----- Method: Installer>>htmlValidator (in category 'package-definitions') ----- - ----- Method: Installer>>htmlValidator (in category 'external-packages') ----- htmlValidator "Validates HTML and CSS pages against W3C DTD." + ^ { #ss3 -> 'htmlcssparser'. + 'HTML' }! - ^ { #ss -> 'htmlcssparser'. - 'HTML-tb.37' }! Item was changed: + ----- Method: Installer>>openGL (in category 'package-definitions') ----- - ----- Method: Installer>>openGL (in category 'external-packages') ----- openGL "3D library." ^ { self threeDtransform. #krestianstvo -> 'ccse'. 'OpenGL-Pools'. 'OpenGL-Core'. 'OpenGL-NameManager' }! Item was changed: + ----- Method: Installer>>osProcess (in category 'package-definitions') ----- - ----- Method: Installer>>osProcess (in category 'external-packages') ----- osProcess "Launch external executable programs." ^ { #ss -> 'OSProcess'. 'OSProcess' }! Item was added: + ----- Method: Installer>>squeakRelease (in category 'package-definitions') ----- + squeakRelease + ^ { self system. + '311Deprecated'. + '39Deprecated'. + '45Deprecated'. + 'Nebraska'. + 'SmallLand-ColorTheme'. + 'ST80'. + 'ST80Tools'. + 'SystemReporter'. + 'Universes'. + 'XML-Parser' }! Item was added: + ----- Method: Installer>>system (in category 'package-definitions') ----- + system + "Packages forming the Smalltalk development system." + ^ { self core. + 'System' }! Item was changed: + ----- Method: Installer>>threeDtransform (in category 'package-definitions') ----- - ----- Method: Installer>>threeDtransform (in category 'external-packages') ----- threeDtransform ^ { self ffiTests. #ss -> 'CroquetGL'. '3DTransform' }! Item was changed: + ----- Method: Installer>>webClientCore (in category 'package-definitions') ----- - ----- Method: Installer>>webClientCore (in category 'external-packages') ----- webClientCore "Simple, compact, and easy to use HTTP client implementation from Andreas Raab." ^ { #ss -> 'WebClient'. 'WebClient-Core' }! Item was changed: + ----- Method: Installer>>webClientSsp (in category 'package-definitions') ----- - ----- Method: Installer>>webClientSsp (in category 'external-packages') ----- webClientSsp "WebClient supports NTLM/SPNEGO authentication via the Microsoft SSP interface (Windows only)." ^ { self ffiTests. self webClientTests. 'WebClient-SSP' }! Item was changed: + ----- Method: Installer>>webClientTests (in category 'package-definitions') ----- - ----- Method: Installer>>webClientTests (in category 'external-packages') ----- webClientTests "Help documentation and tests for Web Client." ^ { self webClientCore. 'WebClient-Tests'. 'WebClient-Help' }! Item was changed: ----- Method: InstallerMonticello>>unload (in category 'public interface') ----- + unload + (MCWorkingCopy allManagers select: [ : each | self package match: each package name ]) do: + [ : each | self logCR: 'Unloading ' , each package name. + each unload. + MCMcmUpdater disableUpdatesOfPackage: each package name ]. - unload - - (MCWorkingCopy allManagers select: [ :wc | self package match: (wc package name) ]) - do: [ :wc | - self logCR: 'Unloading ', wc package asString. - wc unload.]. self unloadCleanUp!

1 0

The Trunk: System-cmm.586.mcz
by commits＠source.squeak.org 31 Aug '13

31 Aug '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.586.mcz ==================== Summary ==================== Name: System-cmm.586 Author: cmm Time: 31 August 2013, 3:29:01.755 pm UUID: bbffd13c-e516-462d-ac89-e3880a28c382 Ancestors: System-fbs.585 - Remove modal confirmation pop-up buried in system code. If this is necessary it should be invoked from calling code. - Factor SmalltalkImage>>#unloadAllKnownPackages into several smaller methods to allow more deliberate shrinking. - Remove method referring to undefined "ScrapsBook". =============== Diff against System-fbs.585 =============== Item was changed: ----- Method: SmalltalkImage>>cleanUp:except: (in category 'housekeeping') ----- + cleanUp: aggressive except: exclusions - cleanUp: aggressive except: exclusions "Clean up. When aggressive is true, this will destroy projects, change sets, etc. Leave out any classes specifically listed in exclusions." - "Smalltalk cleanUp: true except: {Project. ChangeSet}" + "Find all classes implementing #cleanUp or cleanUp:" + | classes | + classes := Smalltalk allClasses select: + [ : eachClass | (eachClass class includesSelector: #cleanUp) or: + [ (eachClass class includesSelector: #cleanUp:) and: [ (exclusions includes: eachClass) not ] ] ]. + "Arrange classes in superclass order, superclasses before subclasses, so that specific cleanup (like MethodDictionary compaction) will run after generic superclass cleanup (HashedCollection rehashing). Otherwise generic superclass cleanup might undo specific one (in this case rehashing will undo a good bit of MD compaction)." + (ChangeSet superclassOrder: classes) + do: [ : aClass | aClass cleanUp: aggressive ] + displayingProgress: [ : aClass | 'Cleaning up in ' , aClass name ]! - - ^self cleanUp: aggressive except: exclusions confirming: aggressive! Item was removed: - ----- Method: SmalltalkImage>>cleanUp:except:confirming: (in category 'housekeeping') ----- - cleanUp: aggressive except: exclusions confirming: aBool - "Clean up. When aggressive is true, this will destroy projects, change sets, etc. - Leave out any classes specifically listed in exclusions." - - "Smalltalk cleanUp: true except: {Project. ChangeSet}" - - | classes | - aBool ifTrue:[ - "Give the user a chance to bail" - (self confirm: 'Cleanup will destroy projects, change sets and more. - Are you sure you want to proceed?') ifFalse:[^self]. - ]. - - "Find all classes implementing #cleanUp or cleanUp:" - classes := Smalltalk allClasses select:[:aClass| - (aClass class includesSelector: #cleanUp) - or:[aClass class includesSelector: #cleanUp:] - ]. - - "Leave out the classes in the exclusion set" - classes := classes reject:[:aClass| exclusions includes: aClass]. - - "Arrange classes in superclass order, superclasses before subclasses. - This will ensure that specific cleanup (like MethodDictionary compaction) - will run after generic superclass cleanup (HashedCollection rehashing). - Otherwise generic superclass cleanup might undo specific one (in this - case rehashing will undo a good bit of MD compaction)." - classes := ChangeSet superclassOrder: classes. - - "Run the cleanup code" - classes - do:[:aClass| aClass cleanUp: aggressive] - displayingProgress:[:aClass| 'Cleaning up in ', aClass name].! Item was added: + ----- Method: SmalltalkImage>>cleanUpEtoys (in category 'shrinking') ----- + cleanUpEtoys + StandardScriptingSystem removeUnreferencedPlayers. + Project removeAllButCurrent. + #('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' ) do: + [ : each | SystemOrganization removeSystemCategory: each ]. + World dumpPresenter. + Presenter defaultPresenterClass: nil. + Preferences removePreference: #allowEtoyUserCustomEvents. + ! Item was added: + ----- Method: SmalltalkImage>>removeChangeSets (in category 'shrinking') ----- + removeChangeSets + ChangeSet removeChangeSetsNamedSuchThat: + [ : each | (each == ChangeSet current) not ]. + ChangeSet current + clear ; + name: 'Unnamed1'! Item was added: + ----- Method: SmalltalkImage>>shrink (in category 'shrinking') ----- + shrink + "Clean up everything we know how to clean up that can be restored." + "Prepare unloading" + self zapMVCprojects. + Flaps disableGlobalFlaps: false. + self cleanUpEtoys. + "Yeow, why turn off listening for system changes?" + self + at: #ServiceRegistry + ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ]. + self unloadReloadablePackages. + "Post-unload cleanup" + SmalltalkImage cleanUp. + MCWorkingCopy flushObsoletePackageInfos. + "aggressive cleanUp" + SystemOrganization removeSystemCategory: 'UserObjects'. + ScheduledControllers := nil. + SystemOrganization removeEmptyCategories. + StandardScriptingSystem initialize. + "aggressive cleanUp" + self removeChangeSets. + self + at: #Browser + ifPresent: + [ : br | br initialize ]. + DebuggerMethodMap voidMapCache. + DataStream initialize. + Smalltalk garbageCollect! Item was added: + ----- Method: SmalltalkImage>>shrinkAndCleanDesktop (in category 'shrinking') ----- + shrinkAndCleanDesktop + World removeAllMorphs. + self shrink. + MorphicProject defaultFill: (Color gray: 0.9). + World color: (Color gray: 0.9)! Item was removed: - ----- Method: SmalltalkImage>>unloadAllKnownPackages (in category 'shrinking') ----- - unloadAllKnownPackages - "Unload all packages we know how to unload and reload" - - "Prepare unloading" - Smalltalk zapMVCprojects. - Flaps disableGlobalFlaps: false. - StandardScriptingSystem removeUnreferencedPlayers. - Project removeAllButCurrent. - #('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' ) - do: [:each | SystemOrganization removeSystemCategory: each]. - Smalltalk at: #ServiceRegistry ifPresent:[:aClass| - SystemChangeNotifier uniqueInstance - noMoreNotificationsFor: aClass. - ]. - World removeAllMorphs. - - "Go unloading" - #( 'ReleaseBuilder' 'ScriptLoader' - '311Deprecated' '39Deprecated' - 'Universes' 'SMLoader' 'SMBase' 'Installer-Core' - 'VersionNumberTests' 'VersionNumber' - 'Services-Base' 'PreferenceBrowser' 'Nebraska' - 'ToolBuilder-MVC' 'ST80Tools' 'ST80Tests' 'ST80' - 'CompressionTests' - 'CollectionsTests' 'GraphicsTests' 'KernelTests' 'MorphicTests' - 'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests' - 'SystemChangeNotification-Tests' 'FlexibleVocabularies' - 'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI' - 'Help-Squeak' 'HelpSystem' 'SystemReporter' - ) do: [:pkgName| - (MCPackage named: pkgName) unload. - MCMcmUpdater disableUpdatesOfPackage: pkgName. - ]. - "Traits use custom unload" - Smalltalk at: #Trait ifPresent:[:aClass| aClass unloadTraits]. - - "Post-unload cleanup" - SmalltalkImage cleanUp. - MCWorkingCopy flushObsoletePackageInfos. "aggressive cleanUp" - SystemOrganization removeSystemCategory: 'UserObjects'. - Presenter defaultPresenterClass: nil. - World dumpPresenter. - ScheduledControllers := nil. - Preferences removePreference: #allowEtoyUserCustomEvents. - SystemOrganization removeEmptyCategories. - StandardScriptingSystem initialize. "aggressive cleanUp" - ChangeSet removeChangeSetsNamedSuchThat:[:cs | (cs == ChangeSet current) not]. - ChangeSet current clear. - ChangeSet current name: 'Unnamed1'. - Smalltalk at: #Browser ifPresent:[:br| br initialize]. - DebuggerMethodMap voidMapCache. - DataStream initialize. - - Smalltalk garbageCollect. - MorphicProject defaultFill: (Color gray: 0.9). - World color: (Color gray: 0.9). - ! Item was added: + ----- Method: SmalltalkImage>>unloadReloadablePackages (in category 'shrinking') ----- + unloadReloadablePackages + "Unload packages which can be reloaded." + #('ReleaseBuilder' 'ScriptLoader' '311Deprecated' '39Deprecated' 'Universes' 'SMLoader' 'SMBase' 'VersionNumberTests' 'VersionNumber' 'Services-Base' 'PreferenceBrowser' 'Nebraska' 'ToolBuilder-MVC' 'ST80Tools' 'ST80Tests' 'ST80' 'CompressionTests' 'CollectionsTests' 'GraphicsTests' 'KernelTests' 'MorphicTests' 'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests' 'SystemChangeNotification-Tests' 'FlexibleVocabularies' 'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI' 'Help-Squeak' 'HelpSystem' 'SystemReporter' ) do: [ : pkgName | Installer mc unload: pkgName ]. + "Traits use custom unload" + self + at: #Trait + ifPresent: [ : aClass | aClass unloadTraits ]! Item was removed: - ----- Method: Utilities class>>cleanUp: (in category 'class initialization') ----- - cleanUp: agressive - "Nuke the scraps book when cleaning aggressively" - - agressive ifTrue:[ScrapsBook := nil].!

1 0

ReleaseBuilder
by Chris Muller 31 Aug '13

31 Aug '13

What are our plans for ReleaseBuilder? I noticed a lot of methods were moved to *45Deprecated. Don't we still need those to put out a compact release image or is it planned to use another mechanssm (such as Smalltalk cleanUp: hook?)?

3 3

[ANN] Aida 6.6 Web Framework Released
by Janko Mivšek 30 Aug '13

30 Aug '13

Dear Squeakers, This time a new version is released first on Squeak, because I just finished few patches for WebSockets to work correctly on Squeak. Thoroughly tested therefore Aida is now ready for you to test it by yourself. You are therefore invited to help catching any remaining problems by downloading and running it by following script: i := Installer monticello http: 'http://smalltalkhub.com'. i project: 'mc/Sport/Sport/main'; install: 'Sport-2.031'. i project: 'mc/Swazoo/Swazoo/main'; install: 'Swazoo-2.3final.2'. i project: 'mc/Aida/Aida/main'; install: 'Aida6.6-final.2'. Then open http://localhost:8888 in your recent web browser and try demos like realtime one. A famous counter is used in this realtime example to show all the Smalltalk elegance for writing web apps with most bleeding edge web technology as realtime (in our case WebSocket based) technology is. Realtime in the sense that values on the webpage are updated in immediately after this value changed. Changed from some outside reason (like temperature on Arctic changed) or by action from some other user, as above mentioned example shows. You can simulate that by open it in two different browsers, changing a count in one will immediately reflects in other browser. To test that on "global" level try our online realtime example: http://demo.aidaweb.si/demos?view=realtime More about Aida: http://www.aidaweb.si More about news in that release in: http://www.aidaweb.si/release-notes-6.6 Best regards Janko -- Janko Mivšek Aida/Web Smalltalk Web Application Server http://www.aidaweb.si

6 7

Learn X in Y minutes site
by tim Rowledge 26 Aug '13

26 Aug '13

http://learnxinyminutes.com/#! Looks to me like there is an empty slot there… a good project to see how concisely you can describe using Squeak. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- So dumb, blondes tell jokes about him.

1 0

new Cog VMs available
by Eliot Miranda 26 Aug '13

26 Aug '13

http://www.mirandabanda.org/files/Cog/VM/VM.r2776/ CogVM binaries as per VMMaker.oscog-eem.333/r2776 * Speed-up Newspeak significantly (e.g. -28% in one compile-intensive benchmark) by maintaining unpaired methods (compilations of anonymous accessors) on a linked list instead of searching the entire method zone. * Make primitiveObjectAtPut fail if changing the header word and the new header has a different literal count. Avoids crashing the VM when inadvertently changing the header, as a Newspeak bootstrap did recently. * Implement frameless inst var store from arguments, so e.g. Point>>setX:Y: is frameless. * Add Cogit support for clean blocks by scanning literals looking for BlockClosures on the current method. -- best, Eliot

2 2

where is code to use the RePlugin primitives?
by Eliot Miranda 24 Aug '13

24 Aug '13

SLSIA -- best, Eliot

3 4

computers too fast these days?
by Bob Arning 22 Aug '13

22 Aug '13

I've often wondered why, when I search for some string that isn't there, I see the text morph flash sometimes, but not always. Here's a fix. Cheers, Bob 'From Squeak4.4 of 1 March 2013 [latest update: #12489] on 18 August 2013 at 11:49:45 am'! !Morph methodsFor: 'macpal' stamp: 'raa 8/18/2013 06:44'! flash | originalColor | originalColor := self color. [ self color: (originalColor ifNil: [ Color black ] ifNotNil: [ (originalColor alpha: 1) negated ]) ] ensure: [ self world ifNotNil: [ : w | w displayWorldSafely. (Delay forMilliseconds: 100) wait ]. self color: originalColor ]! !

9 26

← Newer
1
2
3
4
5
6
7
...
16
Older →

Jump to page: