Squeak-dev August 2016

squeak-dev@lists.squeakfoundation.org

38 participants
609 discussions

Trunk update broken on 64-bit
by Levente Uzonyi 01 Sep '16

01 Sep '16

Hi All, The new Etoys, particularly ChessBoard >> #initializeHashKeys, relies on 31-bit SmallIntegers by the use of SmallInteger >> #maxVal. Since it's already past the last update map, I don't know how it could be fixed to avoid manual intervention. Levente

2 1

The Trunk: EToys-nice.214.mcz
by commits＠source.squeak.org 01 Sep '16

01 Sep '16

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.214.mcz ==================== Summary ==================== Name: EToys-nice.214 Author: nice Time: 1 September 2016, 12:35:17.034795 am UUID: 2cee41a0-cb85-4b73-b2cd-828c3dbe0e32 Ancestors: EToys-tfel.213 Avoid using SmallInteger maxVal for 64bits compatibility. Indeed, the maxVal would not fit in a WordArray in 64bits VM =============== Diff against EToys-tfel.213 =============== Item was changed: ----- Method: ChessBoard class>>initializeHashKeys (in category 'class initialization') ----- initializeHashKeys "ChessGame initialize" | random | HashKeys := Array new: 12. 1 to: HashKeys size do:[:i| HashKeys at: i put: (WordArray new: 64)]. HashLocks := Array new: 12. 1 to: HashLocks size do:[:i| HashLocks at: i put: (WordArray new: 64)]. random := Random seed: 23648646. 1 to: 12 do:[:i| 1 to: 64 do:[:j| + (HashKeys at: i) at: j put: (random nextInt: 16r3FFFFFFF "SmallInteger maxVal on 32bits VM")- 1. + (HashLocks at: i) at: j put: (random nextInt: 16r3FFFFFFF "SmallInteger maxVal on 32bits VM") - 1. - (HashKeys at: i) at: j put: (random nextInt: SmallInteger maxVal) - 1. - (HashLocks at: i) at: j put: (random nextInt: SmallInteger maxVal) - 1. ]. ]. !

1 0

Daily Commit Log
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-August/068789.html Name: EToys-tfel.218 Ancestors: EToys-tfel.217 stop the players sound from playing if we have it. (adapted from the WS-Sound package) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068790.html Name: Morphic-tfel.1304 Ancestors: Morphic-tfel.1303 Do not call stopSound on the Players, instead leave the decision to stop sounds when they stop running up to the players. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068791.html Name: EToys-tfel.170 Ancestors: EToys-tfel.169 fix Etoys error reporting and script precedence transformation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068792.html Name: EToys-tfel.168 Ancestors: EToys-tfel.167 - fix initialization of BlockNodes. For closure analysis, they *must* have temporaries set - fix height of ScriptMorphs in compound tiles so they get the events for showing drop targets - fix a potential ZeroDivisionError in tracking of drop zones in script editor morphs - adapt script encoder lookup to return the value of the assocBlock, so it is consistent with the superclass implementation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068793.html Name: EToys-tfel.166 Ancestors: EToys-tfel.165 adapt a few more overrides from Pango and the scratch sound editor ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068794.html Name: EToys-tfel.163 Ancestors: EToys-tfel.162 a few updates to make Squeakland Etoys cleanly load and unload ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068795.html Name: EToys-tfel.167 Ancestors: EToys-tfel.166 fix DNU ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068796.html Name: EToys-tfel.162 Ancestors: EToys-tfel.161 - fix FileList2 opening (no more login buttons for now) - fix ScriptEncoder to generate correct method headers ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068801.html Name: Collections-kfr.9 Ancestors: Collections-kfr.8 Fix long standing bug with printing small numbers ie 1.2245678e-16 Copied method from Squeak 4.4 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068802.html Name: EToys-tfel.208 Ancestors: EToys-tfel.207 HACK: workaround a short-circuit in type tile lists presenting their menu ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068803.html Name: EToys-tfel.207 Ancestors: EToys-tfel.206 - avoid getting our classes removed by the squeak release build process - whitespace cleanup - preferences cleanup - make the sugar nav bar be big down to sizes of 1024x768 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068804.html Name: EToys-tfel.206 Ancestors: EToys-tfel.205 enable drawing on top of the kedama morph, including removing turtles ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068805.html Name: EToys-tfel.205 Ancestors: EToys-tfel.204 - prepare KedamaMorphs for painting directly - language translation finding moved to trunk - fix syntax errors in setHueShift and setSaturationShift - fix opening Etoys projects in Gallery - call super in UserText ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068806.html Name: EToys-tfel.213 Ancestors: EToys-tfel.212 convert underscore assignments to := ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068807.html Name: EToys-tfel.209 Ancestors: EToys-tfel.208 - allow dropping function tiles in the test area - just for Jens, add a 'random color' tile to the golden box ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068808.html Name: EToys-tfel.204 Ancestors: EToys-tfel.203 remove many classes that I think aren't needed anymore ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068809.html Name: EToys-tfel.203 Ancestors: EToys-tfel.202 delete unused InputSensor ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068810.html Name: EToys-tfel.202 Ancestors: EToys-tfel.201 refactor and consolidate loading and opening sexp projects ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068811.html Name: EToys-tfel.199 Ancestors: EToys-tfel.198 - add a fix to parse sexp Characters that are printed as strings - re-add openFromImagePath:, but this time using loadFromImagePath: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068812.html Name: EToys-tfel.201 Ancestors: EToys-tfel.200 fix a release issue ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068813.html Name: EToys-tfel.200 Ancestors: EToys-tfel.199 quit without save in etoy friendly mode ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068814.html Name: EToys-tfel.198 Ancestors: EToys-tfel.197 another fix ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068815.html Name: EToys-tfel.197 Ancestors: EToys-tfel.196 revert to full project saving and loading, but do allow the sexp loading, too ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068816.html Name: EToys-tfel.196 Ancestors: EToys-tfel.195 - move most of the project loading and saving refactorings into the System package - change SISS storing of projects to store the sexp string directly, rather than as binary ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068817.html Name: EToys-tfel.195 Ancestors: EToys-tfel.194 do not depend on Rome/Pango ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068818.html Name: EToys-tfel.194 Ancestors: EToys-tfel.193 move all siss stuff into siss package ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068819.html Name: EToys-tfel.193 Ancestors: EToys-tfel.192 - get rid of dead code paths (in part with undeclared identifiers) - fix setting the requestor in custom parsing code paths - avoid shadowing instance variables in extension methods on FillInTheBlankMorph - move ParseNodeBuilder from Meta-Examples, because it is specific to Etoys' use of SISS - fix primReplaceBytesFrom:... in PredicatedArray when KedamaPlugin2 is not available - do not depend on VideoForSqueak ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068820.html Name: EToys-tfel.192 Ancestors: EToys-tfel.191 move some code into Morphic-Extras ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068821.html Name: EToys-tfel.191 Ancestors: EToys-tfel.190 fix ambigious parsing @- vs @ - ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068822.html Name: EToys-tfel.189 Ancestors: EToys-tfel.188 remove useless overrides ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068823.html Name: EToys-tfel.190 Ancestors: EToys-tfel.189 move Meta method to Meta package ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068824.html Name: EToys-tfel.176 Ancestors: EToys-tfel.175 update order of setting the images, to work with latest trunk changes ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068825.html Name: EToys-tfel.175 Ancestors: EToys-pre.141, EToys-tfel.174 merge with trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068826.html Name: EToys-tfel.174 Ancestors: EToys-tfel.173 fixes to make the help book loading work ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068827.html Name: EToys-tfel.172 Ancestors: EToys-tfel.171 - update layouting and coloring for viewer flaps - define a missing instance variable in compound tlle morphs ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068828.html Name: EToys-tfel.171 Ancestors: EToys-tfel.170 updates for local variables in etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068829.html Name: EToys-tfel.173 Ancestors: EToys-tfel.172 fix graphicfilters initialization ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068830.html Name: EToys-tfel.184 Ancestors: EToys-tfel.183 - allow putting KedamaFloatArrays and WordArrays into random tiles - fix adding instance variables of different types in Kedama - save all script sources in the compiled method trailer, to avoid having to decompile again ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068831.html Name: EToys-tfel.181 Ancestors: EToys-tfel.180 remove obsolete methods from Presenter, move the relevant changes into EtoysPresenter ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068832.html Name: EToys-tfel.180 Ancestors: EToys-tfel.179 small cleanups and bug fixes ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068833.html Name: EToys-tfel.179 Ancestors: EToys-tfel.178 reorganize the sugarnavbar and add convenience buttons to save and load SISS etoys when we're on Sugar (where image segments do not work) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068834.html Name: EToys-tfel.178 Ancestors: EToys-tfel.177 - fix siss loading issue with Characters - move etoys-specific presenter methods into EtoysPresenter - move the supplies flap off screen in sugar, so it doesn't accidentally get stuck on the mouse ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068835.html Name: EToys-tfel.177 Ancestors: EToys-tfel.176 update to work with changed ThreeStateButton in trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068836.html Name: EToys-tfel.161 Ancestors: EToys-tfel.160 merge kedama into etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068837.html Name: EToys-tfel.160 Ancestors: EToys-tfel.159 re-add a method that was moved from connectors ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068838.html Name: EToys-tfel.210 Ancestors: EToys-tfel.209, EToys-mt.142 merge Squeakland Etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068839.html Name: Kernel-kfr.6 Ancestors: Kernel-bf.5 A slightly modified version of Ricardo Moran's CalendarMorph circulated in late 2011. Provides a scriptable calendar object, with a variety of useful items available in the 'calendar' category of its viewer. http://tracker.squeakland.org/browse/SQ-1008 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068840.html Name: EToys-tfel.188 Ancestors: EToys-tfel.187 - remove many methods that had undeclared identifiers that were in dead code paths - move instance variables on external classes that are only used in etoys into extension properties ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068841.html Name: Kernel-bf.7 Ancestors: Kernel-kfr.6 Change Set: monthAndDayOfWeek-sw Date: 22 June 2012 Makes the month names January...December and weekday names Monday..Sunday appear for translation in the translation tools. (modified by bf: do not add a method but mark the original definitions for translation) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068842.html Name: EToys-tfel.187 Ancestors: EToys-tfel.186 remove and refactor many methods with undeclared references ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068843.html Name: EToys-tfel.186 Ancestors: EToys-tfel.185 fix Player>>random: to use the ordinary numeric random rather than some Kedama thing ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068844.html Name: EToys-tfel.185 Ancestors: EToys-tfel.184 make KedamaWorld larger by default ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068845.html Name: EToys-tfel.183 Ancestors: EToys-tfel.182 - fix attribute definitions for etoys players, it was updated in Squeakland but got lost during the merge. This fixes Kedama turtle variables - Kedama re-writing is based on the limited set of parse nodes in Squeak 3.8. Rather than redo it all, define some aliases of newer nodes. For now, this affects SpecialSelectorNodes, which map back to SelectorNodes for the Kedama rewriter - remove the stop button again in the sugar navigator. When running outside of the Sugar environment on the XO, it only mapped to #quitSqueak anyway - change Sugar's quitSqueak to ask for save confirmation just like the world menu would ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068846.html Name: EToys-tfel.182 Ancestors: EToys-tfel.181 remove obsolete Cursor primitive methods ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068847.html Name: EToys-tfel.159 Ancestors: EToys-tfel.158 pull broom morphs into etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068848.html Name: GetText-tfel.39 Ancestors: GetText-ul.38, GetText-bf.16 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068849.html Name: Kernel-kfr.8 Ancestors: Kernel-bf.7 Fix long standing bug with printing small numbers ie 1.2245678e-16 Copied methods from Squeak 4.4 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068850.html Name: EToys-tfel.158 Ancestors: EToys-mt.140, Etoys-kfr.157 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068851.html Name: MorphicExtras-tfel.191 Ancestors: MorphicExtras-mt.183, MorphicExtras-tfel.190 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068852.html Name: MorphicExtras-tfel.190 Ancestors: MorphicExtras-tfel.189 remove direct references to Etoys and import code from Squeakland ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068853.html Name: MorphicExtras-tfel.189 Ancestors: MorphicExtras-tfel.188 remove references to undefined variables that came in from Squeakland etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068854.html Name: MorphicExtras-tfel.188 Ancestors: MorphicExtras-tfel.187 remove references to Etoys-only fields and methods ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068855.html Name: MorphicExtras-tfel.187 Ancestors: MorphicExtras-tfel.186 add a flag to suspend the replaying hand ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068856.html Name: MorphicExtras-tfel.186 Ancestors: MorphicExtras-tfel.185 Do not show a blank cursor when cancelling a sketch, because hitting the confirmation buttons becomes pretty difficult in that case. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068857.html Name: MorphicExtras-tfel.185 Ancestors: MorphicExtras-pre.180, MorphicExtras-tfel.184 merge with trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068858.html Name: MorphicExtras-tfel.184 Ancestors: MorphicExtras-tfel.183 translation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068859.html Name: MorphicExtras-tfel.183 Ancestors: MorphicExtras-tfel.182 - if etoys is loaded and the sugar bar is enabled, defer to its sepcial methods to build flaps. - use a table layout in the flaps ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068860.html Name: MorphicExtras-tfel.182 Ancestors: MorphicExtras-tfel.181 use new sugar navigator preference if etoys is loaded ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068861.html Name: MorphicExtras-tfel.180 Ancestors: MorphicExtras-tfel.179 don't try to add empty morphs ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068862.html Name: MorphicExtras-tfel.181 Ancestors: MorphicExtras-tfel.180 additional merges from Squeakland Etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068863.html Name: MorphicExtras-tfel.179 Ancestors: MorphicExtras-tfel.178, MorphicExtras-kfr.80 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068864.html Name: System-tfel.902 Ancestors: System-mt.901, System-tfel.882 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068865.html Name: System-tfel.880 Ancestors: System-tfel.879 Import Etoys and SISS independent bits for storing and loading images also from sexps from the Squeakland release. Mostly this just refactors the Project loading code into multiple different methods, but it also puts the junctions in there to save and load SISS SExpressions rather than image segments, if SISS and Etoys are loaded ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068866.html Name: System-tfel.882 Ancestors: System-tfel.880, System-mt.881 - merge with trunk - update DiskProxy>>enter:revert:saveForRevert: with Squeakland code ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068867.html Name: System-tfel.879 Ancestors: System-tfel.878 remove direct reference to Etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068868.html Name: System-tfel.878 Ancestors: System-tfel.877 add Object>>translatedNoop as catch-all for localization ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068869.html Name: System-tfel.877 Ancestors: System-cmm.876, System-tfel.873 merge with trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068870.html Name: System-tfel.873 Ancestors: System-tfel.872 Fix an infinite loop when the locale is changed during startup ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068871.html Name: System-tfel.872 Ancestors: System-tfel.871 don't error when there are no translations available ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068872.html Name: System-tfel.871 Ancestors: System-mt.870, System-tfel.858 merge with trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068873.html Name: EToys-tfel.221 Ancestors: EToys-tfel.220 fix parsing of parameters ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068874.html Name: EToys-tfel.219 Ancestors: EToys-tfel.218 pasteUpMorph is usually nil at this point, ask the world ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068875.html Name: EToys-tfel.220 Ancestors: EToys-tfel.219 - make it easy to set the Kedama dimensions from etoys - register kedama particles in supplies ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068876.html Name: Morphic-tfel.1305 Ancestors: Morphic-tfel.1304 remove ugly owner hacks when we draw a new sketch and add its flex shell ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068877.html Name: MorphicExtras-tfel.195 Ancestors: MorphicExtras-tfel.194 Show the FrameRateMorph in the supplies tab ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068878.html Name: Nebraska-tfel.47 Ancestors: Nebraska-tfel.46 workaround. at least the PartsBin should work ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068879.html Name: Morphic-tfel.1305 Ancestors: Morphic-tfel.1304 remove ugly owner hacks when we draw a new sketch and add its flex shell ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068880.html Name: EToys-jl.222 Ancestors: EToys-tfel.221 tfel fixed reduceOnStack ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068881.html Name: EToys-tfel.224 Ancestors: EToys-jl.223 evaluate conditions in Kedama parallel for every turtle (so that e.g. randomness is parallel) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068882.html Name: System-tfel.858 Ancestors: System-tfel.857 - accessors for GetText translations so we can later get at the untranslated phrases - fix store project interaction - fix adding new font sizes for TTCFonts when the first derivative is a TTCFontSet ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068883.html Name: System-tfel.857 Ancestors: System-tfel.856 fasterKeys is deprecated ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068884.html Name: System-tfel.856 Ancestors: System-mt.855, System-kfr.65 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068885.html Name: Files-tfel.162 Ancestors: Files-cmm.161, Files-Richo.2 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068886.html Name: Network-tfel.183 Ancestors: Network-ul.182, Network-tfel.181 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068887.html Name: Network-tfel.181 Ancestors: Network-ul.180, Network-bf.3 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068888.html Name: TrueType-tfel.45 Ancestors: TrueType-mt.44, TrueType-tfel.44 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068889.html Name: TrueType-tfel.44 Ancestors: TrueType-mt.43, TrueType-bf.7 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068890.html Name: Graphics-tfel.361 Ancestors: Graphics-mt.360, Graphics-tfel.358 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068891.html Name: Graphics-tfel.358 Ancestors: Graphics-tfel.357, Graphics-mt.357 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068892.html Name: EToys-tfel.225 Ancestors: EToys-tfel.224 if any subnode of a message node sends a sequential selector, we need to make the node itself sequential, too ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068893.html Name: EToys-tfel.226 Ancestors: EToys-tfel.225 make the highlight morph work for single stepping through etoys scripts ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068894.html Name: EToys-tfel.227 Ancestors: EToys-tfel.226, EToys-jl.224 merge ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068895.html Name: Sound-tfel.58 Ancestors: Sound-mt.57, Sound-tfel.57 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068896.html Name: Sound-tfel.57 Ancestors: Sound-mt.56, Sound-kfr.27 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068897.html Name: Morphic-tfel.1288 Ancestors: Morphic-mt.1287, Morphic-tfel.1250 merge trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068898.html Name: Morphic-tfel.1250 Ancestors: Morphic-tfel.1249 be more reserved in novice mode about which things to show in the yellow button menu. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068899.html Name: Morphic-tfel.1249 Ancestors: Morphic-tfel.1248 merge project export code from squeakland, guard it so we don't depend on etoys or siss ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068900.html Name: Morphic-tfel.1248 Ancestors: Morphic-tfel.1247 remove direct reference to Etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068901.html Name: EToys-tfel.228 Ancestors: EToys-tfel.227 apply fix from jl to skip drawing turtles if the semaphore is locked ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068902.html Name: EToys-tfel.228 Ancestors: EToys-tfel.227 apply fix from jl to skip drawing turtles if the semaphore is locked ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068903.html Name: Morphic-tfel.1247 Ancestors: Morphic-mt.1246, Morphic-tfel.1244 merge with trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068904.html Name: Morphic-tfel.1244 Ancestors: Morphic-tfel.1243 fix references to undefined symbols by removing dead code paths ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068905.html Name: Morphic-tfel.1243 Ancestors: Morphic-tfel.1242 add a flag to allow spawning the color picker morph without a color chart (used in etoys) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068906.html Name: Morphic-tfel.1242 Ancestors: Morphic-tfel.1241 fix hotspot for color picker cursor ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068907.html Name: Morphic-tfel.1241 Ancestors: Morphic-mt.1240, Morphic-tfel.1222 merge with trunk ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068908.html Name: Morphic-tfel.1222 Ancestors: Morphic-tfel.1221 remove references to usePango instvar ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068909.html Name: Morphic-tfel.1221 Ancestors: Morphic-tfel.1220 check new sugar preference if etoys is loaded ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068910.html Name: Morphic-tfel.1220 Ancestors: Morphic-tfel.1219 update referencePool and TextMorph>>fillStyle to work with Squeakland etoys ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068911.html Name: Morphic-tfel.1219 Ancestors: Morphic-tfel.1218 fix SketchMorph>>extent: to really avoid extens where x OR y are zero ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068912.html Name: Morphic-tfel.1218 Ancestors: Morphic-mt.1217, Morphic-bf.107 merge from Squeakland Etoys image ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-August/068913.html Name: Morphic-jl.1290 Ancestors: Morphic-mt.1289, Morphic-tfel.1288 Fix removing of flex shell for morphs that do not have a world. =============================================

1 0

Re: [squeak-dev] The Trunk: System-tfel.872.mcz
by Chris Muller 31 Aug '16

31 Aug '16

It looks like you're converting some := assignements to underscore assignments... On Wed, Aug 31, 2016 at 4:34 AM, <commits(a)source.squeak.org> wrote: > Tim Felgentreff uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-tfel.872.mcz > > ==================== Summary ==================== > > Name: System-tfel.872 > Author: tfel > Time: 6 August 2016, 1:52:05.699519 pm > UUID: 488c4f3a-c6f2-4f08-92ce-136da38c76ac > Ancestors: System-tfel.871 > > don't error when there are no translations available > > =============== Diff against System-mt.870 =============== > > Item was changed: > ----- Method: CodeLoader>>installProject (in category 'installing') ----- > installProject > "Assume that we're loading a single file and it's a project" > | aStream | > + aStream _ sourceFiles first contentStream. > - aStream := sourceFiles first contentStream. > aStream ifNil:[^self error:'Project was not loaded']. > + ProjectLoading openOn: aStream! > - ProjectLoading > - openName: nil "<--do we want to cache this locally? Need a name if so" > - stream: aStream > - fromDirectory: nil > - withProjectView: nil. > - ! > > Item was changed: > ----- Method: ExternalDropHandler class>>defaultProjectHandler (in category 'private') ----- > defaultProjectHandler > + ^ ExternalDropHandler > - ^ExternalDropHandler > type: nil > extension: 'pr' > + action: [:stream | ProjectLoading openOn: stream]! > - action: [:stream | > - ProjectLoading > - openName: nil > - stream: stream > - fromDirectory: nil > - withProjectView: nil] > - ! > > Item was changed: > ----- Method: ExternalSettings class>>assuredPreferenceDirectory (in category 'accessing') ----- > assuredPreferenceDirectory > "Answer the preference directory, creating it if necessary" > > + | prefDir topDir | > - | prefDir | > prefDir := self preferenceDirectory. > prefDir > ifNil: > + [topDir := Preferences startInUntrustedDirectory > + ifTrue: [FileDirectory on: SecurityManager default secureUserDirectory] > + ifFalse: [FileDirectory default]. > + prefDir := topDir directoryNamed: self preferenceDirectoryName. > - [prefDir := FileDirectory default directoryNamed: self preferenceDirectoryName. > prefDir assureExistence]. > ^ prefDir! > > Item was added: > + ----- Method: GetTextTranslator>>moFiles (in category 'private') ----- > + moFiles > + > + ^ moFiles! > > Item was changed: > ----- Method: ImageSegment>>declareAndPossiblyRename: (in category 'fileIn/Out') ----- > declareAndPossiblyRename: classThatIsARoot > | existing catInstaller | > "The class just arrived in this segment. How fit it into the Smalltalk dictionary? If it had an association, that was installed with associationDeclareAt:." > > + catInstaller _ [ > - catInstaller := [ > classThatIsARoot superclass name == #Player > ifTrue: [classThatIsARoot category: Object categoryForUniclasses] > ifFalse: [(classThatIsARoot superclass name beginsWith: 'WonderLandActor') > ifTrue: [classThatIsARoot category: 'Balloon3D-UserObjects'] > + ifFalse: [classThatIsARoot category: Object categoryForUniclasses]]. > - ifFalse: [classThatIsARoot category: 'Morphic-Imported']]. > ]. > classThatIsARoot superclass addSubclass: classThatIsARoot. > (Smalltalk includesKey: classThatIsARoot name) ifFalse: [ > "Class entry in Smalltalk not referred to in Segment, install anyway." > catInstaller value. > ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. > + existing _ Smalltalk at: classThatIsARoot name. > - existing := Smalltalk at: classThatIsARoot name. > existing xxxClass == ImageSegmentRootStub ifTrue: [ > "We are that segment!! Must ask it carefully!!" > catInstaller value. > ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. > existing == false | (existing == nil) ifTrue: [ > "association is in outPointers, just installed" > catInstaller value. > ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. > "Conflict with existing global or copy of the class" > (existing isKindOf: Class) ifTrue: [ > classThatIsARoot isSystemDefined not ifTrue: [ > "UniClass. give it a new name" > classThatIsARoot setName: classThatIsARoot baseUniclass chooseUniqueClassName. > catInstaller value. "must be after new name" > ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. > "Take the incoming one" > self inform: 'Using newly arrived version of ', classThatIsARoot name. > classThatIsARoot superclass removeSubclass: classThatIsARoot. "just in case" > (Smalltalk at: classThatIsARoot name) becomeForward: classThatIsARoot. > catInstaller value. > ^ classThatIsARoot superclass addSubclass: classThatIsARoot]. > self error: 'Name already in use by a non-class: ', classThatIsARoot name. > ! > > Item was changed: > ----- Method: ImageSegment>>smartFillRoots: (in category 'read/write segment') ----- > smartFillRoots: dummy > + | refs known ours ww blockers | > - | refs ours blockers known | > "Put all traced objects into my arrayOfRoots. Remove some > that want to be in outPointers. Return blockers, an > IdentityDictionary of objects to replace in outPointers." > > + blockers _ dummy blockers. > + known _ (refs _ dummy references) size. > - blockers := dummy blockers. > - known := (refs := dummy references) size. > refs keys do: [:obj | "copy keys to be OK with removing items" > + (obj isSymbol) ifTrue: [refs removeKey: obj. known _ known-1]. > - (obj isSymbol) ifTrue: [refs removeKey: obj. > - known := known-1]. > (obj class == PasteUpMorph) ifTrue: [ > obj isWorldMorph & (obj owner == nil) ifTrue: [ > + (dummy project ~~ nil and: [obj == dummy project world]) ifFalse: [ > + refs removeKey: obj. known _ known-1. > - obj == dummy project world ifFalse: [ > - refs removeKey: obj. known := known-1. > blockers at: obj put: > + (StringMorph contents: 'The worldMorph of a different world')]]]. > - (StringMorph > - contents: 'The worldMorph of a different world')]]]. > "Make a ProjectViewMorph here" > "obj class == Project ifTrue: [Transcript show: obj; cr]." > (blockers includesKey: obj) ifTrue: [ > + refs removeKey: obj ifAbsent: [known _ known+1]. known _ known-1]. > - refs removeKey: obj ifAbsent: [known := > - known+1]. known := known-1]. > ]. > + ours _ dummy project ifNotNil: [dummy project world] ifNil: [ActiveWorld]. > + refs keysDo: [:obj | > - ours := dummy project world. > - refs keysDo: [:obj | | ww | > obj isMorph ifTrue: [ > + ww _ obj world. > - ww := obj world. > (ww == ours) | (ww == nil) ifFalse: [ > + refs removeKey: obj. known _ known-1. > + blockers at: obj put: (StringMorph contents: > + obj printString, ' from another world')]]]. > - refs removeKey: obj. known := known-1. > - blockers at: obj put: > - (StringMorph contents: > - obj > - printString, ' from another world')]]]. > "keep original roots on the front of the list" > (dummy rootObject) do: [:rr | refs removeKey: rr ifAbsent: []]. > + self classOrganizersBeRoots: dummy. > + ^ dummy rootObject, refs fasterKeys asArray.! > - ^ dummy rootObject, refs keys asArray. > - > - ! > > Item was changed: > ----- Method: MOFile>>searchByDictionary: (in category 'public') ----- > searchByDictionary: aString > | index | > + index := translations at: aString ifAbsentPut: [nil]. > + index ifNil: [^ nil]. > + ^self translatedString: index! > - index := translations at: aString ifAbsent: [^nil]. > - ^self translatedString: index > - > - ! > > Item was added: > + ----- Method: MOFile>>translations (in category 'private') ----- > + translations > + > + ^ translations! > > Item was changed: > ----- Method: MczInstaller class>>serviceLoadVersion (in category 'services') ----- > serviceLoadVersion > ^ SimpleServiceEntry > provider: self > + label: 'load' translatedNoop > - label: 'load' > selector: #loadVersionFile: > + description: 'load a package version' translatedNoop! > - description: 'load a package version'! > > Item was changed: > ----- Method: NaturalLanguageTranslator class>>translateWithoutLoading:toLocaleID:inDomain: (in category 'translation') ----- > translateWithoutLoading: aString toLocaleID: localeID inDomain: aDomainName > "try to translate with small footprint: > if GetTextTranslator hasn't loaded MO, try to use InternalTranslator. > if InternalTranslator isn't available, then actually load MO and use it" > | translator | > translator := self availableForLocaleID: localeID. > + translator class = NaturalLanguageTranslator ifTrue: [^ aString]. > (translator isDomainLoaded: aDomainName) ifFalse: [ > (InternalTranslator availableLanguageLocaleIDs includes: localeID) > ifTrue: [translator := InternalTranslator localeID: localeID]. > ]. > ^translator translate: aString inDomain: aDomainName! > > Item was changed: > ----- Method: Preference>>helpString (in category 'menu') ----- > helpString > "Answer the help string provided for the receiver" > > + ^ helpString ifNil: ['no help available' translatedNoop]! > - ^ helpString ifNil: ['no help available']! > > Item was removed: > - ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') ----- > - alwaysShowConnectionVocabulary > - ^ self > - valueOfFlag: #alwaysShowConnectionVocabulary > - ifAbsent: [false]! > > Item was changed: > + ----- Method: Preferences class>>chooseEToysTitleFont (in category 'fonts') ----- > - ----- Method: Preferences class>>chooseEToysTitleFont (in category 'prefs - fonts') ----- > chooseEToysTitleFont > + "Present a menu with the possible fonts for etoy titles" > + > - "present a menu with the possible fonts for the eToys" > self > + chooseFontWithPrompt: 'Choose the etoy title font' translated > - chooseFontWithPrompt: 'eToys Title font...' translated > andSendTo: self > withSelector: #setEToysTitleFontTo: > + highlight: self standardEToysTitleFont! > - highlightSelector: #standardEToysTitleFont! > > Item was removed: > - ----- Method: Preferences class>>haloTheme (in category 'prefs - halos') ----- > - haloTheme > - ^ self > - valueOfFlag: #haloTheme > - ifAbsent: [ #iconicHaloSpecifications ]! > > Item was changed: > + ----- Method: Preferences class>>iconicHaloSpecifications (in category 'halos') ----- > - ----- Method: Preferences class>>iconicHaloSpecifications (in category 'prefs - halos') ----- > iconicHaloSpecifications > "Answer an array that characterizes the locations, colors, icons, and selectors of the halo handles that may be used in the iconic halo scheme" > > "Preferences resetHaloSpecifications" > > ^ #( > " selector horiz vert color info icon key > --------- ------ ----------- ------------------------------- ---------------" > (addCollapseHandle: left topCenter (tan) 'Halo-Collapse') > (addPoohHandle: right center (white) 'Halo-Pooh') > (addDebugHandle: right topCenter (blue veryMuchLighter) 'Halo-Debug') > (addDismissHandle: left top (red muchLighter) 'Halo-Dismiss') > (addRotateHandle: left bottom (blue) 'Halo-Rot') > + (addMenuHandle: leftCenter top (white) 'Halo-Menu') > - (addMenuHandle: leftCenter top (red) 'Halo-Menu') > (addTileHandle: left bottomCenter (lightBrown) 'Halo-Tile') > (addViewHandle: left center (cyan) 'Halo-View') > (addGrabHandle: center top (black) 'Halo-Grab') > (addDragHandle: rightCenter top (brown) 'Halo-Drag') > (addDupHandle: right top (green) 'Halo-Dup') > (addMakeSiblingHandle: right top (green muchDarker) 'Halo-Dup') > (addHelpHandle: center bottom (lightBlue) 'Halo-Help') > (addGrowHandle: right bottom (yellow) 'Halo-Scale') > (addScaleHandle: right bottom (lightOrange) 'Halo-Scale') > (addScriptHandle: rightCenter bottom (green muchLighter) 'Halo-Script') > (addPaintBgdHandle: right center (lightGray) 'Halo-Paint') > (addViewingHandle: leftCenter bottom (lightGreen lighter) 'Halo-View') > (addRepaintHandle: right center (lightGray) 'Halo-Paint') > (addFontSizeHandle: leftCenter bottom (lightGreen) 'Halo-FontSize') > (addFontStyleHandle: center bottom (lightRed) 'Halo-FontStyle') > (addFontEmphHandle: rightCenter bottom (lightBrown darker) 'Halo-FontEmph') > (addRecolorHandle: right bottomCenter (magenta darker) 'Halo-Recolor') > (addChooseGraphicHandle: right bottomCenter (green muchLighter) 'Halo-ChooseGraphic') > ) ! > > Item was changed: > + ----- Method: Preferences class>>menuColorString (in category 'misc') ----- > - ----- Method: Preferences class>>menuColorString (in category 'support - misc') ----- > menuColorString > ^ ((self valueOfFlag: #menuColorFromWorld) > + ifTrue: ['stop menu-color-from-world' translated] > + ifFalse: ['start menu-color-from-world' translated]) ! > - ifTrue: ['stop menu-color-from-world'] > - ifFalse: ['start menu-color-from-world']) translated! > > Item was changed: > + ----- Method: Preferences class>>restorePersonalPreferences (in category 'personalization') ----- > - ----- Method: Preferences class>>restorePersonalPreferences (in category 'initialization - save/load') ----- > restorePersonalPreferences > "Restore all the user's saved personal preference settings" > > | savedPrefs | > + savedPrefs _ self parameterAt: #PersonalDictionaryOfPreferences ifAbsent: [^ self inform: 'There are no personal preferences saved in this image yet' translated]. > - savedPrefs := self parameterAt: #PersonalDictionaryOfPreferences ifAbsent: [^ self inform: 'There are no personal preferences saved in this image yet']. > > savedPrefs associationsDo: > + [:assoc | (self preferenceAt: assoc key ifAbsent: [nil]) ifNotNilDo: > - [:assoc | (self preferenceAt: assoc key ifAbsent: [nil]) ifNotNil: > [:pref | pref preferenceValue: assoc value preferenceValue]]! > > Item was changed: > + ----- Method: Preferences class>>restorePreferencesFromDisk (in category 'personalization') ----- > - ----- Method: Preferences class>>restorePreferencesFromDisk (in category 'initialization - save/load') ----- > restorePreferencesFromDisk > + | result | > + result := (FileList2 modalFileSelectorForSuffixes: #('prefs')) . > + result ifNil: [^ self]. > + self restorePreferencesFromDisk: result fullName > + > - (FileDirectory default fileExists: 'my.prefs') > - ifTrue: [ Cursor wait showWhile: [ > - [ self loadPreferencesFrom: 'my.prefs' ] on: Error do: [ :ex | self inform: 'there was an error restoring the preferences' ] > - ] ] > - ifFalse: [ self inform: 'you haven''t saved your preferences yet!!' ]. > ! > > Item was removed: > - ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') ----- > - showAdvancedNavigatorButtons > - ^ self > - valueOfFlag: #showAdvancedNavigatorButtons > - ifAbsent: [ true ]! > > Item was changed: > + ----- Method: Preferences class>>storePreferencesToDisk (in category 'personalization') ----- > - ----- Method: Preferences class>>storePreferencesToDisk (in category 'initialization - save/load') ----- > storePreferencesToDisk > + | newName | > + newName := UIManager default request: 'Please confirm name for save...' initialAnswer: 'myPreferences'. > + newName isEmpty > + ifTrue: [^ self]. > + Cursor wait > + showWhile: [[self storePreferencesIn: newName , '.prefs'] > + on: Error > + do: [:ex | self inform: 'there was an error storing your preferences to disk. you probably already have stored your preferences' translated]]! > - Cursor wait showWhile: [ > - [ self storePreferencesIn: 'my.prefs' ] on: Error do: [ :ex | self inform: 'there was an error storing your preferences to disk' ]]! > > Item was removed: > - ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') ----- > - useSmartLabels > - ^ self > - valueOfFlag: #useSmartLabels > - ifAbsent: [false]! > > Item was changed: > ----- Method: Project class>>mostRecent:onServer: (in category 'squeaklet on server') ----- > mostRecent: projName onServer: aServerDirectory > | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | > "Find the exact fileName of the most recent version of project with the stem name of projName. Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. > File names may or may not be HTTP escaped, %20 on the server." > > self flag: #bob. "do we want to handle unversioned projects as well?" > + "I think we do now - Yoshiki." > > + nothingFound _ {nil. -1}. > - nothingFound := {nil. -1}. > aServerDirectory ifNil: [^nothingFound]. > "23 sept 2000 - some old projects have periods in name so be more careful" > + unEscName _ projName unescapePercents. > + triple _ Project parseProjectFileName: unEscName. > + stem _ triple first. > + rawList _ aServerDirectory fileNames. > - unEscName := projName unescapePercents. > - triple := Project parseProjectFileName: unEscName. > - stem := triple first. > - rawList := aServerDirectory fileNames. > > + rawList isString ifTrue: [self inform: 'server is unavailable' translated. ^nothingFound]. > + list _ rawList collect: [:nnn | nnn unescapePercents]. > + max _ -1. goodName _ nil. > - rawList isString ifTrue: [self inform: 'server is unavailable'. ^nothingFound]. > - list := rawList collect: [:nnn | nnn unescapePercents]. > - max := -1. goodName := nil. > list withIndexDo: [:aName :ind | > + ((aName beginsWith: stem)) ifTrue: [ > + ((aName endsWith: triple last) or: [triple last = '' and: [aName endsWith: '.pr']]) ifTrue: [ > + num _ (Project parseProjectFileName: aName) second. > + num > max ifTrue: [max _ num. goodName _ (rawList at: ind)]]]]. > - (aName beginsWith: stem) ifTrue: [ > - num := (Project parseProjectFileName: aName) second. > - num > max ifTrue: [max := num. goodName := (rawList at: ind)]]]. > > max = -1 ifFalse: [^ Array with: goodName with: max]. > > "try with underbar for spaces on server" > (stem includes: $ ) ifTrue: [ > + stem1 _ stem copyReplaceAll: ' ' with: '_'. > - stem1 := stem copyReplaceAll: ' ' with: '_'. > list withIndexDo: [:aName :ind | > (aName beginsWith: stem1) ifTrue: [ > + num _ (Project parseProjectFileName: aName) second. > + num > max ifTrue: [max _ num. goodName _ (rawList at: ind)]]]]. > - num := (Project parseProjectFileName: aName) second. > - num > max ifTrue: [max := num. goodName := (rawList at: ind)]]]]. > max = -1 ifFalse: [^ Array with: goodName with: max]. > > "try without the marker | " > + stem1 _ stem allButLast, '.pr'. > + stem2 _ stem1 copyReplaceAll: ' ' with: '_'. "and with spaces replaced" > - stem1 := stem allButLast, '.pr'. > - stem2 := stem1 copyReplaceAll: ' ' with: '_'. "and with spaces replaced" > list withIndexDo: [:aName :ind | > (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: [ > + (triple _ aName findTokens: '.') size >= 2 ifTrue: [ > + max _ 0. goodName _ (rawList at: ind)]]]. "no other versions" > - (triple := aName findTokens: '.') size >= 2 ifTrue: [ > - max := 0. goodName := (rawList at: ind)]]]. "no other versions" > max = -1 ifFalse: [^ Array with: goodName with: max]. > > ^nothingFound "no matches" > ! > > Item was changed: > ----- Method: Project class>>squeakletDirectory (in category 'squeaklet on server') ----- > squeakletDirectory > > | squeakletDirectoryName | > + squeakletDirectoryName := SugarLauncher current > + parameterAt: 'SQUEAKLETS' > + ifAbsent: ['Squeaklets']. > - squeakletDirectoryName := 'Squeaklets'. > (FileDirectory default directoryExists: squeakletDirectoryName) ifFalse: [ > FileDirectory default createDirectory: squeakletDirectoryName > ]. > ^FileDirectory default directoryNamed: squeakletDirectoryName! > > Item was changed: > ----- Method: Project class>>sweep: (in category 'squeaklet on server') ----- > sweep: aServerDirectory > | repository list parts ind entry projectName versions | > "On the server, move all but the three most recent versions of each Squeaklet to a folder called 'older'" > "Project sweep: ((ServerDirectory serverNamed: 'DaniOnJumbo') clone > directory: '/vol0/people/dani/Squeaklets/2.7')" > > "Ensure the 'older' directory" > (aServerDirectory includesKey: 'older') > ifFalse: [aServerDirectory createDirectory: 'older']. > + repository _ aServerDirectory clone directory: aServerDirectory directory, '/older'. > - repository := aServerDirectory clone directory: aServerDirectory directory, '/older'. > > "Collect each name, and decide on versions" > + list _ aServerDirectory fileNames. > + list isString ifTrue: [^ self inform: 'server is unavailable' translated]. > + list _ list asSortedCollection asOrderedCollection. > + parts _ list collect: [:en | Project parseProjectFileName: en]. > + parts _ parts select: [:en | en third = 'pr']. > + ind _ 1. > + [entry _ list at: ind. > + projectName _ entry first asLowercase. > + versions _ OrderedCollection new. versions add: entry. > + [(ind _ ind + 1) > list size > - list := aServerDirectory fileNames. > - list isString ifTrue: [^ self inform: 'server is unavailable']. > - list := list asSortedCollection asOrderedCollection. > - parts := list collect: [:en | Project parseProjectFileName: en]. > - parts := parts select: [:en | en third = 'pr']. > - ind := 1. > - [entry := list at: ind. > - projectName := entry first asLowercase. > - versions := OrderedCollection new. versions add: entry. > - [(ind := ind + 1) > list size > ifFalse: [(parts at: ind) first asLowercase = projectName > ifTrue: [versions add: (parts at: ind). true] > ifFalse: [false]] > ifTrue: [false]] whileTrue. > aServerDirectory moveYoungest: 3 in: versions to: repository. > ind > list size] whileFalse. > ! > > Item was changed: > ----- Method: Project>>depth (in category 'active process') ----- > depth > "Return the depth of this project from the top. > topProject = 0, next = 1, etc." > "Project current depth." > > + | depth project | > + depth _ 0. > + project _ self. > - | depth topProject project | > - depth := 0. > - topProject := Project topProject. > - project := self. > > + [project class == DiskProxy ifTrue: [^ depth]. > + project isTopProject] > + whileFalse: > + [project _ project parent. > + depth _ depth + 1]. > - [project ~= topProject and:[project notNil]] > - whileTrue: > - [project := project parent. > - depth := depth + 1]. > ^ depth! > > Item was changed: > ----- Method: Project>>doWeWantToRename (in category 'menu messages') ----- > doWeWantToRename > > | want | > > self hasBadNameForStoring ifTrue: [^true]. > + (self name beginsWith: 'Unnamed' translated) ifTrue: [^true]. > + want _ world valueOfProperty: #SuperSwikiRename ifAbsent: [false]. > - (self name beginsWith: 'Unnamed') ifTrue: [^true]. > - want := world valueOfProperty: #SuperSwikiRename ifAbsent: [false]. > world removeProperty: #SuperSwikiRename. > ^want > > ! > > Item was changed: > ----- Method: Project>>htmlPagePrototype (in category 'file in/out') ----- > htmlPagePrototype > "Return the HTML page prototype" > ^'<html> > <head> > <title>Squeak Project</title> > <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> > </head> > > <body bgcolor="#FFFFFF"> > <EMBED > type="application/x-squeak-source" > ALIGN="CENTER" > WIDTH="$$WIDTH$$" > HEIGHT="$$HEIGHT$$" > src="$$PROJECT$$" > + pluginspage="http://www.squeakland.org/download/"> > - pluginspage="http://www.squeakland.org/plugin/detect/detectinstaller.html"> > > </EMBED> > > </body> > </html> > '! > > Item was changed: > ----- Method: Project>>revert (in category 'file in/out') ----- > revert > | | > "Exit this project and do not save it. Warn user unless in dangerous projectRevertNoAsk mode. Exit to the parent project. Do a revert on a clone of the segment, to allow later reverts." > > + projectParameters ifNil: [^ self inform: 'nothing to revert to' translated]. > - projectParameters ifNil: [^ self inform: 'nothing to revert to']. > parentProject enter: false revert: true saveForRevert: false. > "does not return!!" > ! > > Item was changed: > ----- Method: Project>>storeOnServer (in category 'file in/out') ----- > storeOnServer > > "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." > > world setProperty: #optimumExtentFromAuthor toValue: world extent. > + self validateProjectNameIfOK: [:details | > + self acceptProjectDetails: details. > - self validateProjectNameIfOK: [ > self isCurrentProject ifTrue: ["exit, then do the command" > ^ self > armsLengthCommand: #storeOnServerAssumingNameValid > withDescription: 'Publishing' translated > ]. > self storeOnServerWithProgressInfo. > ].! > > Item was changed: > ----- Method: Project>>storeOnServerAssumingNameValid (in category 'file in/out') ----- > storeOnServerAssumingNameValid > > "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." > - > world setProperty: #optimumExtentFromAuthor toValue: world extent. > self isCurrentProject ifTrue: ["exit, then do the command" > + Flaps globalFlapTabsIfAny do: [:each | Flaps removeFlapTab: each keepInList: true]. > ^ self > armsLengthCommand: #storeOnServerAssumingNameValid > withDescription: 'Publishing' translated > ]. > self storeOnServerWithProgressInfo. > ! > > Item was changed: > ----- Method: Project>>storeOnServerShowProgressOn:forgetURL: (in category 'file in/out') ----- > storeOnServerShowProgressOn: aMorphOrNil forgetURL: forget > > "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." > > world setProperty: #optimumExtentFromAuthor toValue: world extent. > + self validateProjectNameIfOK: [:details | > + self acceptProjectDetails: details. > - self validateProjectNameIfOK: [ > self isCurrentProject ifTrue: ["exit, then do the command" > forget > ifTrue: [self forgetExistingURL] > ifFalse: [urlList isEmptyOrNil ifTrue: [urlList := parentProject urlList copy]]. > ^self > armsLengthCommand: #storeOnServerAssumingNameValid > withDescription: 'Publishing' translated > ]. > self storeOnServerWithProgressInfoOn: aMorphOrNil. > ]. > ! > > Item was changed: > ----- Method: Project>>validateProjectNameIfOK: (in category 'menu messages') ----- > validateProjectNameIfOK: aBlock > > | details | > > details := world valueOfProperty: #ProjectDetails. > details ifNotNil: ["ensure project info matches real project name" > details at: 'projectname' put: self name. > ]. > + self doWeWantToRename ifFalse: [^ aBlock value: details]. > - self doWeWantToRename ifFalse: [^aBlock value]. > (Smalltalk at: #EToyProjectDetailsMorph) ifNotNil: [:etpdm | > etpdm > getFullInfoFor: self > + ifValid: [:d | > - ifValid: [ > World displayWorldSafely. > + aBlock value: d > - aBlock value. > ] > expandedFormat: false] > ! > > Item was changed: > ----- Method: ProjectLauncher>>loginAs: (in category 'eToy login') ----- > loginAs: userName > "Assuming that we have a valid user url; read its contents and see if the user is really there." > | actualName userList | > eToyAuthentificationServer ifNil:[ > self proceedWithLogin. > ^true]. > + userList _ eToyAuthentificationServer eToyUserList. > - userList := eToyAuthentificationServer eToyUserList. > userList ifNil:[ > self inform: > 'Sorry, I cannot find the user list. > (this may be due to a network problem) > + Please hit Cancel if you wish to use Squeak.' translated. > - Please hit Cancel if you wish to use Squeak.'. > ^false]. > "case insensitive search" > + actualName _ userList detect:[:any| any sameAs: userName] ifNone:[nil]. > - actualName := userList detect:[:any| any sameAs: userName] ifNone:[nil]. > actualName isNil ifTrue:[ > + self inform: 'Unknown user: ' translated ,userName. > - self inform: 'Unknown user: ',userName. > ^false]. > Utilities authorName: actualName. > eToyAuthentificationServer eToyUserName: actualName. > self proceedWithLogin. > ^true! > > Item was changed: > ----- Method: SARInstaller class>>serviceFileInSAR (in category 'class initialization') ----- > serviceFileInSAR > "Answer a service for opening a changelist browser on a file" > > ^ SimpleServiceEntry > provider: self > + label: 'install SAR' translatedNoop > - label: 'install SAR' > selector: #installSAR: > + description: 'install this Squeak ARchive into the image.' translatedNoop > + buttonLabel: 'install' translatedNoop! > - description: 'install this Squeak ARchive into the image.' > - buttonLabel: 'install'! > > Item was changed: > ----- Method: SystemVersion>>majorMinorVersion (in category 'accessing') ----- > majorMinorVersion > "Return the major/minor version number of the form X.Y, without any 'alpha' or 'beta' or other suffix." > - "(SystemVersion new version: 'Squeak3.7alpha') majorMinorVersion" " --> 'Squeak3.7' " > - "SystemVersion current majorMinorVersion" > > | char stream | > + ^ (version includes: $.) > + ifTrue: > + [stream := ReadStream on: version, 'x'. > + stream upTo: $.. > + char := stream next. > + [char isDigit] > + whileTrue: [char := stream next]. > + version copyFrom: 1 to: stream position - 1] > + ifFalse: > + [version] > + > + " > + (SystemVersion new version: 'Squeak3.7alpha') majorMinorVersion > + (SystemVersion new version: 'Testing') majorMinorVersion > + SystemVersion current majorMinorVersion > + " > + > - stream := ReadStream on: version, 'x'. > - stream upTo: $.. > - char := stream next. > - char ifNil: [^ version]. "eg: 'Jasmine-rc1' has no $. in it." > - [char isDigit] > - whileTrue: [char := stream next]. > - ^ version copyFrom: 1 to: stream position - 1 > ! > > Item was changed: > ----- Method: TextStyle>>addNewFontSize: (in category '*System-Fonts') ----- > addNewFontSize: pointSize > "Add a font in specified size to the array of fonts." > | f d newArray t isSet | > fontArray first emphasis ~= 0 ifTrue: [ > t := TextConstants at: self fontArray first familyName asSymbol. > t fonts first emphasis = 0 ifTrue: [ > ^ t addNewFontSize: pointSize. > ]. > ]. > > pointSize <= 0 ifTrue: [^ nil]. > fontArray do: [:s | > s pointSize = pointSize ifTrue: [^ s]. > ]. > > (isSet := fontArray first isKindOf: TTCFontSet) > ifTrue:[ > | fonts | > fonts := fontArray first fontArray collect: [ :font | > | newFont | > (font isNil) > ifTrue: [newFont := nil] > ifFalse: [ > newFont := (font ttcDescription size > 256) > ifTrue: [MultiTTCFont new initialize] > ifFalse: [TTCFont new initialize]. > newFont ttcDescription: font ttcDescription. > newFont pixelSize: pointSize * 96 // 72. > font derivativeFonts notEmpty ifTrue: [font derivativeFonts do: [ :proto | > proto ifNotNil: [ > d := proto class new initialize. > d ttcDescription: proto ttcDescription. > d pixelSize: newFont pixelSize. > newFont derivativeFont: d]]]. > ]. > newFont]. > f := TTCFontSet newFontArray: fonts] > ifFalse: [ > f := fontArray first class new initialize: fontArray first. > f pointSize: pointSize. > fontArray first derivativeFonts do: [:proto | > proto ifNotNil: [ > + d := TTCFont new initialize: proto. > - d := proto class new initialize: proto. > d pointSize: f pointSize. > + f derivativeFont: d. > - f derivativeFont: d mainFont: proto. > ]. > ]. > ]. > newArray := (fontArray copyWith: f) asArray sort: [:a :b | a pointSize <= b pointSize]. > self newFontArray: newArray. > isSet ifTrue: [ > TTCFontSet register: newArray at: newArray first familyName asSymbol. > ]. > ^ self fontOfPointSize: pointSize > ! > > Item was changed: > ----- Method: Utilities class>>floatPrecisionForDecimalPlaces: (in category 'miscellaneous') ----- > floatPrecisionForDecimalPlaces: places > "Answer the floatPrecision that corresponds to the given number of decimal places" > > ^ places caseOf: > {[0]->[1] . > + [1]-> [0.1] . > + [2]-> [0.01] . > + [3]-> [0.001] . > + [4]-> [0.0001] . > + [5]-> [0.00001] . > + [6]-> [0.000001] . > + [7]-> [0.0000001] . > + [8]-> [0.00000001] . > + [9]-> [0.000000001]. > + [10]->[0.0000000001]} > - [1]->[0.1] . > - [2]->[0.01] . > - [3]->[0.001] . > - [4]->[0.0001] . > - [5]->[0.00001] . > - [6]->[0.000001] . > - [7]->[0.0000001] . > - [8]->[0.00000001] . > - [9]->[0.000000001]} > otherwise: > [(10.0 raisedTo: places negated) asFloat] > > " > (0 to: 6) collect: [:i | Utilities floatPrecisionForDecimalPlaces: i] > (-10 to: 20) collect: [:i | Utilities floatPrecisionForDecimalPlaces: i] > "! > > Item was changed: > ----- Method: Utilities class>>registerInFlapsRegistry (in category 'class initialization') ----- > registerInFlapsRegistry > "Register the receiver in the system's flaps registry" > self environment > at: #Flaps > + ifPresent: [:cl | cl registerQuad: {#Utilities. #recentSubmissionsWindow. 'Recent' translatedNoop. 'A message browser that tracks the most recently-submitted methods' translatedNoop} > - ifPresent: [:cl | cl registerQuad: #(Utilities recentSubmissionsWindow 'Recent' 'A message browser that tracks the most recently-submitted methods') > forFlapNamed: 'Tools'.]! > >

2 1

Re: server update
by Tobias Pape 31 Aug '16

31 Aug '16

Hi On 31.08.2016, at 09:37, Marcel Taeumel <marcel.taeumel(a)hpi.de> wrote: > " I also discovered I can't apply patches live > and save the image, because that means its saved with the RFB server > running." > > That's not good. All patches should be stored in the respective repository and updating the running image, including save, must work. Otherwise some strangely patched monster will grow up and it will be very hard to setup SqueakSource freshly again. Strange, the last time I used the RFB code, It would always ask me whether to shut down the RFB before saving just to avoid that. Also, Why is it bad that the RFB remains running? Isn't that the point? Best regards -Tobias > > Best, > Marcel >> Am 31.08.2016 04:47:18 schrieb Chris Muller <ma.chris.m(a)gmail.com>: >> >> After fixing a bug that let the new server grow to 2.5GB RAM, it is >> now stable at 500MB RAM. I also discovered I can't apply patches live >> and save the image, because that means its saved with the RFB server >> running. >> >> This large bulk load uncovered a bug when using Magma in direct-mode >> since Eliot fixed the process-scheduling to not cycle through >> equal-level processes by default -- Magma's flush-to-disk process was >> at equal priority and so it wasn't getting flushed! Spur really needs >> a way to cap its memory allocation like the old VM's had, so something >> like that would not cause problems for other processes on the server.. >> >> Disk space is so tight, I'll have to log in to delete unneeded commit >> log files to avoid us running out. Hopefully Rackspace can afford us >> a bigger disk.

2 2

Re: [squeak-dev] The Trunk: Network-tfel.184.mcz
by Levente Uzonyi 31 Aug '16

31 Aug '16

On Tue, 30 Aug 2016, commits(a)source.squeak.org wrote: > Tim Felgentreff uploaded a new version of Network to project The Trunk: > http://source.squeak.org/trunk/Network-tfel.184.mcz > > ==================== Summary ==================== > > Name: Network-tfel.184 > Author: tfel > Time: 30 August 2016, 11:53:57.083946 am > UUID: b90acf7c-5796-a347-8939-59955c0588dd > Ancestors: Network-tfel.183, Network-ul.183 > > merge a few fixes from Squeakland Etoys. > - ServerDirectories always use forward slashes, even on windows > - FTPClient connections should go through the NetNameResolver > - sockets can only accept if they are connected. > > =============== Diff against Network-ul.183 =============== > > Item was changed: > ----- Method: FTPClient>>openPassiveDataConnection (in category 'private protocol') ----- > openPassiveDataConnection > | portInfo list dataPort remoteHostAddress | > self sendCommand: 'PASV'. > self lookForCode: 227 ifDifferent: [:response | (TelnetProtocolError protocolInstance: self) signal: 'Could not enter passive mode: ' , response]. > - > portInfo := (self lastResponse findTokens: '()') at: 2. > list := portInfo findTokens: ','. > + remoteHostAddress := NetNameResolver addressForName: (list at: 1) > + , '.' > + , (list at: 2) , '.' > + , (list at: 3) , '.' > + , (list at: 4) timeout: 30. > - remoteHostAddress := ByteArray > - with: (list at: 1) asNumber > - with: (list at: 2) asNumber > - with: (list at: 3) asNumber > - with: (list at: 4) asNumber. > dataPort := (list at: 5) asNumber * 256 + (list at: 6) asNumber. > + self openDataSocket: remoteHostAddress port: dataPort! > - self openDataSocket: remoteHostAddress port: dataPort > - ! > > Item was changed: > ----- Method: ServerDirectory>>isRoot (in category 'testing') ----- > isRoot > + ^ directory = '/'! > - ^directory = (String with: self pathNameDelimiter)! > > Item was changed: > ----- Method: Socket>>waitForAcceptFor:ifTimedOut: (in category 'waiting') ----- > waitForAcceptFor: timeout ifTimedOut: timeoutBlock > "Wait and accept an incoming connection" > self waitForConnectionFor: timeout ifTimedOut: [^timeoutBlock value]. > + ^self isConnected Does this change actually do anything? Won't the previous line return when the socket is not connected? Levente > + ifTrue:[self accept] > + ! > - ^self accept! > > >

3 4

The Trunk: EToys-tfel.228.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.228.mcz ==================== Summary ==================== Name: EToys-tfel.228 Author: tfel Time: 31 August 2016, 8:49:05.051755 pm UUID: f9d5b452-9e2a-7045-b2ab-399366c623f9 Ancestors: EToys-tfel.227 apply fix from jl to skip drawing turtles if the semaphore is locked =============== Diff against EToys-tfel.227 =============== Item was changed: ----- Method: KedamaMorph>>drawTurtlesOnForm: (in category 'drawing') ----- drawTurtlesOnForm: aForm turtlesToDisplay do: [:exampler | (self isVisible: exampler) ifTrue: [ turtlesDictSemaphore critical: [ exampler turtles drawOn: aForm. + ] ifLocked: [] - ]. ]. ]. !

1 0

The Trunk: EToys-tfel.228.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

1 0

The Trunk: Sound-tfel.57.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-tfel.57.mcz ==================== Summary ==================== Name: Sound-tfel.57 Author: tfel Time: 2 August 2016, 10:04:17.197368 am UUID: f696e8c2-a220-ef46-a307-d490412936c3 Ancestors: Sound-mt.56, Sound-kfr.27 merge from Squeakland Etoys image =============== Diff against Sound-mt.56 =============== Item was changed: ----- Method: AbstractSound class>>fileInSoundLibraryNamed: (in category 'sound library-file in/out') ----- fileInSoundLibraryNamed: fileName "File in the sound library with the given file name, and add its contents to the current sound library." | s newSounds | + s _ FileStream readOnlyFileNamed: fileName. + newSounds _ s fileInObjectAndCode. - s := FileStream oldFileNamed: fileName. - newSounds := s fileInObjectAndCode. s close. newSounds associationsDo: [:assoc | self storeFiledInSound: assoc value named: assoc key]. AbstractSound updateScorePlayers. Smalltalk garbageCollect. "Large objects may have been released" ! Item was changed: ----- Method: SampledSound class>>soundNamed: (in category 'sound library') ----- soundNamed: aString "Answer the sound of the given name, or, if there is no sound of that name, put up an informer so stating, and answer nil" "(SampledSound soundNamed: 'shutterClick') play" ^ self soundNamed: aString ifAbsent: + [self inform: aString, ' not found in the Sound Library' translated. - [self inform: aString, ' not found in the Sound Library'. nil]! Item was changed: ----- Method: SampledSound class>>soundNamed:ifAbsent: (in category 'sound library') ----- soundNamed: aString ifAbsent: aBlock "Answer the sound of the given name, or if there is no sound of that name, answer the result of evaluating aBlock" "(SampledSound soundNamed: 'shutterClick') play" + | entry samples compressedSound | + entry _ SoundLibrary - | entry samples | - entry := SoundLibrary at: aString ifAbsent: [^ aBlock value]. entry ifNil: [^ aBlock value]. + entry second isString + ifTrue: [compressedSound := Compiler evaluate: entry second. + compressedSound source: entry first. + ^ compressedSound asSound] + ifFalse: [samples _ entry at: 1. + samples class isBytes ifTrue: [samples _ self convert8bitSignedTo16Bit: samples]. + ^ self samples: samples samplingRate: (entry at: 2)] - samples := entry at: 1. - samples class isBytes ifTrue: [samples := self convert8bitSignedTo16Bit: samples]. - ^ self samples: samples samplingRate: (entry at: 2) ! Item was changed: ----- Method: SampledSound class>>universalSoundKeys (in category 'sound library') ----- universalSoundKeys "Answer a list of the sound-names that are expected to be found in the SoundLibrary of every image." + ^ {'camera' translatedNoop. 'chirp' translatedNoop. 'chomp' translatedNoop. 'click' translatedNoop. 'clink' translatedNoop. 'coyote' translatedNoop. 'croak' translatedNoop. 'horn' translatedNoop. 'laugh' translatedNoop. 'meow' translatedNoop. 'motor' translatedNoop. 'peaks' translatedNoop. 'scrape' translatedNoop. 'scratch' translatedNoop. 'scritch' translatedNoop. 'silence' translatedNoop. 'splash' translatedNoop. 'warble' translatedNoop.}! - - ^ #('splash' 'peaks' 'clink' 'croak' 'scratch' 'chirp' 'scritch' 'warble' 'scrape' 'camera' 'coyote' 'silence' 'motor') - - ! Item was changed: ----- Method: SampledSound>>compressWith: (in category 'accessing') ----- + compressWith: codecClass + | codec result | + codec := codecClass new. + result := codec compressSound: self. + codec release. + ^ result! - compressWith: codecClass - ^ codecClass new compressSound: self! Item was changed: ----- Method: SampledSound>>compressWith:atRate: (in category 'accessing') ----- + compressWith: codecClass atRate: aSamplingRate + | codec result | + codec := codecClass new. + result := codec compressSound: self atRate: aSamplingRate. + codec release. + ^ result! - compressWith: codecClass atRate: aSamplingRate - - ^ codecClass new compressSound: self atRate: aSamplingRate! Item was changed: ----- Method: SoundRecorder>>stopRecording (in category 'recording controls') ----- stopRecording "Stop the recording process and turn of the sound input driver." recordProcess ifNotNil: [recordProcess terminate]. + recordProcess _ nil. - recordProcess := nil. self primStopRecording. + RecorderActive _ false. - RecorderActive := false. Smalltalk unregisterExternalObject: bufferAvailableSema. ((currentBuffer ~~ nil) and: [nextIndex > 1]) ifTrue: [self emitPartialBuffer]. + codec ifNotNil: [codec reset]. self initializeRecordingState. !

1 0

The Trunk: Sound-tfel.58.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-tfel.58.mcz ==================== Summary ==================== Name: Sound-tfel.58 Author: tfel Time: 21 August 2016, 4:48:44.407391 pm UUID: 50e3fdac-34a3-412c-8cd6-bc672a2424ae Ancestors: Sound-mt.57, Sound-tfel.57 merge trunk =============== Diff against Sound-mt.57 =============== Item was changed: ----- Method: AbstractSound class>>fileInSoundLibraryNamed: (in category 'sound library-file in/out') ----- fileInSoundLibraryNamed: fileName "File in the sound library with the given file name, and add its contents to the current sound library." | s newSounds | + s _ FileStream readOnlyFileNamed: fileName. + newSounds _ s fileInObjectAndCode. - s := FileStream oldFileNamed: fileName. - newSounds := s fileInObjectAndCode. s close. newSounds associationsDo: [:assoc | self storeFiledInSound: assoc value named: assoc key]. AbstractSound updateScorePlayers. Smalltalk garbageCollect. "Large objects may have been released" ! Item was changed: ----- Method: SampledSound class>>soundNamed: (in category 'sound library') ----- soundNamed: aString "Answer the sound of the given name, or, if there is no sound of that name, put up an informer so stating, and answer nil" "(SampledSound soundNamed: 'shutterClick') play" ^ self soundNamed: aString ifAbsent: + [self inform: aString, ' not found in the Sound Library' translated. - [self inform: aString, ' not found in the Sound Library'. nil]! Item was changed: ----- Method: SampledSound class>>soundNamed:ifAbsent: (in category 'sound library') ----- soundNamed: aString ifAbsent: aBlock "Answer the sound of the given name, or if there is no sound of that name, answer the result of evaluating aBlock" "(SampledSound soundNamed: 'shutterClick') play" + | entry samples compressedSound | + entry _ SoundLibrary - | entry samples | - entry := SoundLibrary at: aString ifAbsent: [^ aBlock value]. entry ifNil: [^ aBlock value]. + entry second isString + ifTrue: [compressedSound := Compiler evaluate: entry second. + compressedSound source: entry first. + ^ compressedSound asSound] + ifFalse: [samples _ entry at: 1. + samples class isBytes ifTrue: [samples _ self convert8bitSignedTo16Bit: samples]. + ^ self samples: samples samplingRate: (entry at: 2)] - samples := entry at: 1. - samples class isBytes ifTrue: [samples := self convert8bitSignedTo16Bit: samples]. - ^ self samples: samples samplingRate: (entry at: 2) ! Item was changed: ----- Method: SampledSound class>>universalSoundKeys (in category 'sound library') ----- universalSoundKeys "Answer a list of the sound-names that are expected to be found in the SoundLibrary of every image." + ^ {'camera' translatedNoop. 'chirp' translatedNoop. 'chomp' translatedNoop. 'click' translatedNoop. 'clink' translatedNoop. 'coyote' translatedNoop. 'croak' translatedNoop. 'horn' translatedNoop. 'laugh' translatedNoop. 'meow' translatedNoop. 'motor' translatedNoop. 'peaks' translatedNoop. 'scrape' translatedNoop. 'scratch' translatedNoop. 'scritch' translatedNoop. 'silence' translatedNoop. 'splash' translatedNoop. 'warble' translatedNoop.}! - - ^ #('splash' 'peaks' 'clink' 'croak' 'scratch' 'chirp' 'scritch' 'warble' 'scrape' 'camera' 'coyote' 'silence' 'motor') - - ! Item was changed: ----- Method: SampledSound>>compressWith: (in category 'accessing') ----- + compressWith: codecClass + | codec result | + codec := codecClass new. + result := codec compressSound: self. + codec release. + ^ result! - compressWith: codecClass - ^ codecClass new compressSound: self! Item was changed: ----- Method: SampledSound>>compressWith:atRate: (in category 'accessing') ----- + compressWith: codecClass atRate: aSamplingRate + | codec result | + codec := codecClass new. + result := codec compressSound: self atRate: aSamplingRate. + codec release. + ^ result! - compressWith: codecClass atRate: aSamplingRate - - ^ codecClass new compressSound: self atRate: aSamplingRate! Item was changed: ----- Method: SoundRecorder>>stopRecording (in category 'recording controls') ----- stopRecording "Stop the recording process and turn of the sound input driver." recordProcess ifNotNil: [recordProcess terminate]. + recordProcess _ nil. - recordProcess := nil. self primStopRecording. + RecorderActive _ false. - RecorderActive := false. Smalltalk unregisterExternalObject: bufferAvailableSema. ((currentBuffer ~~ nil) and: [nextIndex > 1]) ifTrue: [self emitPartialBuffer]. + codec ifNotNil: [codec reset]. self initializeRecordingState. !

1 0

Jump to page: