Squeak-dev July 2015

squeak-dev@lists.squeakfoundation.org

34 participants
192 discussions

Squeak 4.6: System-eem.749.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of System to project Squeak 4.6: http://source.squeak.org/squeak46/System-eem.749.mcz ==================== Summary ==================== Name: System-eem.749 Author: eem Time: 1 July 2015, 1:02:40.277 pm UUID: e067c0b6-9b7b-49ca-ae4d-e5b2e9c0bc8e Ancestors: System-ul.748 Revert storePreferencesIn: to work with a copy, which accords with the old code. Go for brevity in prefEvent:. =============== Diff against System-ul.748 =============== Item was changed: ----- Method: Preferences class>>prefEvent: (in category 'dynamic preferences') ----- prefEvent: anEvent "Check if this system event defines or removes a preference. TODO: Queue the event and handle in background process. There is zero reason to be so eager here." + | aClass aSelector method | - - | aClass aSelector | anEvent itemKind = SystemChangeNotifier classKind ifTrue: [^anEvent isRemoved ifTrue: [self removePreferencesFor: anEvent item]]. (anEvent itemKind = SystemChangeNotifier methodKind and: [(aClass := anEvent itemClass) isMeta]) ifFalse: "ignore instance methods" [^self]. aClass := aClass theNonMetaClass. aSelector := anEvent itemSelector. anEvent isRemoved ifTrue: [self atomicUpdatePreferences: [ :copyOfDictionaryOfPreferences | copyOfDictionaryOfPreferences removeKey: (aClass name,'>>', aSelector) asSymbol ifAbsent: []]] ifFalse: [(anEvent isAdded or: [anEvent isModified]) ifTrue: + [method := anEvent item. + method pragmas do: + [:pragma| + self respondToPreferencePragmasInMethod: method class: aClass]]]! - [self respondToPreferencePragmasInMethod: anEvent item class: aClass]]! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'personalization') ----- + storePreferencesIn: aFileName + | stream prefsSnapshot | - storePreferencesIn: aFileName - - | stream | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. + prefsSnapshot := preferencesDictionary copy. + prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. + stream nextPut: prefsSnapshot. - preferencesDictionary keysAndValuesDo: [:key :pref | preferencesDictionary at: key put: pref asPreference]. - stream nextPut: preferencesDictionary. stream nextPut: (Smalltalk isMorphic ifTrue:[World fillStyle] ifFalse:[DesktopColor]). stream close!

1 0

Squeak 4.6: Help-Squeak-Project-cmm.25.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of Help-Squeak-Project to project Squeak 4.6: http://source.squeak.org/squeak46/Help-Squeak-Project-cmm.25.mcz ==================== Summary ==================== Name: Help-Squeak-Project-cmm.25 Author: cmm Time: 1 July 2015, 3:34:35.436 pm UUID: 84a2402f-811d-4a8c-9459-f6af9d8d9b21 Ancestors: Help-Squeak-Project-kfr.24 - Update internal release notes in the Help Browser. (no need to use a release-specific method). - Release Notes has duplication with the one in TheWorldMainDockingBar which will be addressed later. =============== Diff against Help-Squeak-Project-kfr.24 =============== Item was removed: - SystemOrganization addCategory: #'Help-Squeak-Project'! Item was removed: - ----- Method: HelpIcons class>>squeakIcon (in category '*help-squeak-project') ----- - squeakIcon - ^(Form - extent: 12@12 - depth: 32 - fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 75398782 26843545 0 0 1159996452 1378823983 338044454 0 0 0 0 455682345 1295266868 1126376227 0 0 1040582150 0 1328097577 0 0 0 23488102 1277502757 0 1076834095 0 0 1075781407 0 287647013 472854319 0 0 471472666 204089898 0 1092756002 0 0 1041963803 36909875 0 1880232466 454761243 287515427 1342572038 0 104939841 974460181 0 0 270080281 354690084 86846765 3674539269 1394219546 1611599631 3557427722 86123042 388244516 204287277 0 26843545 605558808 1025055001 1008014613 1159141143 522264865 739710743 1159141143 571083274 570820102 188891714 0 942550574 1411391520 1143021857 1312241463 1428563494 3205040393 3708159494 1663576104 1511067921 1579887403 1629758500 958472481 656679972 439563059 1294608938 839913488 739644950 172246084 221459251 840900383 1075978786 1209933342 724512559 707077413 0 0 0 0 0 0 0 0 0 0 38488907 0 0 0 0 0 0 0 0 0 0 0 0 0) - offset: 0@0)! Item was removed: - CustomHelp subclass: #SqueakHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakHelp class>>bookName (in category 'accessing') ----- - bookName - ^'Squeak'! Item was removed: - ----- Method: SqueakHelp class>>icon (in category 'accessing') ----- - icon - (self name = #SqueakHelp) ifTrue: [^HelpIcons iconNamed: #squeakIcon]. - ^nil! Item was removed: - ----- Method: SqueakHelp class>>introduction (in category 'as yet unclassified') ----- - introduction - "This method was automatically generated. Edit it using:" - "a HelpBrowser edit: #introduction" - ^HelpTopic - title: 'Welcome' - contents: - 'WELCOME - - Squeak is a modern, open source, full-featured implementation of the powerful Smalltalk programming language and environment. - - Squeak is highly-portable - even its virtual machine is written entirely in Smalltalk making it easy to debug, analyze, and change. - - Squeak is the vehicle for a wide range of projects from multimedia applications, educational platforms to commercial web application development.!! - ]style[(7 2 6 72 9 41 6 70 9 49 6 139)bc000000000a0FBitstreamVeraSerif#20.0,c000000000,FBitstreamVeraSerif#16.0ba0c000000000,FBitstreamVeraSerif#16.0a0c000000000,FBitstreamVeraSerif#16.0ba0c000000000,FBitstreamVeraSerif#16.0a0c000000000,FBitstreamVeraSerif#16.0ba0c000000000,FBitstreamVeraSerif#16.0a0c000000000,FBitstreamVeraSerif#16.0ba0c000000000,FBitstreamVeraSerif#16.0a0c000000000,FBitstreamVeraSerif#16.0ba0c000000000,FBitstreamVeraSerif#16.0a0c000000000!!' readStream nextChunkText! Item was removed: - ----- Method: SqueakHelp class>>pages (in category 'accessing') ----- - pages - ^#(introduction SqueakProjectHelp SqueakToolsHelp SqueakTutorials)! Item was removed: - SqueakProjectHelp subclass: #SqueakLicenseHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakLicenseHelp class>>bookName (in category 'accessing') ----- - bookName - ^'License'! Item was removed: - ----- Method: SqueakLicenseHelp class>>licenseChange (in category 'pages') ----- - licenseChange - ^HelpTopic - title: 'License has changed with 4.0' - contents: 'On 23 September 1996, Apple Computer Inc. released Squeak V1.1 under the "Squeak License" (SqL). - - On May 8, 2006 Apple agreed to relicense original Squeak V1.1 under the Apple Public Source License. - - On October 12, 2006 Apple granted permission to relicense under Apache license 2.0. - - In 2006, VPRI began to collect "Distribution Agreements" for all contributors to Squeak since V1.1 up to V3.8, asking them to relicense their contributions, which were originally licensed under SqL, to the MIT license. This was a great effort on behalf of many and VPRI has 100s of signed documents agreeing to this. - - Do you want to contribute source to Squeak?All new contributions since 4.0 must be under the MIT license. When you make your code available, please state explicitly in some form such as the description on a web site or email announcement that your contribution is under the MIT license. (It doesn''t have to be exclusive; you can release it under difference licenses at the same time.) - - Have you contributed source to Squeak? If you believe you have, but have not sent in an agreement to allow your submission(s) to be licensed under the MIT license then please see http://netjam.org/squeak/contributors. There you can find a list of known contributors and a PDF of the agreement with instructions. The snail mail address is found in the agreement PDF file. - - Also there are a few people for which we are lacking full contact information. If you think you can help please also visit the link above and see if you can identify any of the unknown developer initials or any of the developers for whom we do not have a current email address.' ! Item was removed: - ----- Method: SqueakLicenseHelp class>>officialLicense (in category 'pages') ----- - officialLicense - ^HelpTopic - title: 'Official License - 4.0' - contents: 'Copyright (c) The individual, corporate, and institutional contributors who have collectively contributed elements to this software ("The Squeak Community"), 1996-2011 All rights reserved. - - Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: - - The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. - - THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN - THE SOFTWARE. - - Portions of Squeak are covered by the following license - - - Copyright (c) Xerox Corp. 1981, 1982 All rights reserved. - Copyright (c) Apple Computer, Inc. 1985-1996 All rights reserved. - - Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.'! Item was removed: - ----- Method: SqueakLicenseHelp class>>pages (in category 'accessing') ----- - pages - ^#(licenseChange officialLicense)! Item was removed: - SqueakHelp subclass: #SqueakProjectHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakProjectHelp class>>bookName (in category 'accessing') ----- - bookName - ^'The Project'! Item was removed: - ----- Method: SqueakProjectHelp class>>extendingTheSystem (in category 'pages') ----- - extendingTheSystem - ^HelpTopic - title: 'Extending The System' - icon: (HelpIcons iconNamed: #squeakIcon) - contents: - 'SqueakMap is an integrated catalog of external applications for Squeak. It is accessible from the "Apps" menu. This catalog does not host the projects, it merely documents the load scripts required to correctly bring them into the image. - - Many SqueakMap packages use Installer, which defines several packages in its package-definitions protocol. Any of these can be loaded with an expression like the following: - - Installer new merge: #openGL - - Change #openGL to the selector name of the package you want to load. The latest version of that package and all of its prerequisites will be merged into the image. Merging a package is no different from loading it unless the package is already loaded, in which case it is upgraded to the latest version in a way that preserves any local changes you may already have made. - - --------------- - This remainder of this workspace documents load-scripts for packages that are not documented in either SqueakMap or Installer. - - OCompletion - "Provides source code completion as you type" - (Installer ss project: ''OCompletion'') install: ''Ocompletion''. - (Smalltalk at: #ECToolSet) register. - (Smalltalk at: #ToolSet) default: (Smalltalk at: #ECToolSet). - - Omnibrowser - "Including Refactoring engine" - (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfOmniBrowser''. - ((Smalltalk at: #ConfigurationOfOmniBrowser) project perform: #lastVersion) load: #( Dev ). - - Pier CMS - "Pier CMS: http://www.piercms.com" - (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfPier2''. - (Smalltalk at: #ConfigurationOfPier2) load. - - (Installer lukas project: ''pier2'') install: ''Pier-Blog''. - (Installer lukas project: ''pier2'') install: ''Pier-Book''. - (Installer lukas project: ''pier2addons'') install: ''Pier-Setup''. - (Smalltalk at: #PRDistribution) new register. - - Open Cobalt - "http://opencobalt.org (Best to run this from an image in an open cobalt directory)" - Installer ss project: ''TweakCore''; install: ''update''. - [Installer ss project: ''TweakExtras''; install: ''update''] - on: (Smalltalk at: #CUnsynchronizedModification) do: [:ex | ex resume]. - Installer cobalt project: ''Tweak''; - answer: ''Would you like to conserve memory at all costs?'' with: true; - answer: ''Password for interactive VNC connections?'' with: ''cobalt''; - answer: ''Would you like to add the RFBServer to the World open menu?'' with: true; - install: ''update'' - !! - ]style[(9 309 19 252 6 126 8 237 11 209 11 210 8 386 11 547)dSMLoaderPlus open;;,,d| newBrowser | - newBrowser := Browser new selectSystemCategory: ''Installer-Core''; selectClass: Installer; metaClassIndicated: false; selectMessageCategoryNamed: ''package-definitions''; selectMessageNamed: #openGL. - Browser openBrowserView: (newBrowser openMessageCatEditString: nil) label: ''External Package Definitions'';;,,i,,u,,bu,,bu,,bu,,bu,!!' readStream nextChunkText! Item was removed: - ----- Method: SqueakProjectHelp class>>pages (in category 'accessing') ----- - pages - ^#(releaseNotes4point5 extendingTheSystem squeakResourcesOnline squeakUserInterface workingWithSqueak)! Item was removed: - ----- Method: SqueakProjectHelp class>>releaseNotes4point5 (in category 'pages') ----- - releaseNotes4point5 - ^HelpTopic - title: 'Squeak 4.5 Theodor' - icon: (HelpIcons iconNamed: #squeakIcon) - contents: - 'Squeak 4.5 ---- Theodor - =================== - - ______________________________________________ - Language enhancements: - - Environments - Environments allows multiple classes with the same name to exist in the same image, with code referencing through its class'' "environment". - - Collections - New and improved sorting utilities for Arrays and OrderedCollections. - New FloatCollection inherits the convenient add:/remove: API of OrderedCollection, but using an internal FloatArray for better efficiency. - An all-new LRUCache implementation. - Promise is now a fully chainable object with decent error handling. - Compiler - - Numerics - Faster and better Random. - log/ln fixed for integers. - - Dates and Times - New methods provide access to primitive 240 and 241, which can provide microsecond resolution timestamps on Cog VMs. - New convenience methods allow creating DateAndTimes relative to now (e.g., "5 minutes ago"). - Parsing improvements. - - Text, Graphics, Sound - Form>pixelValueAt: now makes use of the new primitivePixelValueAt:, avoiding the overhead of a full BitBlt. - Elimination of the dual hierarchy of NewParagraph & MultiNewParagraph etc and TextStopConditions and lots of Scanner improvements. - PaintBoxMorph re-engineering. - ADPCMCodec performance improvement. - - ______________________________________________ - IDE, Monticello and Trunk process improvements: - - Several MVC fixes allow debugging in MVC once again. - Smart-Splitters causes the bars between browser panes to automatically optimize their position. - Fixed color-selection from anywhere on the screen working again. - Improved command-line interface via Smalltalk run: [ :arg1 :arg2 | ... ]. - squeakDebug.log report length is now settable. - MCReorganizationPreloader now resolves moves between arbitrary packages, independent of their order in the configuration. - mcz/snapshot/source.st now encoded in UTF8 instead of latin-1. - New pre-selection highlight feature for lists. - System space analysis now available in Help | About. - Message-traces can be pared more easily. - - ______________________________________________ - Configuration - Lots of improvements in the CI build/test slave. - Installer now documents externally-loadable packages as simple literal structures that can be merged via Installer>>#merge:. - MC ancestry history strings can now be stubbed for a smaller image and sustainable MC history. - - ______________________________________________ - History and Accounting Tools - A great new historical website by Bob Arning. - MC history and origin is now available for methods and class-definitions from browser menus. - A new amazing ObjectHistory makes it possible to efficiently track the born-on date of any object to a resolution of one minute. - Added "search history" to Package history browser. - - ______________________________________________ - Fixes and cleanups - Packages organized toward eliminating circular dependencies, and with proper concern for existing and future UI frameworks. - Updated uses of SmalltalkImage current to, simply, "Smalltalk." - Moving away from use of Utilities. - More preferences made pragma-based. - Compiler factorings and cleanups. - Diminished excessive usage of ReadWriteStream. - ProtoObject API balanced and minimal. - Moved classifying and logging behavior out of Compiler (a responsibility of Behavior). - - ______________________________________________ - Application Upgrade Notes - Default Float printing is now true to its internal representation. Apps must now use appropriate methods to format Floats rather than roundTo:. - ($a to: $b) now returns ''ab'' rather than #($a $b). - Remove OneCharacterSymbols optimization. - LRUCache instance migrations, if any. See post-scripts in Collections-ul.546, 547 - Rectangles with 0 area (e.g., lines) can now intersect. - - - - This release is dedicated - to the memory of our friend - Andreas Raab (1968 -- 2013) - !! - ]style[(10 1 4 1 7 1 19 1 1 47 22 2 13 142 11 329 8 57 15 237 21 358 48 720 13 321 28 372 18 522 25 382 1 5 7 4 9 56 1)ba2FBitstreamVeraSerif#32.0,a2FBitstreamVeraSerif#32.0,a2--FBitstreamVeraSerif#32.0,a2FBitstreamVeraSerif#32.0,ia2FBitstreamVeraSerif#32.0,FBitstreamVeraSerif#24.0a2,FBitstreamVeraSerif#24.0----a2,FBitstreamVeraSerif#24.0a2,,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,,FBitstreamVeraSerif#16.0ia2,FBitstreamVeraSerif#16.0iba2,FBitstreamVeraSerif#16.0ia2,FBitstreamVeraSerif#16.0iba2,FBitstreamVeraSerif#16.0ia2,!!' readStream nextChunkText! Item was removed: - ----- Method: SqueakProjectHelp class>>squeakResourcesOnline (in category 'pages') ----- - squeakResourcesOnline - ^HelpTopic - title: 'Squeak Resources Online' - icon: (HelpIcons iconNamed: #squeakIcon) - contents: - 'Squeak web sites - Main Squeak site http://www.squeak.org - Weekly Squeak http://news.squeak.org - Oversight Board http://board.squeak.org - Downloads for many versions http://ftp.squeak.org - Development of the virtual machine http://squeakvm.org - Google+ Page - https://plus.google.com/u/0/b/115950529692424242526/ - - Squeak-dev - The main Squeak mailing list - http://lists.squeakfoundation.org/mailman/listinfo/squeak-dev - http://dir.gmane.org/gmane.comp.lang.smalltalk.squeak.general - http://n4.nabble.com/Squeak-Dev-f45488.html - - Squeak-Beginners - The place to ask even the most basic questions - http://lists.squeakfoundation.org/mailman/listinfo/beginners - http://dir.gmane.org/gmane.comp.lang.smalltalk.squeak.beginners - http://n4.nabble.com/Squeak-Beginners-f107673.html - - Squeak By Example - http://www.squeakbyexample.org/ - - Squeak, Open Personal Computing and Multimedia - http://coweb.cc.gatech.edu/squeakbook/ - http://stephane.ducasse.free.fr/FreeBooks/CollectiveNBlueBook/ - - Squeak, Open Personal Computing for Multimedia - http://www.cc.gatech.edu/~mark.guzdial/drafts/ - http://stephane.ducasse.free.fr/FreeBooks/GuzdialBookDrafts/ - - More Books about Squeak and Smalltalk - http://stephane.ducasse.free.fr/FreeBooks.html - !! - ]style[(16 316 41 173 65 181 17 35 46 106 46 112 37 49)bu,,bu,,bu,,bu,,bu,,bu,,bu,!!' readStream nextChunkText - ! Item was removed: - ----- Method: SqueakProjectHelp class>>squeakUserInterface (in category 'pages') ----- - squeakUserInterface - ^HelpTopic - title: 'Squeak User Interface' - icon: (HelpIcons iconNamed: #squeakIcon) - contents: - 'The Squeak UI has some unusual elements that you may not have seen before. Here is a brief introduction to those elements: - - Projects - A project is an entire Squeak desktop full of windows. Projects are can be used to change quickly from one task to another. An inactive project is represented by a project window that shows a thumbnail of that project''s windows. Project windows are actually more like doors than windows, since you can enter the project just by clicking on its project window. You can create a new project by choosing ''open...project'' from the screen menu. To exit a project (and return to its parent project), choose ''previous project'' from the screen menu. Each project maintains its set of windows, plus its own set of Smalltalk changes and its own screen color depth. - - Morphic Halos - In a morphic project, cmd-click (alt-click) on a window or other graphical object will bring up a constellation of colored circles called "halo handles" around that object. Additional clicks will cycle through the halos for other graphical objects in the nesting structure. If you hold down the Shift key while cmd-clicking, the nested morphs will be traversed from innermost outward. Clicking without the cmd (alt) key will dismiss the halo. While the halo is up, letting the cursor linger over one of the halo handles for a few seconds will cause a balloon to pop up with the name of that handle. Three useful handles are the top-left "X" handle (delete), the bottom-right yellow handle (resize), and the brown handle (slide the object within its containing object). Halos allow complex graphical objects to be explored--or even disassembled (using the black halo handle). Usually no harm results from taking apart an object; you can just discard the pieces and create a new one. - - Flaps - To enable Flaps, click on the desktop to show the world menu, choose the "Flaps..." menu and "show shared tags". Tabs labeled "Squeak", "Tools", "Supplies", etc., will appear along the edges of the Squeak desktop. Click on any tab to open the corresponding flap. Drag a tab to resize the flap and to relocate the tab. Bring up the halo on any tab and click on its menu handle to be presented with many options relating to the flap. Use the "Flaps..." menu, reached via the desktop menu, to control which flaps are visible and for other flap-related options and assistance. - - Parts Bins - You can obtain new objects in many ways. The "Objects Catalog" (choose "objects'' from the world menu or open the objects flap) and several of the standard flaps (e.g. "Tools" and "Supplies") serve as "Parts Bins" the for new objects. Drag any icon you see in a Parts Bin and a fresh copy of the kind of object it represents will appear "in your hand"; click to deposit the new object anywhere you wish. You can also add your own objects to any of the flaps -- just drag your object over the tab, wait for the flap to pop open, then drop the object at the desired position in the flap. - !! - ]style[(123 9 663 13 991 5 579 10 589),bu,,bu,,bu,,bu,!!' readStream nextChunkText! Item was removed: - ----- Method: SqueakProjectHelp class>>workingWithSqueak (in category 'pages') ----- - workingWithSqueak - ^HelpTopic - title: 'Working with Squeak' - icon: (HelpIcons iconNamed: #squeakIcon) - contents: - 'Starting and Quitting - Like most Smalltalk''s, the machine-executable portion is a relatively small program known as the "virtual machine" (VM). The VM''s job is to provide services from the physical machine to real Smalltalk objects. Services like input and output. The Smalltalk system, including all data and code, is a system of objects, built from the ground up, and interpreted by this virtual computer. This affords Smalltalk system platform portability. - - Smalltalk cannot run without the VM. The VM can''t do anything useful except process Smalltalk systems. - - To start the system, drag the ".image" data file to the VM executable "squeak". There are myriad command-line options for starting the system via the command-line (see squeak --help). By default, the system will open on the screen in a single OS window. - - To quit a Squeak session, choose ''quit'' from the menu bar. If you save, the image file will be overwritten and resume from that place the next time it''s launched. - - The Image File - Squeak is an environment built in its own objects from the ground up, including one or more end-user applications. All of the objects in the system -- Classes, Dictionaries, Windows, Customers and other objects that make up the Squeak environment are stored in a binary ".image" file. This is the "object-data file" loaded by the VM when Squeak is launched. - - When an image is started, every object resumes exactly from where it was last saved. - - The Sources File - Smalltalk is traditionally includes the source code in the running system. However, keeping multiple copies of the same source code in all images files is wasteful. Therefore, the source code itself is kept in a read-only .sources file and accessed by all images. The image files merely have pointers into this file, which is read on-the-fly to present original source code. - - The code of the base system is stored in the file "SqueakV41.sources". This file does not change except between releases of Squeak. Normally this file should be placed in the folder containing the VM executable. - - The Changes File - The purpose of Squeak is to develop new programs and systems. Code changes to the running system are effective immediately. But since multiple images can be running, they cannot all update the .sources file safely. Therefore, each image file is accompanied by a ".changes" file which contains source code changes for that and only that Smalltalk system.. - - The changes file is important for project work. It keeps a sequential log of development activity for the purpose of recovering work performed since the last image-save. Any of several events could lead to the need to recover work, including a power-outage or making an erroneous change to code required to keep the system running. - - The changes file does not consume memory space, so Squeak is able to keep a complete history of all program changes. This makes it easy to examine or even reinstate older versions of methods (see ''versions'' option in browser selector pane). This encourages experimentation, since you can easily revert to the original versions of any set of methods. - - In extreme cases where sources and/or changes files are not available, the system can still run, and will automatically decompile the bytecode methods in image memory, if necessary, into readable and editable versions of the original source code (only comments and temporary variable names are lost). - - Transferring Code-Snippets Between Images - In addition to the ''save'' command that saves the entire state of the system, the code of individual methods, categories or classes may be ''filed out'' and then filed-in to another image. - - Packages - The code of an entire project is encapsulated by a Package. This allows users to share their code with other users. Code of packages are delineated by the categories of their classes, and methods. The Monticello browser is then used to wrap that code into a Package object which can be saved to a Monticello repository at http://ss3.gemtalksystems.com/ss. - - Some projects end up using the resources provided by several packages, resulting in a hierarchy of packages that make up a system. Installer can be used to install such systems.!! - ]style[(21 970 14 448 16 396 11 188 16 321 4 1025 41 188 8 52 10 55 2 420)bu,,bu,,bu,,u,,bu,,u,,bu,,bu,,i,,i,!!' readStream nextChunkText! Item was removed: - SqueakToolsHelp subclass: #SqueakToolsDebuggerHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakToolsDebuggerHelp class>>bookName (in category 'accessing') ----- - bookName - ^'Debugger'! Item was removed: - ----- Method: SqueakToolsDebuggerHelp class>>openingTheDebugger (in category 'pages') ----- - openingTheDebugger - ^HelpTopic - title: 'Open a Debugger.' - contents: 'A debugger window is opened in response to an unhandled exception condition. Evaluating the expression ''self halt'' in a workspace or as an expression in a method will cause a debugger window to be opened. The debugger provides direct interactive access to the interrupted process. - - The debugger permits its interrupted process to be inspected and modified. Source code and variables may be modified interactively, and the process can be stepped through its execution in various ways.'! Item was removed: - ----- Method: SqueakToolsDebuggerHelp class>>pages (in category 'accessing') ----- - pages - ^# (whatIsADebugger openingTheDebugger usingTheDebugger)! Item was removed: - ----- Method: SqueakToolsDebuggerHelp class>>showForm: (in category 'pages') ----- - showForm: aSymbol - | form contents | - form := ScriptingSystem formAtKey: aSymbol. - contents := (String with: Character cr) asText, - (Text string: ' ' - attribute: (TextFontReference toFont: - (FormSetFont new - fromFormArray: (Array with: form) - asciiStart: Character space asInteger - ascent: form height))), - (String with: Character cr) asText. - ^contents! Item was removed: - ----- Method: SqueakToolsDebuggerHelp class>>usingTheDebugger (in category 'pages') ----- - usingTheDebugger - ^HelpTopic - title: 'Debugging Loops.' - contents: 'There are a few ways to get out of a loop. The best way is to just let the loop run. - - To do that select the space on your code (while in the Debugger) you want to jump to, right click and select: ''run to here.'' - - ' asText, - (self showForm: #Debugger1), - ' - - That will take you to the place you clicked on in your code. - - There is another trick, loops usually have an index. This is Smalltalk after all. In the case above we just selected this code and selected ''Debug it'' - - 1 to: 100 do: [:i | Transcript show: i asString]. - Transcript show: ''done'' - - While in the outer content evaluating the loop, select i change the value to 100 hit accept and ''bobs your uncle'' the loop is done. - - Ok so a bit of a hack but this can be used it to skip over some processing, and since you are debugging and know what you are doing it should be fine. - - ' asText, - (self showForm: #Debugger2), - ' - Proceed is just continue and stop debugging. - - Restart will stop debugging at the selected method and restart that method from the beginning. - - Into goes into the execution of the next method and shows you what it does. - - Over executes the next message and moves over it to the next message. - - Through steps you through a block of code, so if you are about to execute a block, this steps you through that block - - Full Stack increases the number of levels you see in the upper panel. That normally shows you a subset of the execution stack. Full stack will show you the rest of the stack that called this method. - - Where is useful if you click around a method during debugging. It will highlight the code at its execution point. You can also just select the stack method again to do the same thing. - - Tally is supposed to tally selected code, but may not be reliable within the debugger. If you want to tally something do it outside a debugger.' asText! Item was removed: - ----- Method: SqueakToolsDebuggerHelp class>>whatIsADebugger (in category 'pages') ----- - whatIsADebugger - ^HelpTopic - title: 'What is a Debugger.' - contents: 'A debugger represents the machine state at the time of an interrupted process. It also represent a query path into the state of the process. - - The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context.'! Item was removed: - SqueakHelp subclass: #SqueakToolsHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakToolsHelp class>>basicDevelopmentTools (in category 'pages') ----- - basicDevelopmentTools - ^HelpTopic - title: 'Basic Development Tools' - contents: 'Smalltalk environments have some of the best user interfaces for programmers ever devised. Those who have programmed in Lisp under Emacs have some idea, but Smalltalk is even better. - - You should learn these basic tools thoroughly: - - Workspace - - Transcript - - Browser - - Inspector - - File List - - Change Sorter - - Debugger - - Method Finder - '! Item was removed: - ----- Method: SqueakToolsHelp class>>bookName (in category 'accessing') ----- - bookName - ^'Tools'! Item was removed: - ----- Method: SqueakToolsHelp class>>pages (in category 'accessing') ----- - pages - ^#(basicDevelopmentTools)! Item was removed: - SqueakToolsHelp subclass: #SqueakToolsTranscriptHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakToolsTranscriptHelp class>>bookName (in category 'accessing') ----- - bookName - ^'Transcript'! Item was removed: - ----- Method: SqueakToolsTranscriptHelp class>>pages (in category 'accessing') ----- - pages - ^# (transcript)! Item was removed: - ----- Method: SqueakToolsTranscriptHelp class>>transcript (in category 'pages') ----- - transcript - ^HelpTopic - title: 'The Transcript window' - contents: 'The Transcript window is often used for logging or printing results from text only code. - To open the Transcript use TheWorldMenu and choose ''open...''. Then choose ''Transcript''. - You can also type - - Transcript open - - in a Workspace and doIt. - '! Item was removed: - SqueakToolsHelp subclass: #SqueakToolsWorkspaceHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakToolsWorkspaceHelp class>>bookName (in category 'accessing') ----- - bookName - ^'Workspace'! Item was removed: - ----- Method: SqueakToolsWorkspaceHelp class>>openWorkspace (in category 'pages') ----- - openWorkspace - ^HelpTopic - title: 'Open a Workspace' - contents: 'You can open a Workspace window in any of the following ways: - - - Keyboard Shortcut: while pointing at an empty part of the Squeak window, press alt-k (in Windows) or cmd-k (on a Mac) - - World Menu: select "Workspace" - - Tools Flap: click on the Tools Flap. When it comes out, drag the Workspace icon out. - - Doit: select inside the following quote and doit: "Workspace open"'! Item was removed: - ----- Method: SqueakToolsWorkspaceHelp class>>pages (in category 'accessing') ----- - pages - ^#(workspace openWorkspace saveWorkspace)! Item was removed: - ----- Method: SqueakToolsWorkspaceHelp class>>saveWorkspace (in category 'pages') ----- - saveWorkspace - ^HelpTopic - title: 'Saving Workspace to a File' - contents: 'You can save the text content of a Workspace to a file by choosing the workspace menu (from within the workspace), then ''more...'', then ''save contents to file...''.'! Item was removed: - ----- Method: SqueakToolsWorkspaceHelp class>>workspace (in category 'pages') ----- - workspace - ^HelpTopic - title: 'What is a Workspace' - contents: 'A Workspace is a window used as a scratchpad area where fragments of Smalltalk code can be entered, stored, edited, and evaluated.'! Item was removed: - SqueakHelp subclass: #SqueakTutorials - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakTutorials class>>bookName (in category 'accessing') ----- - bookName - ^'Tutorials'! Item was removed: - ----- Method: SqueakTutorials class>>introduction (in category 'pages') ----- - introduction - "This method was automatically generated. Edit it using:" - "SqueakTutorials edit: #introduction" - ^HelpTopic - title: 'Introduction' - contents: - 'Here you will some short tutorials on how to use Squeak for daily tasks. Feel free to add your own.!!' readStream nextChunkText! Item was removed: - ----- Method: SqueakTutorials class>>pages (in category 'accessing') ----- - pages - ^#(introduction)! Item was removed: - SqueakTutorials subclass: #SqueakTutorialsCommandKey - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakTutorialsCommandKey class>>bookName (in category 'as yet unclassified') ----- - bookName - ^'Command Key Mappings'! Item was removed: - ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'as yet unclassified') ----- - commandKeyMappings - "This method was automatically generated. Edit it using:" - "SqueakTutorialsCommandKey edit: #commandKeyMappings" - ^HelpTopic - title: 'Command Key Mappings' - contents: - 'Lower-case command keys - (use with Cmd key on Mac and Alt key on other platforms) - a Select all - b Browse it (selection is a class name or cursor is over a class-list or message-list) - c Copy selection - d Do it (selection is a valid expression) - e Exchange selection with prior selection - f Find - g Find again - h Set selection as search string for find again - i Inspect it (selection is a valid expression, or selection is over an inspect-ilst) - j Again once (do the last text-related operation again) - k Set font - l Cancel - m Implementors of it (selection is a message selector or cursor is over a class-list or message-list) - n Senders of it (selection is a message selector or cursor is over a class-list or message-list) - o Spawn current method - p Print it (selection is a valid expression) - q Query symbol (toggle all possible completion for a given prefix) - r Recognizer - s Save (i.e. accept) - t Finds a Transcript (when cursor is over the desktop) - u Toggle alignment - v Paste - w Delete preceding word (over text); Close-window (over morphic desktop) - x Cut selection - y Swap characters - z Undo - - Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers. - - Upper-case command keys - (use with Shift-Cmd, or Ctrl on Mac - or Shift-Alt on other platforms; sometimes Ctrl works too) - A Advance argument - B Browse it in this same browser (in System browsers only) - C Compare the selected text to the clipboard contents - D Duplicate - E Method strings containing it - F Insert ''ifFalse:'' - G fileIn from it (a file name) - H cursor TopHome: - I Inspect via Object Explorer - J Again many (apply the previous text command repeatedly until the end of the text) - K Set style - L Outdent (move selection one tab-stop left) - M Select current type-in - N References to it (selection is a class name, or cursor is over a class-list or message-list) - O Open single-message browser (in message lists) - P Make project link - R Indent (move selection one tab-stap right) - S Search - T Insert ''ifTrue:'' - U Convert linefeeds to carriage returns in selection - V Paste author''s initials - W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop) - X Force selection to lowercase - Y Force selection to uppercase - Z Capitalize all words in selection - - Other special keys - Backspace Backward delete character - Del Forward delete character - Shift-Bksp Backward delete word - Shift-Del Forward delete word - Esc Pop up the Desktop Menu - \ Send top window to back - - Cursor keys - left, right, - up, down Move cursor left, right, up or down - Ctrl-left Move cursor left one word - Ctrl-right Move cursor right one word - Home Move cursor to begin of line or begin of text - End Move cursor to end of line or end of text - PgUp, Ctrl-up Move cursor up one page - PgDown, Ctrl-Dn Move cursor down one page - - Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems. - - Other Cmd-key combinations (not available on all platforms) - Return Insert return followed by as many tabs as the previous line - (with a further adjustment for additional brackets in that line) - Space Select the current word as with double clicking - - Enclose the selection in a kind of bracket. Each is a toggle. - (not available on all platforms) - Ctrl-( Enclose within ( and ), or remove enclosing ( and ) - Ctrl-[ Enclose within [ and ], or remove enclosing [ and ] - Crtl-{ Enclose within { and }, or remove enclosing { and } - Ctrl-< Enclose within < and >, or remove enclosing < and > - Ctrl-'' Enclose within '' and '', or remove enclosing '' and '' - Ctrl-" Enclose within " and ", or remove enclosing " and " - Note also that you can double-click just inside any of the above delimiters, - or at the beginning or end of a line, to select the text enclosed. - - Text Emphasis - (not available on all platforms) - Cmd-1 type the first method argument - Cmd-2 type the second method argument - Cmd-3 type the third method argument - Cmd-4 type the fourth method argument - Cmd-5 for future use - Cmd-6 color, action-on-click, link to class comment, link to method, url - Brings up a menu. To remove these properties, select - more than the active part and then use command-0. - Cmd-7 bold - Cmd-8 italic - Cmd-9 narrow (same as negative kern) - Cmd-0 plain text (resets all emphasis) - Cmd-- underlined (toggles it) - Cmd-= struck out (toggles it) - - Shift-Cmd-- (aka :=) negative kern (letters 1 pixel closer) - Shift-Cmd-+ positive kern (letters 1 pixel larger spread) - - Docking Bar - Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: - Ctrl-0 Activates Search Bar - Ctrl-1 Squeak menu - Ctrl-2 Projects menu - Ctrl-3 Tools menu - Ctrl-4 Apps menu - Ctrl-5 Extras menu - Ctrl-6 Windows menu - Ctrl-7 Help menu - !!' readStream nextChunkText! Item was removed: - ----- Method: SqueakTutorialsCommandKey class>>pages (in category 'as yet unclassified') ----- - pages - ^# (commandKeyMappings)! Item was removed: - SqueakTutorials subclass: #SqueakTutorialsOnImage - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakTutorialsOnImage class>>bookName (in category 'as yet unclassified') ----- - bookName - ^'The Squeak Image'! Item was removed: - ----- Method: SqueakTutorialsOnImage class>>pages (in category 'as yet unclassified') ----- - pages - ^# (theImage)! Item was removed: - ----- Method: SqueakTutorialsOnImage class>>theImage (in category 'as yet unclassified') ----- - theImage - ^HelpTopic - title: 'Working with the Squeak Image' - contents: 'Working with the ecosystem of objects in a Smalltalk image. - - The basic tool for this is called an Inspector. Whenever you have an expression, like "3 + 4", you press cmd-i to "inspect it", which opens an inspector on the result. This works in any text area. Try for example inspecting "self" in a class browser, and you will inspect the underlying class object (which the browser shows a high-level view of). - - In the Inspector you see the objects referenced by this object (via instance variables or indexed fields) in the left panel. Select any of them and choose "inspect" from the context menu (or press cmd-i again). This way you can inspect all the objects in the system. - - A more modern tool than the Inspector (which was around 40 years ago already) is the Object Explorer. It presents you a tree view of an object and its "children", which again are the instance variables and indexed fields of the object. Open it with cmd-shift-i (or "explore" in the context menu). - - You can also do the reverse. If you choose "objects pointing to this value" you get an inspector showing all the objects that directly point to this object. Similarly there is a "reverse explorer", which you can open by selecting "explore pointers". - - There are two roots to all the objects in the system: - - Smalltalk specialObjectsArray - - which basically holds everything the Virtual Machine needs to know about, and in turn almost every object in the whole image, and - - thisContext - - which is the current execution context, holding onto temporary objects. When a garbage collection is performed, any object not reachable form either of these two roots is removed from memory. - - An "interesting" global object to explore is - - Project current - - which holds your current workspace, in particular - - Project current world - - , the root of all morphs in the world. And of course - - Smalltalk - - itself is the dictionary that holds all global objects, including all classes (unless they are defined in a non-global environment). - - There is also a low-level way to enumerate all objects in memory. "self someObject" will return the very first object in memory (which happens to be the nil object), and "anObject nextObject" will return the next one: - - | object count | - count := 0. - object := self someObject. - [0 == object] - whileFalse: [count := count + 1. - object := object nextObject]. - count - - Interestingly, this also finds objects that are due to be garbage-collected. For example, if you accidentally closed a text window, there is a good chance its contents will still be in memory, and can be retrieved using an expression like - - ByteString allInstances last: 10 - - This makes use of the someInstance/nextInstance methods, which are similar to someObject/nextObject, but restricted to instances of one class only. - '! Item was removed: - SqueakTutorials subclass: #SqueakTutorialsOnXML - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Help-Squeak-Project'! Item was removed: - ----- Method: SqueakTutorialsOnXML class>>bookName (in category 'accessing') ----- - bookName - ^'XML'! Item was removed: - ----- Method: SqueakTutorialsOnXML class>>dataRetrieval (in category 'pages') ----- - dataRetrieval - ^HelpTopic - title: 'Retrieving XML data' - contents: - 'Retrieving data from XML documents is simple and easy in Squeak Smalltalk. This tutorial demonstrates the fundamentals with a straightforward approach where code can be tested right away either here or in a Workspace window. The beauty of Squeak Smalltalk resides in the possibility to evaluate, inspect, print and debug code anywhere and this window is no different. - - This tutorial demonstrates how to... - - * retrieve an XML document from the World Wide Web - * instantiate an XML document class - * inspect and understand the content of an XML document - * retrieve and display values from specific XML tags - - Retrieve an XML document from the World Wide Web - - There are many manners to retrieve data from the World Wide Web in Squeak Smalltalk. HTTPClient is among them and allows to download files in all simplicity. Select the following code snippet and inspect it (press alt-i). An Inspect window will open with the document loaded in memory. The result is a MIMEDocument object. - - HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. - - TIP: Select HTTPClient and browse it (press alt-b) to open a System Browser window on its class. HTTPClient does not have instance methods but it has class methods. Click on class to see class methods. - - Instantiate an XML Document - - An instance of MIMEDocument will not allow to retrieve XML data in a comprehensive manner because it does not understand the nature of XML. For this reason, it is necessary to parse the content of MIMEDocument using XMLDOMParser. XMLDOMParser>>parseDocumentFrom: requires a stream as a parameter and ReadStream will be used for this purpose. The following code snippet instantiates an XMLDocument using the content of the downloaded file. - - | doc | - doc := HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. - XMLDOMParser parseDocumentFrom: (ReadStream on: (doc content)). - - Inspect and understand the content of an XML document - - XML is a flexible document format and it is necessary to understand how each given XML file is structured in order to properly search, retrieve and manipulate data. Inspecting values is critical in a dynamic programming language and environment, such as Squeak Smalltalk. Select the previous code snippet and inspect it (press alt-i). - - Unfortunately, the Inspect window does not reveal a lot about the XML structure of the downloaded file. Select the previous code snippet once again and explore it (press alt and the capital letter i). An Explorer window will open with a tree outline on the instance of XMLDocument. - - The Inspect and Explorer windows tell a lot about an XMLDocument. The sections are instance variables and their values are displayed aside. In the Explorer window, unfold elementsAndContents. Unfold other sections as deemed necessary to understand the XML format and the data available. - - The gibberish coding is about to become clear. Open a Browser window from the world menu and right click in the first pane, select find class (press alt-f) and type XMLDocument to search for its class, or select the class name and browse it (press alt-b). However, it is suggested to read more about XMLParser and XMLParserTest first. - - Retrieve and display values from specific XML tags - - The downloaded XML file contains a list of items which are denoted by the tag name "item". The Explorer window revealed the content of interest is located at the array index 1 of the elementsAndContents, which can be accessed through XMLDocument>>root. - - TIP: Some XML documents have additional components contained within its file, such as XMLPI (XML Processing Instructions). For this reason, the root may lead to this rather than the data which will be indexed at 2 or more. It is necessary to use XMLNodeWithElements>>elements, e.g. (xml elements at: 2), in order to access subsequent data. - - The following code snippet will display items in a Transcript window. Open a Transcript window using the world menu before selecting and executing the code. Select the code snippet and execute it (press alt-d). - - | doc xml | - doc := HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. - xml := XMLDOMParser parseDocumentFrom: (ReadStream on: (doc content)). - xml root tagsNamed: #item do: [:e | - Transcript show: (e asString); cr. - ]. - - An XML item looks like this: - - <item> - <title>HelpSystem-Core-tbn.46.mcz</title> - <link>http://source.squeak.org/trunk.html</link> - <description>throw out pharo specific stuff since we are now integrated in squeak (and pharo too where squeak specific stuff was removed)</description> - <pubDate>Sun, 02 May 2010 20:23:49 +0000</pubDate> - <author>Torsten Bergmann <Torsten.Bergmann(a)astares.de></author> - <category>The Trunk</category> - <enclosure length="27288" type="application/x-monticello" url="http://source.squeak.org/trunk/HelpSystem-Core-tbn.46.mcz"/> - <guid isPermaLink="false"/> </item> - - The following code snippet uses information learned, retrieves each comment and displays them in a Transcript window. Notice an author can have a nil value and is handled accordingly. - - | doc xml | - doc := HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. - xml := XMLDOMParser parseDocumentFrom: (ReadStream on: (doc content)). - xml root tagsNamed: #item do: [:e | - Transcript - show: ''Date: '', ((e firstTagNamed: #pubDate) contentString); cr; - show: ''Title: '', ((e firstTagNamed: #title) contentString); cr; - show: ''Author: '', - (((e firstTagNamed: #author) notNil) - ifTrue: [(e firstTagNamed: #author) contentString] - ifFalse: ['''']); cr; - show: ''Description: '', ((e firstTagNamed: #description) contentString); cr; cr. - ]. - - An item will now look like: - - Date: Sun, 02 May 2010 20:23:49 +0000 - Title: HelpSystem-Core-tbn.46.mcz - Author: Torsten Bergmann <Torsten.Bergmann(a)astares.de> - Description: throw out pharo specific stuff since we are now integrated in squeak (and pharo too where squeak specific stuff was removed) - '! Item was removed: - ----- Method: SqueakTutorialsOnXML class>>pages (in category 'accessing') ----- - pages - ^# (dataRetrieval)! Item was removed: - ----- Method: Utilities class>>openCommandKeyHelp (in category '*Help-Squeak-Project-support windows') ----- - openCommandKeyHelp - "Open a window giving command key help." - "Utilities openCommandKeyHelp" - - HelpBrowser openOn: SqueakTutorialsCommandKey! Item was removed: - (PackageInfo named: 'Help-Squeak-Project') postscript: '| aForm aSecondForm | (excessive size, no diff calculated)

1 0

The Trunk: WebClient-HTTP-cmm.3.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of WebClient-HTTP to project The Trunk: http://source.squeak.org/trunk/WebClient-HTTP-cmm.3.mcz ==================== Summary ==================== Name: WebClient-HTTP-cmm.3 Author: cmm Time: 1 July 2015, 4:18:01.916 pm UUID: 6f6573bd-7d5b-425f-9fcb-632b4a59b792 Ancestors: WebClient-HTTP-topa.2 Recategorize methods so they are no longer overrides. WebClient is now part of Squeak. =============== Diff against WebClient-HTTP-topa.2 =============== Item was changed: + ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category '*WebClient-HTTP-override') ----- httpGet: url args: args user: user passwd: passwd "Upload the contents of the stream to a file on the server. WARNING: This method will send a basic auth header proactively. This is necessary to avoid breaking MC and SqueakSource since SS does not return a 401 when accessing a private (global no access) repository." | urlString xhdrs client resp progress | "Normalize the url" urlString := (Url absoluteFromText: url) asString. "Some raw extra headers which historically have been added" xhdrs := HTTPProxyCredentials, HTTPBlabEmail. "may be empty" client := WebClient new. client username: user; password: passwd. ^[resp := client httpGet: urlString do:[:req| "HACK: Proactively send a basic auth header. See comment above." req headerAt: 'Authorization' put: 'Basic ', (user, ':', passwd) base64Encoded. "Accept anything" req addHeader: 'Accept' value: '*/*'. "Add the additional headers" (WebUtils readHeadersFrom: xhdrs readStream) do:[:assoc| req addHeader: assoc key value: assoc value]]. progress := [:total :amount| (HTTPProgress new) total: total; amount: amount; signal: 'Downloading...' ]. "Simulate old HTTPSocket return behavior" (resp code between: 200 and: 299) ifTrue:[^(RWBinaryOrTextStream with: (resp contentWithProgress: progress)) reset] ifFalse:[resp asString, resp content]. ] ensure:[client destroy]. ! Item was changed: + ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category '*WebClient-HTTP-override') ----- httpGetDocument: url args: args accept: mimeType request: requestString "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." | client xhdrs resp urlString progress | "Normalize the url" urlString := (Url absoluteFromText: url) asString. args ifNotNil: [ urlString := urlString, (self argString: args) ]. "Some raw extra headers which historically have been added" xhdrs := HTTPProxyCredentials, HTTPBlabEmail, "may be empty" requestString. "extra user request. Authorization" client := WebClient new. ^[resp := client httpGet: urlString do:[:req| "Add ACCEPT header" mimeType ifNotNil:[req headerAt: 'Accept' put: mimeType]. "Always accept plain text" req addHeader: 'Accept' value: 'text/html'. "Add the additional headers" (WebUtils readHeadersFrom: xhdrs readStream) do:[:assoc| req addHeader: assoc key value: assoc value]]. progress := [:total :amount| (HTTPProgress new) total: total; amount: amount; signal: 'Downloading...' ]. "Simulate old HTTPSocket return behavior" (resp code between: 200 and: 299) ifTrue:[MIMEDocument contentType: resp contentType content: (resp contentWithProgress: progress) url: url] ifFalse:[resp asString, resp content]. ] ensure:[client destroy]. ! Item was changed: + ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category '*WebClient-HTTP-override') ----- httpPost: url args: args user: user passwd: passwd "WARNING: This method will send a basic auth header proactively. This is necessary to avoid breaking MC and SqueakSource since SS does not return a 401 when accessing a private (global no access) repository." | argString xhdrs client resp urlString | "Normalize the url" urlString := (Url absoluteFromText: url) asString. args ifNotNil: [ argString := self argString: args. argString first = $? ifTrue: [argString := argString allButFirst]. ]. "Some raw extra headers which historically have been added" xhdrs := HTTPProxyCredentials, HTTPBlabEmail. "may be empty" client := WebClient new. client username: (user ifEmpty:[nil]); password: (passwd ifEmpty:[nil]). ^[resp := client httpPost: urlString content: (argString ifNil:['']) type: 'application/x-www-form-urlencoded' do:[:req| "HACK: Proactively send a basic auth header. See comment above." req headerAt: 'Authorization' put: 'Basic ', (user, ':', passwd) base64Encoded. "Accept anything" req addHeader: 'Accept' value: '*/*'. "Add the additional headers" (WebUtils readHeadersFrom: xhdrs readStream) do:[:assoc| req addHeader: assoc key value: assoc value]]. "Simulate old HTTPSocket return behavior" (resp code between: 200 and: 299) ifTrue:[MIMEDocument contentType: resp contentType content: resp content url: url] ifFalse:[resp asString, resp content]. ] ensure:[client destroy]. ! Item was changed: + ----- Method: HTTPSocket class>>httpPost:content:type:accept:request: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpPost:content:type:accept:request: (in category '*WebClient-HTTP-override') ----- httpPost: url content: postData type: contentType accept: mimeType request: requestString "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" | urlString xhdrs client resp | "Normalize the url" urlString := (Url absoluteFromText: url) asString. "Some raw extra headers which historically have been added" xhdrs := HTTPProxyCredentials, HTTPBlabEmail, "may be empty" requestString. "extra user request. Authorization" client := WebClient new. ^[resp := client httpPost: urlString content: (postData ifNil:['']) type: contentType do:[:req| "Add ACCEPT header" mimeType ifNotNil:[req headerAt: 'Accept' put: mimeType]. "Always accept plain text" req addHeader: 'Accept' value: 'text/html'. "Add the additional headers" (WebUtils readHeadersFrom: xhdrs readStream) do:[:assoc| req addHeader: assoc key value: assoc value]]. "Simulate old HTTPSocket return behavior" (resp code between: 200 and: 299) ifTrue:[MIMEDocument contentType: resp contentType content: resp content url: url] ifFalse:[resp asString, resp content]. ] ensure:[client destroy]. ! Item was changed: + ----- Method: HTTPSocket class>>httpPostDocument:args:accept:request: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpPostDocument:args:accept:request: (in category '*WebClient-HTTP-override') ----- httpPostDocument: url args: args accept: mimeType request: requestString "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" | argString | args ifNotNil: [ argString := self argString: args. argString first = $? ifTrue: [argString := argString allButFirst]. ]. ^self httpPost: url content: argString type: 'application/x-www-form-urlencoded' accept: mimeType request: requestString! Item was changed: + ----- Method: HTTPSocket class>>httpPostMultipart:args:accept:request: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpPostMultipart:args:accept:request: (in category '*WebClient-HTTP-override') ----- httpPostMultipart: url args: argsDict accept: mimeType request: requestString " do multipart/form-data encoding rather than x-www-urlencoded " | mimeBorder argsStream | mimeBorder := '----squeak-georgia-tech-', Time millisecondClockValue printString, '-csl-cool-stuff-----'. "encode the arguments dictionary" argsStream := WriteStream on: String new. argsDict associationsDo: [:assoc | assoc value do: [ :value | | fieldValue | "print the boundary" argsStream nextPutAll: '--', mimeBorder; crlf. " check if it's a non-text field " argsStream nextPutAll: 'Content-disposition: multipart/form-data; name="', assoc key, '"'. (value isKindOf: MIMEDocument) ifFalse: [fieldValue := value] ifTrue: [ argsStream nextPutAll: ' filename="'; nextPutAll: value url pathForFile; nextPut: $"; crlf; nextPutAll: 'Content-Type: '; nextPutAll: value contentType. fieldValue := (value content ifNil: [(FileStream fileNamed: value url pathForFile) contentsOfEntireFile] ifNotNil: [value content]) asString]. " Transcript show: 'field=', key, '; value=', fieldValue; cr. " argsStream crlf; crlf; nextPutAll: fieldValue; crlf ]]. argsStream nextPutAll: '--', mimeBorder, '--'. ^self httpPost: url content: argsStream contents type: 'multipart/form-data; boundary=', mimeBorder accept: mimeType request: requestString ! Item was changed: + ----- Method: HTTPSocket class>>httpPostToSuperSwiki:args:accept:request: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpPostToSuperSwiki:args:accept:request: (in category '*WebClient-HTTP-override') ----- httpPostToSuperSwiki: url args: argsDict accept: mimeType request: requestString | mimeBorder argString | mimeBorder := '---------SuperSwiki',Time millisecondClockValue printString,'-----'. argString := String streamContents: [ :strm | strm nextPutAll: mimeBorder; crlf. argsDict associationsDo: [:assoc | assoc value do: [ :value | strm nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"'; crlf; crlf; nextPutAll: value; crlf; crlf; nextPutAll: mimeBorder; crlf. ] ]. ]. ^self httpPost: url content: argString type: 'multipart/form-data; boundary=', mimeBorder accept: mimeType request: requestString ! Item was changed: + ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category '*webclient-http') ----- - ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category '*WebClient-HTTP-override') ----- httpPut: contents to: url user: user passwd: passwd "Upload the contents of the stream to a file on the server WARNING: This method will send a basic auth header proactively. This is necessary to avoid breaking MC and SqueakSource since SS does not return a 401 when accessing a private (global no access) repository." | urlString xhdrs client resp | "Normalize the url" urlString := (Url absoluteFromText: url) asString. "Some raw extra headers which historically have been added" xhdrs := HTTPProxyCredentials, HTTPBlabEmail. "may be empty" client := WebClient new. client username: (user ifEmpty:[nil]); password: (passwd ifEmpty:[nil]). ^[resp := client httpPut: urlString content: contents type: nil do:[:req| "HACK: Proactively send a basic auth header. See comment above." req headerAt: 'Authorization' put: 'Basic ', (user, ':', passwd) base64Encoded. "Accept anything" req addHeader: 'Accept' value: '*/*'. "Add the additional headers" (WebUtils readHeadersFrom: xhdrs readStream) do:[:assoc| req addHeader: assoc key value: assoc value]]. "Simulate old HTTPSocket return behavior" resp asString, resp content ] ensure:[client destroy]. !

1 0

Re: [squeak-dev] The Trunk: Services-Base-eem.56.mcz
by tim Rowledge 01 Jul '15

01 Jul '15

On 01-07-2015, at 7:57 PM, commits(a)source.squeak.org wrote: > Eliot Miranda uploaded a new version of Services-Base to project The Trunk: > http://source.squeak.org/trunk/Services-Base-eem.56.mcz > > ==================== Summary ==================== > > Name: Services-Base-eem.56 > Author: eem > Time: 30 June 2015, 3:34:50.838 pm > UUID: 2e8b9c56-6312-4a69-b65c-164ab583f617 > Ancestors: Services-Base-mt.55 > > ServicePreferences as per System-eem.747. Move preferences dictionary from class var to inst var. > > =============== Diff against Services-Base-mt.55 =============== > > Item was added: > + (PackageInfo named: 'Services-Base') preamble: '(Smalltalk classNamed: #ServicePreferences) ifNotNil: > + [:sp| > + (sp instVarNamed: ''preferencesDictionary'') ifNil: > + [(sp classPool at: #ServiceDictionaryOfPreferences) ifNotNil: > + [:dictionary| > + sp > + instVarNamed: ''preferencesDictionary'' > + put: dictionary]]]’! The preamble breaks in a spur (15046) image; there is no such instvar. Unsurprisingly this is the same from both ‘update Squeak’ and manually loading the mcz. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Make it right before you make it faster.

2 1

Re: [squeak-dev] The Trunk: System-cmm.725.mcz
by Levente Uzonyi 01 Jul '15

01 Jul '15

On Mon, 27 Apr 2015, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-cmm.725.mcz > > ==================== Summary ==================== > > Name: System-cmm.725 > Author: cmm > Time: 27 April 2015, 3:20:18.66 pm > UUID: b166e202-b3c3-4232-a17e-cd55a873fa50 > Ancestors: System-mt.724 > > - Attempting to load preferences is blowing up, fix by restoring the old one-click behavior. > - Proper fix for browsing allStoresInto: SomeClassVar from: aClassOrMetaclass, so that all stores occurring in either the instance or class side will be revealed even if the browse was initiated from the class-side. > > =============== Diff against System-mt.724 =============== > > Item was changed: > ----- Method: Preferences class>>preferenceAt:ifAbsent: (in category 'preference-object access') ----- > preferenceAt: aSymbol ifAbsent: aBlock > "Answer the Preference object at the given symbol, or the value of aBlock if not present" > > + ^self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | > + dictionaryOfPreferences at: aSymbol ifAbsent: aBlock ]! > - self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | > - dictionaryOfPreferences > - at: aSymbol > - ifPresent: [ :preference | ^preference ] ]. > - ^aBlock value! The above change restores the old behavior of locking up the image, so it should be reverted. An additional comment explaininng why aBlock must not be evaluated inside the argument of #accessDictionaryOfPreferencesIn: would be helpful. It would be even better to finally get rid of DictionaryOfPreferences. Levente

4 14

The Trunk: Help-Squeak-Project-cmm.25.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-cmm.25.mcz ==================== Summary ==================== Name: Help-Squeak-Project-cmm.25 Author: cmm Time: 1 July 2015, 3:34:35.436 pm UUID: 84a2402f-811d-4a8c-9459-f6af9d8d9b21 Ancestors: Help-Squeak-Project-kfr.24 - Update internal release notes in the Help Browser. (no need to use a release-specific method). - Release Notes has duplication with the one in TheWorldMainDockingBar which will be addressed later. =============== Diff against Help-Squeak-Project-kfr.24 =============== Item was changed: ----- Method: SqueakProjectHelp class>>pages (in category 'accessing') ----- pages + ^#(releaseNotes extendingTheSystem squeakResourcesOnline squeakUserInterface workingWithSqueak)! - ^#(releaseNotes4point5 extendingTheSystem squeakResourcesOnline squeakUserInterface workingWithSqueak)! Item was added: + ----- Method: SqueakProjectHelp class>>releaseNotes (in category 'pages') ----- + releaseNotes + "This method was automatically generated. Edit it using:" + "a HelpBrowser edit: #releaseNotes" + ^HelpTopic + title: 'Release Notes' + contents: TheWorldMainDockingBar releaseNotes "<--- ugh, we will fix this later, for now may we not have TWO copies of the 8K release notes string in memory?"! Item was removed: - ----- Method: SqueakProjectHelp class>>releaseNotes4point5 (in category 'pages') ----- - releaseNotes4point5 - ^HelpTopic - title: 'Squeak 4.5 Theodor' - icon: (HelpIcons iconNamed: #squeakIcon) - contents: - 'Squeak 4.5 ---- Theodor - =================== - - ______________________________________________ - Language enhancements: - - Environments - Environments allows multiple classes with the same name to exist in the same image, with code referencing through its class'' "environment". - - Collections - New and improved sorting utilities for Arrays and OrderedCollections. - New FloatCollection inherits the convenient add:/remove: API of OrderedCollection, but using an internal FloatArray for better efficiency. - An all-new LRUCache implementation. - Promise is now a fully chainable object with decent error handling. - Compiler - - Numerics - Faster and better Random. - log/ln fixed for integers. - - Dates and Times - New methods provide access to primitive 240 and 241, which can provide microsecond resolution timestamps on Cog VMs. - New convenience methods allow creating DateAndTimes relative to now (e.g., "5 minutes ago"). - Parsing improvements. - - Text, Graphics, Sound - Form>pixelValueAt: now makes use of the new primitivePixelValueAt:, avoiding the overhead of a full BitBlt. - Elimination of the dual hierarchy of NewParagraph & MultiNewParagraph etc and TextStopConditions and lots of Scanner improvements. - PaintBoxMorph re-engineering. - ADPCMCodec performance improvement. - - ______________________________________________ - IDE, Monticello and Trunk process improvements: - - Several MVC fixes allow debugging in MVC once again. - Smart-Splitters causes the bars between browser panes to automatically optimize their position. - Fixed color-selection from anywhere on the screen working again. - Improved command-line interface via Smalltalk run: [ :arg1 :arg2 | ... ]. - squeakDebug.log report length is now settable. - MCReorganizationPreloader now resolves moves between arbitrary packages, independent of their order in the configuration. - mcz/snapshot/source.st now encoded in UTF8 instead of latin-1. - New pre-selection highlight feature for lists. - System space analysis now available in Help | About. - Message-traces can be pared more easily. - - ______________________________________________ - Configuration - Lots of improvements in the CI build/test slave. - Installer now documents externally-loadable packages as simple literal structures that can be merged via Installer>>#merge:. - MC ancestry history strings can now be stubbed for a smaller image and sustainable MC history. - - ______________________________________________ - History and Accounting Tools - A great new historical website by Bob Arning. - MC history and origin is now available for methods and class-definitions from browser menus. - A new amazing ObjectHistory makes it possible to efficiently track the born-on date of any object to a resolution of one minute. - Added "search history" to Package history browser. - - ______________________________________________ - Fixes and cleanups - Packages organized toward eliminating circular dependencies, and with proper concern for existing and future UI frameworks. - Updated uses of SmalltalkImage current to, simply, "Smalltalk." - Moving away from use of Utilities. - More preferences made pragma-based. - Compiler factorings and cleanups. - Diminished excessive usage of ReadWriteStream. - ProtoObject API balanced and minimal. - Moved classifying and logging behavior out of Compiler (a responsibility of Behavior). - - ______________________________________________ - Application Upgrade Notes - Default Float printing is now true to its internal representation. Apps must now use appropriate methods to format Floats rather than roundTo:. - ($a to: $b) now returns ''ab'' rather than #($a $b). - Remove OneCharacterSymbols optimization. - LRUCache instance migrations, if any. See post-scripts in Collections-ul.546, 547 - Rectangles with 0 area (e.g., lines) can now intersect. - - - - This release is dedicated - to the memory of our friend - Andreas Raab (1968 -- 2013) - !! - ]style[(10 1 4 1 7 1 19 1 1 47 22 2 13 142 11 329 8 57 15 237 21 358 48 720 13 321 28 372 18 522 25 382 1 5 7 4 9 56 1)ba2FBitstreamVeraSerif#32.0,a2FBitstreamVeraSerif#32.0,a2--FBitstreamVeraSerif#32.0,a2FBitstreamVeraSerif#32.0,ia2FBitstreamVeraSerif#32.0,FBitstreamVeraSerif#24.0a2,FBitstreamVeraSerif#24.0----a2,FBitstreamVeraSerif#24.0a2,,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,bFBitstreamVeraSerif#16.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,FBitstreamVeraSerif#24.0,FBitstreamVeraSerif#16.0,,FBitstreamVeraSerif#16.0ia2,FBitstreamVeraSerif#16.0iba2,FBitstreamVeraSerif#16.0ia2,FBitstreamVeraSerif#16.0iba2,FBitstreamVeraSerif#16.0ia2,!!' readStream nextChunkText!

1 0

The Trunk: Network-cmm.161.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-cmm.161.mcz ==================== Summary ==================== Name: Network-cmm.161 Author: cmm Time: 1 July 2015, 3:26:03.655 pm UUID: af917aa1-ce76-460b-ba1a-7fb49700f44a Ancestors: Network-ul.160 Remove the methods overridden by WebClient, since that has now been folded into base Squeak. =============== Diff against Network-ul.160 =============== Item was removed: - ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category 'get the page') ----- - httpGet: url args: args user: user passwd: passwd - "Upload the contents of the stream to a file on the server. - - WARNING: This method will send a basic auth header proactively. - This is necessary to avoid breaking MC and SqueakSource since SS does not - return a 401 when accessing a private (global no access) repository." - - | authorization result | - authorization := (user , ':' , passwd) base64Encoded. - result := self - httpGet: url args: args accept: '*/*' - request: 'Authorization: Basic ' , authorization , String crlf. - ^result - ! Item was removed: - ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category 'get the page') ----- - httpGetDocument: url args: args accept: mimeType request: requestString - "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" - - "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." - - | urlString | - "Normalize the url" - urlString := (Url absoluteFromText: url) asString. - - args ifNotNil: [ - urlString := urlString, (self argString: args) - ]. - - ^(self httpRequestHandler) - httpRequest: 'GET' url: urlString headers:( - (mimeType ifNil:[''] ifNotNil:['Accept: ', mimeType, String crlf]), - 'Accept: text/html', String crlf, - HTTPProxyCredentials, - HTTPBlabEmail, - requestString - ) content: nil response: nil.! Item was removed: - ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category 'get the page') ----- - httpPost: url args: args user: user passwd: passwd - - "WARNING: This method will send a basic auth header proactively. - This is necessary to avoid breaking MC and SqueakSource since SS does not - return a 401 when accessing a private (global no access) repository." - - | authorization | - authorization := (user , ':' , passwd) base64Encoded. - ^self - httpPostDocument: url args: args accept: '*/*' - request: 'Authorization: Basic ' , authorization , String crlf - ! Item was removed: - ----- Method: HTTPSocket class>>httpPost:content:type:accept:request: (in category 'get the page') ----- - httpPost: url content: postData type: contentType accept: mimeType request: requestString - "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" - - | urlString | - "Normalize the url" - urlString := (Url absoluteFromText: url) asString. - - ^(self httpRequestHandler) - httpRequest: 'POST' url: urlString headers:( - 'Accept: ', mimeType, String crlf, - 'Accept: text/html', String crlf, - 'Content-Type: ', contentType, String crlf, - 'Content-Length: ', (postData ifNil:['']) size, String crlf, - HTTPProxyCredentials, - HTTPBlabEmail, - requestString "extra user request. Authorization" - ) content: (postData ifNil:['']) response: nil! Item was removed: - ----- Method: HTTPSocket class>>httpPostDocument:args:accept:request: (in category 'get the page') ----- - httpPostDocument: url args: args accept: mimeType request: requestString - "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" - - | argString | - args ifNotNil: [ - argString := self argString: args. - argString first = $? ifTrue: [argString := argString allButFirst]. - ]. - - ^self httpPost: url - content: argString - type: 'application/x-www-form-urlencoded' - accept: mimeType - request: requestString! Item was removed: - ----- Method: HTTPSocket class>>httpPostMultipart:args:accept:request: (in category 'get the page') ----- - httpPostMultipart: url args: argsDict accept: mimeType request: requestString - " do multipart/form-data encoding rather than x-www-urlencoded " - - | mimeBorder argsStream | - mimeBorder := '----squeak-georgia-tech-', Time millisecondClockValue printString, '-csl-cool-stuff-----'. - "encode the arguments dictionary" - argsStream := WriteStream on: String new. - argsDict associationsDo: [:assoc | - assoc value do: [ :value | | fieldValue | - "print the boundary" - argsStream nextPutAll: '--', mimeBorder, String crlf. - " check if it's a non-text field " - argsStream nextPutAll: 'Content-disposition: multipart/form-data; name="', assoc key, '"'. - (value isKindOf: MIMEDocument) - ifFalse: [fieldValue := value] - ifTrue: [argsStream nextPutAll: ' filename="', value url pathForFile, '"', String crlf, 'Content-Type: ', value contentType. - fieldValue := (value content - ifNil: [(FileStream fileNamed: value url pathForFile) contentsOfEntireFile] - ifNotNil: [value content]) asString]. - " Transcript show: 'field=', key, '; value=', fieldValue; cr. " - argsStream nextPutAll: String crlf, String crlf, fieldValue, String crlf. - ]]. - argsStream nextPutAll: '--', mimeBorder, '--'. - - ^self httpPost: url - content: argsStream contents - type: 'multipart/form-data; boundary=', mimeBorder - accept: mimeType - request: requestString - ! Item was removed: - ----- Method: HTTPSocket class>>httpPostToSuperSwiki:args:accept:request: (in category 'get the page') ----- - httpPostToSuperSwiki: url args: argsDict accept: mimeType request: requestString - - | mimeBorder argString | - mimeBorder := '---------SuperSwiki',Time millisecondClockValue printString,'-----'. - argString := String streamContents: [ :strm | - strm nextPutAll: mimeBorder, String crlf. - argsDict associationsDo: [:assoc | - assoc value do: [ :value | - strm - nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"'; - nextPutAll: String crlf; - nextPutAll: String crlf; - nextPutAll: value; - nextPutAll: String crlf; - nextPutAll: String crlf; - nextPutAll: mimeBorder; - nextPutAll: String crlf. - ] - ]. - ]. - - ^self httpPost: url - content: argString - type: 'multipart/form-data; boundary=', mimeBorder - accept: mimeType - request: requestString - ! Item was removed: - ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category 'get the page') ----- - httpPut: contents to: url user: user passwd: passwd - "Upload the contents of the stream to a file on the server - - WARNING: This method will send a basic auth header proactively. - This is necessary to avoid breaking MC and SqueakSource since SS does not - return a 401 when accessing a private (global no access) repository." - - | urlString resp header | - - "Normalize the url" - urlString := (Url absoluteFromText: url) asString. - - resp := (self httpRequestHandler) - httpRequest: 'PUT' url: urlString headers:( - 'Authorization: Basic ', (user, ':', passwd) base64Encoded, String crlf, - 'Accept: */*', String crlf, - 'Content-Type: application/octet-stream', String crlf, - 'Content-Length: ', (contents ifNil:['']) size, String crlf, - HTTPProxyCredentials, - HTTPBlabEmail - ) content: contents response:[:rr| header := rr]. - ^resp isString ifTrue:[header, resp] ifFalse:[header, resp content]!

1 0

The Trunk: System-eem.749.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.749.mcz ==================== Summary ==================== Name: System-eem.749 Author: eem Time: 1 July 2015, 1:02:40.277 pm UUID: e067c0b6-9b7b-49ca-ae4d-e5b2e9c0bc8e Ancestors: System-ul.748 Revert storePreferencesIn: to work with a copy, which accords with the old code. Go for brevity in prefEvent:. =============== Diff against System-ul.748 =============== Item was changed: ----- Method: Preferences class>>prefEvent: (in category 'dynamic preferences') ----- prefEvent: anEvent "Check if this system event defines or removes a preference. TODO: Queue the event and handle in background process. There is zero reason to be so eager here." + | aClass aSelector method | - - | aClass aSelector | anEvent itemKind = SystemChangeNotifier classKind ifTrue: [^anEvent isRemoved ifTrue: [self removePreferencesFor: anEvent item]]. (anEvent itemKind = SystemChangeNotifier methodKind and: [(aClass := anEvent itemClass) isMeta]) ifFalse: "ignore instance methods" [^self]. aClass := aClass theNonMetaClass. aSelector := anEvent itemSelector. anEvent isRemoved ifTrue: [self atomicUpdatePreferences: [ :copyOfDictionaryOfPreferences | copyOfDictionaryOfPreferences removeKey: (aClass name,'>>', aSelector) asSymbol ifAbsent: []]] ifFalse: [(anEvent isAdded or: [anEvent isModified]) ifTrue: + [method := anEvent item. + method pragmas do: + [:pragma| + self respondToPreferencePragmasInMethod: method class: aClass]]]! - [self respondToPreferencePragmasInMethod: anEvent item class: aClass]]! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'personalization') ----- + storePreferencesIn: aFileName + | stream prefsSnapshot | - storePreferencesIn: aFileName - - | stream | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. + prefsSnapshot := preferencesDictionary copy. + prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. + stream nextPut: prefsSnapshot. - preferencesDictionary keysAndValuesDo: [:key :pref | preferencesDictionary at: key put: pref asPreference]. - stream nextPut: preferencesDictionary. stream nextPut: (Smalltalk isMorphic ifTrue:[World fillStyle] ifFalse:[DesktopColor]). stream close!

1 0

The Trunk: Services-Base-eem.56.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Eliot Miranda uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-eem.56.mcz ==================== Summary ==================== Name: Services-Base-eem.56 Author: eem Time: 30 June 2015, 3:34:50.838 pm UUID: 2e8b9c56-6312-4a69-b65c-164ab583f617 Ancestors: Services-Base-mt.55 ServicePreferences as per System-eem.747. Move preferences dictionary from class var to inst var. =============== Diff against Services-Base-mt.55 =============== Item was added: + (PackageInfo named: 'Services-Base') preamble: '(Smalltalk classNamed: #ServicePreferences) ifNotNil: + [:sp| + (sp instVarNamed: ''preferencesDictionary'') ifNil: + [(sp classPool at: #ServiceDictionaryOfPreferences) ifNotNil: + [:dictionary| + sp + instVarNamed: ''preferencesDictionary'' + put: dictionary]]]'! Item was changed: Preferences subclass: #ServicePreferences instanceVariableNames: '' + classVariableNames: '' - classVariableNames: 'ServiceDictionaryOfPreferences' poolDictionaries: '' category: 'Services-Base-GUI'! !ServicePreferences commentStamp: 'rr 7/10/2006 15:36' prior: 0! I store the preferences related to the servicse framework. The preferences are editable via the Services Browser, based on Hernan Tylim's Preference Browser. The main preference categories for services are: -- keyboard shortcuts -- : several text preferences, one per keyboard shortcuts. To edit them, enter a service identifier (equal to the method name under which it is defined in its ServiceProvider), and accept with alt-s or enter -- menu contents -- : All the service categories in the image have a text preference under here. To edit it, enter the services identifiers you wish to put in this category, separating them with a single space character. The order is important: it defines the order of the items in menus. -- settings -- : general boolean preferences. Then there is a preference category for each provider in the image. Under each, you will find: A boolean preference for each service in the image. If it is false, the service will not appear in menus. The text preference for each service category defined by the service provider. This is the same as the one appearing in the menu contents preference category.! Item was removed: - ----- Method: ServicePreferences class>>dictionaryOfPreferences (in category 'accessing') ----- - dictionaryOfPreferences - ServiceDictionaryOfPreferences - ifNil: [ServiceDictionaryOfPreferences := IdentityDictionary new]. - ^ ServiceDictionaryOfPreferences ! Item was removed: - ----- Method: ServicePreferences class>>dictionaryOfPreferences: (in category 'accessing') ----- - dictionaryOfPreferences: aDictionary - ServiceDictionaryOfPreferences := aDictionary! Item was changed: ----- Method: ServicePreferences class>>wipe (in category 'accessing') ----- wipe + preferencesDictionary := nil! - self dictionaryOfPreferences: nil!

1 0

Squeak 4.6: ReleaseBuilder-mt.125.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of ReleaseBuilder to project Squeak 4.6: http://source.squeak.org/squeak46/ReleaseBuilder-mt.125.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.125 Author: mt Time: 1 July 2015, 10:15:47.361 am UUID: 3338b57a-ab20-ac44-b37b-d4e09f23e453 Ancestors: ReleaseBuilder-cmm.124 Restore setting the background in release builder's #setPreferences46 so that our build server produces trunk images with correct preferences again. #prepareNewBuild: is agnostic to the current release version. Note: We should find out why #prepareNewBuild: requires another try to set the background and where that background gets overridden. It is not good to put version-specific code into a version-agnostic method. =============== Diff against ReleaseBuilder-cmm.123 =============== Item was removed: - SystemOrganization addCategory: #ReleaseBuilder! Item was removed: - Object subclass: #ReleaseBuilder - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ReleaseBuilder'! - - !ReleaseBuilder commentStamp: 'fbs 5/2/2013 22:36' prior: 0! - I'm the script that prepares a trunk image for release. Which version of Squeak I release is stored in ReleaseBuilder class >> squeakVersion.! Item was removed: - ----- Method: ReleaseBuilder class>>buildRepository (in category 'private') ----- - buildRepository - ^ MCRepository trunk! Item was removed: - ----- Method: ReleaseBuilder class>>checkForDirtyPackages (in category 'scripts') ----- - checkForDirtyPackages - MCWorkingCopy checkModified: true. - (MCWorkingCopy allManagers anySatisfy: - [ : wc | (wc ancestors size = 1) not or: [ wc modified ] ]) ifTrue: [ Warning signal: 'There are dirty and/or unmerged packages.' ]! Item was removed: - ----- Method: ReleaseBuilder class>>configureDesktop (in category 'private') ----- - configureDesktop - self deleteAllWindows. - MorphicProject initialize. - Project current resourceManager reset. "Zap eventual resources" - "Replace docking bar instance in case its code has changed." - Project current removeMainDockingBar. - TheWorldMainDockingBar updateInstances! Item was removed: - ----- Method: ReleaseBuilder class>>deleteAllWindows (in category 'private') ----- - deleteAllWindows - (SystemWindow - windowsIn: ActiveWorld - satisfying: - [ : window | true ]) do: - [ : window | [ window makeClosable; delete ] - on: ProvideAnswerNotification - do: [ : noti | noti resume: true ] ]! Item was removed: - ----- 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! Item was removed: - ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') ----- - prepareNewBuild - self prepareNewBuild: self buildRepository.! Item was removed: - ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- - prepareNewBuild: anMCRepository - "ReleaseBuilderTrunk prepareNewBuild" - "Prepare everything that should be done for a new image build" - MCMcmUpdater updateMissingPackages: true. - MCMcmUpdater enableUpdatesForAllPackages. - TTCFont registerAll. - RealEstateAgent standardSize: 600 @ 400. - SystemVersion newVersion: self versionString. - SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). - " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." - self - setDisplayExtent: 800 @ 600 ; - switchToNewRepository: anMCRepository ; - setPreferences ; "<-- remove this after defaultValueTableForCurrentRelease is fixed up." - checkForDirtyPackages ; - configureDesktop. - Smalltalk cleanUp: true. - "Let's be explicit about clearing passwords for the publicly-consumed build." - "clearPasswords is not very thorough, it should be improved." - MCHttpRepository clearCredentials. - Utilities setAuthorInitials: String empty. - Environment allInstancesDo: [ : env | env purgeUndeclared ]. - Undeclared removeUnreferencedKeys. - Smalltalk garbageCollect. - [ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ]. - Compiler recompileAll! Item was removed: - ----- Method: ReleaseBuilder class>>prepareNewRelease (in category 'scripts') ----- - prepareNewRelease - "This method is run at time of release to transfer the top trunk versions into my releaseRepository, and produce a release image." - self - transferCurrentPackagesAsUser: Utilities authorInitials - password: (UIManager default requestPassword: 'Enter password for ' , self projectUrl). - self prepareNewBuild: self releaseRepository! Item was removed: - ----- Method: ReleaseBuilder class>>prepareNextVersionAlpha (in category 'scripts') ----- - prepareNextVersionAlpha - "Prepare the first alpha image for next release." - SystemVersion - newVersion: ((UIManager default request: 'Please specify the name of the\new version of Squeak.' withCRs initialAnswer: SystemVersion current version) - ifEmpty: [^ self inform: 'Aborted.']). - MCFileBasedRepository flushAllCaches. - MCHttpRepository clearCredentials. - Utilities setAuthorInitials: String empty. - self switchToNewRepository: self buildRepository. - Smalltalk condenseSources! Item was removed: - ----- Method: ReleaseBuilder class>>projectBackground45 (in category 'resources') ----- - projectBackground45 - - ^ Form fromBinaryStream: 'iVBORw0KGgoAAAANSUhEUgAAAGYAAABXCAYAAAD2+TBqAAAvWUlEQVR4Xl3d19ocRZKA4b7/ - k72BPRqz45YBZkAIhDzyXkLe/0hIyOIlJEFtvdn9NbVzUE+XzYwMnxGR2audB+emR998OT1/ - eWP66uH56fzFvdPFL/dP9786Oz1+cnl69uL69ODrC9PV61+M32s3jozj7Pk905Vrh6cjx/41 - 3b57cjp24qNxfHnl4HTy9CfTmXOfjXd8d+7C59OtOyemC5f2jXtPnl0d7965d2p6/ebhuK+N - l9/dGv0fP/nxdP3m0enS5QOj/2+eXhnf+cZ72nTuOZjv3j893n/6/Np0+uyn04lTu6a3vz6e - btw6Nt758ef7072dM+N6mp5P3/1wZ8D09eNLY5za/uXt1+Mc/N5x/fPrr6Zvv789DrB6H4xg - gAP9Xr4y4+XhpenZ85vTo8dXxvH8xa3p60eXpxs3T0wvv70znb+wfzp1+rNx/9btU9O168em - na8uTO9+fTpdvXZ8evrs1vTrby+m23fOTtdvnJzevH06rQz68tVDAyAEevXLgzEowAPUYCDC - gP06IAAhDRjQAP7hp3vjW4h076dXO+PXtcM3COvdm7ePD2Q49IuIkInQEIg4+oN07foFI4J/ - cfTD8T6EnzqzexAR0hDKN9rWpl/t+S5G8hwB3def7w998f7oz+G+dhHNe34PH/lgnGsPbPD1 - 8NHFwWj6PnFy94zcowPZFy8dnI6f+GTcu37j+HT33tnp4KEPpiNHP5rOnts7I/70eNczBL1w - 8cBM1MvT/Z2L052756Zz5w+MA4FWkIsgqK9jiHvx7c3RucH4JTkOQBnc/oP/OxCxM0ube5/v - +9tW6gzEABHVwCEFYg0OYd68ezQ4DuFIjv78OhAQIRw48/sf7w64tI2wYP1tejo42fvu6d/h - G+/rw7UxQCb4SWTn/Wofco3Z2Pz6Vpv6NDYwuo5BtesaPJ5hxFevv55e//JoKymPv7k6JIUU - 3bt/btz76sHFQSTX3zy5Ns4ffv3l9MOPO9PNWyfHt965c/fMkKj7O+enFWAgCiCQBCgcaOAG - CyjXAPOewUA27j1w6L2h9gDrGQ4yaN8cPPzPcc9z77tGKARyrj0ExP0kVP9Hj/97DFrfuNU7 - 7377ZisJpJg0aA9iIArnG4PvcT3m6D1wRSDnxqNNY/CNdl1ry3lE1iYVi3jgdy9V71v3++bF - y9vTk6fXhyRQZ5ANye5D+Okze8a9X948HhKCID/+9NVWxfnWd1Tb9z/cH4T88vLhaaVDg4Aw - qgdidWiQCIUAOAqXegY4nAnwCOI8AkOKdwGeunMvhOgLByMItZhK8qtPRPMLmdSW9xGJhILF - e6k+7aSeIJAkJwG+1Z8+PAe3AzOkumpnz96/bm0aiU+VOpI47xqfdzCQX31e+vLQdOXqkUEA - v9TZseO7hiQgwr797w0JgPxz5/eNe5BPoqg80oaoh7/417j/86uHg2ArnQLEAAwEgAaXqkAE - SAUYQDN8dLdrxh9HQS7k+Ta16L24MJVloFRA9kP7SRlVhsN96xqBIdm5A4zgdQ/htYEhEM89 - /ZJasCAiVex975GoDHhEqn33MA+4tAcGDgC44cQ7SZ9z8PoGYUgF9YXznSMCVcWe+HUfotmZ - iPfFkX+Pc8QhHYjLBrFTvnd/pQPIgSQIMfhEF2JxfLrYu4DCVQZN7eBsBPKO57gbVxqAd1wj - Yh6S9iEZM7iG4O7pC/IMGCIREmLZJTBqE8LAmienT7DmPaXiwEtF+oXQCBuBMCBGADemQ6gM - f9+7N03PRh+pRn3pWxvsHZvANnz3/b0hDQjx9t2TgVzP2CBqy7Pu8dgQ0TVJSb0hEmnT3grA - AIMMiAgBiILziC1AcBIipGcNMIPoGkK4mJADeO9DoOfuaTfDm53SfoQMKQ5c7/AOO+YZafQM - MiGJpOYkcD4wC0bRvl/IdA/sCGKM2kwFudY+pvLrPc/AhpFSc6Sw77WNONqhKjHGyVOfDvUF - +VQT1YXzSQUXmTTxwrzD9vDGSAWb4pqj4JpKo+5I2SBM6sBgdARAg25+srQvCAdAv75LLRho - Rpi9yZbgWEjPWFMXuNdAEQ8hEZikOJqTaGfMEWYE4VxtuNYOIkCK8wgJDrAmnZANeZgu+6ZN - DNL8rDHlbGgDLAgNtlzk1LbrHCPX8DQckZkI3353d9p/4J8D+aSBywzhDirKNQkhTRBPUqg6 - v5wbfWI4mgF8xrzSGQAyktmC9LxBxNWQBxhS4D4E4KBUzt79fx+cPYzizH3NGSBAewaE4BlX - 5/sO/GMMFsE/+fRP4x3tI1J6Pe8QnK4NArw5Ekk7+HLvfeM9/bI3kI443nUPIc1hfN8k0z3n - YE9t6RNTQZq2wap9v+Bn5HlbpIUEZPSn6eXWbpAYEuIgDe7lxemT5oAPMMIXLbHSgc4BD1BA - NbhsCATgUoNAOFzUNc5M1xtwkzCI0hEExY2Q7j5mgACSRcW57/AOhDdxRDT3SaM+89QQURvN - T/LM3POt++AAd3OpvDb3PNNmDKSvvDTIdu0cfDw2RCN1Dn0gGqIPJ2ImBgRzh83kzVVIAylC - JAd1Rl15F3GoOFKEOMZnDOFZ+9pdxRE8EhySl4IoXvAM8ZoHFBHAuQ7A7mzCOhp1jbDZnr4x - UIOJ6w3W+/olZc4Zds/i3AgAHjA4MvQITAVQScGkP3Ak0UUl3ANj3h04qNFgwxze8evbVGBT - CN/mAKXuaZHhyc7GnFcFyYhCPVFhPDH3HNSYZ0+f3RjzG+quOQu8ciJIJNwZP5ysiA6AAGLQ - BuIFSMBpGWWAp48BnHoKUYiIOyGzSEFc2aBIpf5SmzgTF2fsM876x0nNa0ICoqbj9QNBhYx8 - q32I85z0M/7ew1xNCYxVH+BoVu9bttG34MIgfl2zk95rAr6MNhg7tcUFZvx/+vnBVmIg35wE - AUiPe94jKVQc6eGB6fvsec7Xvhn+2SO7d3JcD4kBQCqiiVaz/aFHN2JmsIAzcA36RYzEEQES - S+cRN98fgryL01OVBlygFLJiCm04RxQwQIjvC5bGQNoFm3ZJV0FOY6EKEYR05kW5/9nnf/l/ - sTBjKAphXNpzUJFgKUaHyYobgkG7EMzG7N33v9Onn/11OACIcPTYx9Oez/8+JMrBFUYQaoxE - IVzOyrUb5pDwZjwXZmY5s57HQBLASE2eQXaCQS1+hkMyisTNd83sSY17TUghHOdRNdqjOryH - GBEn2+N58anUkL69bx5R7M59fVNB2tV3XhS4vI/zU1H6zGPTR6EbR+pW21vuX/Sx9OIKR/Us - b3TgbrYfJIUKY9hJCOmhvpyb37A9ucPmNe4hlv708eJbbdJAp2eh2D+ItGp2v5wJ8wpwLEQz - flSGI48p17TwB2TjpiaaGfBlhMAAER/nea4vA9YPAiIMVzibkEqkSnB9ahP3atN5HBfxU8vF - 41JBvEXvI3bf6pd0ZMNIlz6MmZQgrPe99+v0ZMBY3BBMGHgN+8th0BHDOeSToml6sSWAZ+41 - 30FA0gU+hLl6/fAsoQfmPm/POCHJe6YVpBVugYDEGCEgl7hCsAYysoUkICbVkdsdQRAwdYj7 - nCN+4Rnvl18pzFO+JvUDceDST6Ej50UU3EOovKtUTnG17E6SsPQUSxU0Z4oRSWHpBwQ0tuZT - BUqNyThdL3NAxlb4yrNUYzFGk/XwVf7JuAs1xVwYa1WcqnA3QAFX6MJ1EzEd5335JpEnJTou - 94KAfnUKCdkP1wUcM8DazkZRK+DwTuov9RND6DO1E7yeNe8xWAci9C1Gg5QiHODIPUbI5lik - jORAkva9i6BLt1tfpTIwa2pOP80Hs48OcGgHrM6L45UTyg7qrzFpY1WDzcghmWooxI9IgIPI - DHkRWggI6UVjC20UkfXMOWQXTXYOyNzjvCWE0AYkIaj+cXWBTW012cSJ5Wkg3T2z6OyUc4zl - uqBsMTDSlqueOobomNTYC+9E7IK68AFf2TLvglt/4CuSgSgFR7VvLNSfdzkx2qcS4UBbvtG3 - Z65XkJdXgpJN1gAP+QaXmkAYwLlXnAvHpU6aFWckAevXwCDBt3GGftkyRCNdANUmLkIY7UE+ - j6wJpsFRY/UdM3i3w7dlKyHHWPxqHxH0bazNi9IWzcvAAv5m4eCr7ybQxps3u4wjlp9yv4mq - PuCoEFfpdu2lthyuMyu+WwVsXofz8vsonlezdIUBXxaxuY3fIrjNSXRMPQBG54Vi0rG41DdJ - WSrS/f8MSHofrKmqJpTBWOq6eVLByCaFRR7AUS4o1apvB5XlfgQpgoAQmGM5+0eAvLOICKYm - w01K83oLDJcpTYoar/czDca9ys3UGNHENWUlHQYBoSWJTAgLzRRGB2xOAwDLEEYwHaZ2AKYd - 14ibKil/kl2hwspGNp8Amz48J4FJKXXgHilCNAMtDgaJeV5FxisOyaaVp6m/VBeVggmp2TxW - jFk6Qbuew4FzM3iqCCzOvQd2Y9KXMWlL28sohbaK9zm0sUqUSvuiKu6o8ALCigZDRiEKCNIR - MYUEDefbe7cij8InkA44wCa2f/jTf41JlYP/buZ75hw7NU/EznwyS9t7s/2gEj4a1w7n3vMO - F7NCEsiOifTF7mAiDBWsSW6RdO9ypd1DDAzjnZJuhV6aUpSqyLMqIJsnWPoidZVNLe7me3Cl - ZmmVXbv/OO7lAPlWu1vjny5OHLMFgKoipGQRoJ17D8dk5ByFxrVn0AZWcg3x3PdtDgYffucB - cT43CHT77omZqGzU9THpcl+Ywn0z4sdPvhwTspffsQfXtpPUose4z3iK50Fyqe+mAJBchBoM - nmEYxPF9EQvMBdkQZ44FwRWZxISl17PFudkRKfxqL0nxbXA1v4qRs32rQvsAK7RODKk1jacm - MugVahgEafK8erS4yjkA/Jba1SlEIE7zJO1B8vWbRwbyf3n7cIQkEOPdb4/HZIuEODcrJk1v - 3n09iHPk2IfjW3CWmwd3M3ZwVZMWgfKGmmeAl4NS1Dt161vtaQuMog9V0DjHwFXz+JZHBcnF - 8TBd7rtn+gUL+IqqUG/eyaMDI3wXeF1llPOEqtlqnlGQ0MCKwhbjQpi4q3RwvrzGC5sUujG4 - JpkFIh98fX5WnR+Pg2oSwPvi6AezhL0/I3z3IAaVRnUhINVGpYkvUWmlJJLo4lnNfSC5yZ7+ - SXWSDpkkPBVHuo276IYDMlMxpRbgqwKP3PFwoO8YUVtwUCqFu6wdcBGETIb3w2NJs6HK8rUr - oijf7h6xXQb1NOY3L4S6SocmDaVtdd5ELa5rotV8ouK6ZuIVFDZnylPM+8uVNZhCJqlTz9hB - 72fgc3W1yxaWaU09I2r9F21o3gVG3+z+7M/bejXfFScsolDoCT7AllPimyay2vNObncBVyEv - 91N9TXpXBfF8qEMckrtJBDOMvec8ianKpVl/yHQNMZDQ3KMCDAegCp0XSQjRTbR8XykUqUUs - Ym8w1YlVGtukN3tWGnqZzi58X5EFBgIbQ5u3tkx3hGRjBBPJ870+XOvDN2CKafQBh753Hy4L - loq3lbdaFoPkKMERwhif9lcmRYlzaeEOzwCe57PMMlYcgZsckFOYvioZnSIcBGVM3WtGj1tK - +xYWacKoLV7VMvdiMH4ZYwdpFsLHYc5zLgyw2F/FiY1B37moEI3IFf95VgTckaHWptBJFajF - w5rXaR88xg4GjoL+vOu8uZTxNgfLPiMklVqfZWpXEFdopTlN5bAoWllps+lKkZocVXUJMR2J - McAAjPAGhavo2Yo5tF1evgJzfRsEg1jyDsBlKzPkxeUMrtKl5jDGoZ9SFpXflidKJRmPtnsW - TMvIgLHmZVUKZWxFxqsYSlKrzatGGyxwUo0CRi/SAjef7vmf7eS1sXs2vDKAV5GJy5roFFUG - YPW+y5xIbrKBNonLhlT3W4wJp1fk7RxCcq8z1FU5Gpg2cZ9r/TaoJA4zFMYvZBPCIFD7TXhz - i1NL2Qv9L/MsfrWH85u9Y8i80qYQvimY6j1c3yoC7WIwDK8vKi1nooJHvwi8jHQnuanAVZk7 - DwHE2OXduPYB5ET9osS4C9DlaIoOFCavhqxQeLGoZr4QV66/6vxC9S3dWKpQfcY4lfS6V4wP - LGDGjb2DkMWyckryOhGvVHiwJyFLlet7k0DwxEDFyiJcklLlp3HmKGWrKiosFJQtS/1le3yv - WmglkaMoQD5aJYdqdOU11UF5Jq+tUM07Ej5VpjukSRUZuFeJZ0khSxAkhNRSuadoQamovLfc - uKRSIQzIcJ5z4WgegRMxRRlShM376nlqr8laKweWaezCRanHsVRkzseXfQS7Mbtn3FW/yDqW - DIMD5UhSw36byBZnq6IzaUVEhG+ul5qv6KU4Xhnj8lWrgZw5NQp5UqCAUOEBsDdvvxmdQ7h3 - KvWswkPFx29C9/MvAkG6ch3XUq4yet5FODlvTKDyXTmoe6NCceYW6jIHpLkOKSnehrMhFLIr - QEco0QTSXBSBBHof1+NW6qVoRjaPROYul7PHJFVKIo66YuNwDm54kI2sFEkJLMZd14892wZQ - 2bXsJJj0jwEQzjNIx1hJonFSd5XqIloxtJXOcAtgdKqQQJlnlYQKCtwHmGp1BHGuwgMREVSB - QbW4Ds9xlu8RwveVhiJa7/mmpRdUQ/EmIp7v34R1mctpYHFllThlAAu98Iiqma7itARfAUnM - ZkwKKkhL+XtjQDCEMW5jwKAOBHR/MPAm3a3f5i15aMEZc2A2Ul46goOT05D6LWqyIpKOuAVh - AAFgnbeopgU5nlN3iEm8K98hHaTH8yTm873/GAQxGGrMgN03IFUkJKyZOyQhUC5unlIeYp5j - dioDzFgWSvcNBHiXAa3UtbKmIskFbkkMdYsADhKMQTGa8RkXHOz65M8Dfs+reiHxCApGhC9t - DfYchBZrFT9kd8pgYkKEMiVpFYUD0RBzhUsgLO6HWEimbgBH3ypawzUIUXlni3KogKTO4AzA - e4iEaIiA4J5V5V7drr6r4WIPnBdRwE0GTV3Rud4xiMqW3v/wv7eVl+YYGV5zhdRVKsw31GXz - FoRmo8YsfYYffCQb4505+/n4jaFIDtUFVnB7r5VhnpU+Zq/KlJpoFmbBIMu4GearxLZEmecm - oDlFY+Yf9yKKuic1uDgCITJyuAOwDCGEuwdAyK1O17sI5t6hwx+O5QU4z2Egvsd9VIbDPdIT - B1cLBvnVqhUeoZJajFqoHXdVqV9Kt/LdjK92Kt1NSpYrGzwzHozUYqJ1tcuLQSxMlIQgGOZD - EOMAO81QxnLptusHnBWyfPzJH8a4mmiWws74OzAOorBRYBteGaRCnI5xBa7HMQBzD3K9o7LQ - ewhAonAbwrgPWN8AtgJqjgWiejcPD0ER1rsHDr6/rX3Onc29NAgGtEwpwHFiqqx6gdbMVMzn - HGdCGCnM62tNCw5nA4ouGAuGxJgkBNMYP8bMbmJcOBhFevN918Y+GGxTfF9srTTEsmYtKY8B - wYOQyxXXRVswlWcr4sjroI4gLpUGqa4BiziAAFCAAzRisBUkjRvsHUTBURwEnFYxNSYgobnL - +srlheBqA6gbUrFccYbz0uF5bKV8izhU6tRKguZkBm/AELgusLs53OvBuRsXmSSAyXjhAsyY - zj3MBhfOU9OIhskQvsxvSzuqT0MQsGAW4ygq7b3GY+wttuo9v6uWCkAwaYFw5Z756xDtGSBw - P1HPr0e8VlIhBOBzjz3n4fglMQ3a+5ChD0e6tgK8uLm4XVlGiK6osAEu5w6VKxUQrWagYouW - gFQa1RI+RCAVYCYR4GVXjdH43DNmlZSpa2N0H744HMX1CvuzES2X12eGHxOBuYBlcbXSCUk2 - yV9BJsQ78rIy1s67B8k4HiflXuIkog1YXMQGRdCWUyMG4rZcwQos7/h29LlJMTTzrkqlOrLm - MpXOFuku1FMcrRhfxSWFTNLZuLpoA0Tk2RmHMZIasJL8JtuuMSqbaWGSd1N9DuqsYsbmIPVf - HLF9AYqo96xCfNdFlQtdYbxVi2lwcrbBRBOXkIJff3s2uAp388IglipDHMClztoJokp27dWm - QeLIPJvmCWN2PRMiiWFDMogAx3kkiMdS5SY1AMEVuBtMxrysanVfLVmvisWzgoXlbzCUcWK+ - xty6liIhGM4vxspuwpHzwivVu+mrFd2lKkonYJ7SC5jLt8ZSsLVxGOOqnR10DMGQz8bgetxC - Uog24ADuHECeQ67vHNrAUVSeoza9a/DNoqm1llaPSMA8IMivBgvCEQDSWkC0TEu3gizOqvCh - +J6BZ1ArN0Jw19ot+FoexjiyJ83TwEhdkRzXDtLTO+Y+bKdvEbtS4RKK5YMqpCxaXX0AKWNX - wEFaqlKiDknyWB8D2a0JLC5GIiDNPQhEIICkwqgmhCJpLaUGOGlBDIZRG9pujxWE8T6iO9c+ - VQCgJmNV4xTZxknFx4rWlnpt+bdQR/cKjWRrmtuU9tZ2FZ3NOXiGYCfxfmkEDJQKtsiVc9Nq - 4zZMgCeMWdKwiHgFF8tClsYY4ZZLVcqk5rh0PWJlkNmMvQBkUkJiIJJoI1AA8qwA73tc5Dni - GUg2Rlva9bx+vKP9iIUYLQ+kClo7yVC2qU7rWXCfCSTO9w5urWg8T6wlGFXlI1JVLZ61iZB+ - x6rkmVEwW1X5EI4Zk+iWUjQ9oFWce0bblFiDcPBRwWVyXVe/ZnzVQsQg2ZkiA4gVQ61wCMDa - dAZi29kB4nTe/CRC8VicA7DgHmlq5ZTBttuDb1MVRaPdw5XOly5wyIWwZQF4tQTFy/L1WxpS - XVlpgzKc2RQDrgqzEE85d8h25LSwicZnCkE6MCFNYCwkiLvv3dRcsbllqe4ynbDMbLqfl4gQ - NIAxVTpV3mtMMBn3lqYxarg6dQZQnlU7PADQPe81Actt9NxgtOfcdwxkNkmb2uZ2mpD6BtEN - KqBw93K3imbthfQrtsjTKvFU4XfrYSJGM+1SBBBVDVrr/5urGCMGay1lO124P1TWfJ49dY5B - B842dc9CSHldrXBYepyV7FZ11K5PlQdngypkGTN/1A9ZEA+hOAchWgmFuxGrqAA1hut10pqW - uDqqQw5OMQ/Bve3lUuq4yV7zChxUBJY3UyWo99rnpdQudQYR4AQziSXBxkDSczKaHEIiJBsv - ArTLEcJ4RgOQbM4Pddvs3kFajBWxfOudVF/LyKk89xEVLostahfu4BhMMT4m1kbM2PITzDiM - vxA/RGssO1KU2YdFlzWG+3FKCz5JTquiKtouVV3lCf2Lg1pU2hpOnFHOu+wl++Ge78p9U02t - cNNHXlslpgwzAw5BkJiqAXsq0zVJiLHaBAHCqHLvOvdbILZ4mDFS8cNR2aRHpEL05zoHQfsI - 2oSdDQaLe3CaJLoP58UM22etAnjjGkHMfPURUJw7wn0GYlAIVeyM3UHxQjAClzrM4yEx3D2c - naRUi1bAMO+rUtDKntrRqZUGeTW9X5mTe6m1gpbZtrKQyzQGDsdE1Gszea4899215yTKWMo5 - CWCm2rRb4DLHwDPn2iERvoEf98vh+HYsFV+YBu+GV8/BCIYmpiXRKgYZ7rKPil+RiDarIW51 - BEAcgJMQDAeNmf2mBqsocbmRanuLnlZJEmeYNLaXWJ6KttqZiQS13IMUeaeFTevNd56v19PM - nJvXCEHF5cBrLJgJl0MSrYDDMZuxmdEvQ1EhOMkqEgAfqXNSpR1EIx2IXvQ8wpTxxRSu2zsG - 04MH8UtlV1edZmm6sCrHXYg/I59v7/4y/+8ckGzP2AtyU37UKuEKu0sctRqs1HA5Bwfvq7oy - 122x1SKmKiQjsvMmknlnYAUb5LVdSHMQzFPopOArBJaJhDQIYg98W66pKIXnRd8xZOnx6hr0 - 1bukAfIjbPtj+iat5NukFFxDejaLgqnolnOMeQz9DLiSXRnIElp0pM5Q32CJPOdAiAaBCj62 - qKhcSOvvqbgW6bQMzrsV8CUp6ddWhbVusrRwC2hbENQeliE4FVwCrvR1Qcj2FaM+cgaoNIf3 - GOnqEIzV2LRHIkiIbytEyZjrt33HIBlRi8QnddorxIMBEKQdM7xrvEUvWmY41mCipk4BqoM8 - FQAUsm+3h/I2DufuVeFe6Wnxn4KEVE8BxGq4chnTq6WAK/TOeWh5YDVdVdLw+7XpPsRRIcYA - zgomWsINAdRKISbcivGEVfLCeF0FJhly43ZIjTPUxQS1kRfnW4REEIQuylFaPXxiCJLkNzh9 - hxGGpM3MZUxUdtGAESsbOZHNHKMPU1eJaZuleUfHOQs4qSpHhMltbvl021PFFSZaxZJwB4lo - EubwXfuUUYE8tzblyS1vKV6+P66sqqVKHbawBB/CuK78qsxsM/dKsop8sAHLLXpDcIHXbAv7 - pM/mdhGreFs7/aVai4ZwovTLefDMuKsxo84Kwo58TN4GoHFGgbt2PtWYwVFh3jUonsxwL2ek - te4DwlF/GeYu3FAGrzhRDkETwiofW2uZlLR6TTt5Y6VnxzLCTTIPjGCGLMg2LsRpt1ZSA7EY - 0Xmzes9xL6SlxooAlOxrDoJwCMN4N3HWH0ZNs7iHKO2wlA1LtWkrczE00WZaUDSj81Uh+wx7 - olpOu2CljjTql+9f/RWkaZwhR/3synJ11bJQuw2l2x+spXSkrixjqYCWUPznEozKlnyXuvKr - aKKdjTARz8u4wJnqobY4A+7jXCorA59NyPkpDWLM3i2gyy5rZyTKNlEN53BZMQpC6t85PJZA - 5DS5X8VQtdftrpinumrn02bzeTAGSywNKu5JtIsUj1TrYnWuw3k1yJXWlpWskK81McviiAr2 - eGYt10PgylzbQaIIrfeb+YMboiCVJECAcRhDEfIiFrg41ed93F4RBuSVl3EUimlbq1SasXeu - n1Il+q5uQt8movohsRjBvaLxNNCos1hkN5croleV5iztR+WhOiAdAMYBbfQM+MQeMXAvg2Vu - Eve3rcmy3qvCN+8XjW0OkzrTTtt04aZiTS27RvjlntCQhgsRA1zp9VznotzNzUohG6cxOcq1 - IEbjShKbnxQngxdqTJ/tQZaNzpP1W4C3suGqkDCHPkiqZ20B1r4KxdNWeVwhHMXbWbvIsk5J - Fi+FDfJOKgDSSESeFsq3n1nloG3X2FylUthWmvWtcxyDgxDLuy3UrSypSsrSBAbXbq0Q9tme - vw3EsIHghAzMV0mW+wjDeHNecLM2jL8abgxq/KTMt6XflyW0cAZfnI32Va6qJm2C0HCXJIOv - +ogIjdlawl56fSwnp7ZwhYbKZy8NlOsmX+ldgDTpSpW19wwELtf9I1ohl/LwrfKC3DyvqjGr - AaueGcEAmuvdBgxtu2WQ7REGESGtjCwYqS9EcY2hqJFsirEWP8sBaq9+424iDUdtEa+NagWa - NDb7zxFo1z+S4zyJ1Ka+ttv7bv47oOXrmI8tXWU/ymLmGrtGYWKde8yb8cxgATmq+DfbMxbM - hCwqbRl+yf1tf5jmOUlAHllBy1Z+le2rzjh71M5L498sNmqiIkIIN0fZ/elftpWfSRXYlzXU - FVxArAMujDsJooowZoRb1uDpD4FLO7suyu27zACCIGR/tuC9iD4YflMgWOC2FXErSM91RFGi - S282mDZqBlx6FZfxLAyycAwfXGih1G6ViYjQ9vDtqVygs8Wxhb4LWLaHprRxmco23mlDVe9D - ZEFCkgJR4AMnpoIgE9D+RmRpgHmb/eEB97dCRd9WV1egMy9VH21YXVrd4f2MemYBDp0XX9R2 - FaypR++07J3dxNAt619VBdhqqahHhbTitp2XKilqK8YWqlYoEaILq7RNYQUIJKP5TXVglotf - uXZobL7wyad/3P7LBvsy1jbOYaACrZDRgBypj5JVy40jKh+qCAOTtGC31W3Dc9wUMZZOLqCZ - 9IkElEaH/KLEpA2CI8hSNYKzsNBy5u+bIgxNfCu/JV3DGZjHo/9VyK7SI4AbXDZEUHHpui43 - 02kLwbZhzJa0m9FyE5z+D8a362Xlp8f6/bv3T42dL4pCb6vyLQ7aqKuKJNa2cP82b9KfCLUn - THt16qOlf01sI952S/xN5UuByQKd7Y8MqRDowPEkaxkPK3dV8o1EcSx8W1ShiHxho6LUhbZS - a65LCYxNfogPTq7ADuJbNAuZ4ldtcVW2sZl74eqhWjZ/NdJqY9/j0DbTWW7f3h/58MTshoFA - r375akgTBBb+NhActkw/ANwf4ZAkE0nqoP+DKQPYxg8IQCW2s1HbhLRsm0ou40kCIIgtzYhT - idShezlBpHb5TsRdTiZ5fBU1BnPwt4KgrX4r+cozpk5X5Tfa079KR2qs5dA8B1lECG+HiOq3 - KjLwbttNlRJu/5UWGRVKWS5BuHz14LTvwN/ntu109/mWaKlOwFIxkFcaYs1pv3NZi5eaJ2GA - igXB2xL4loAbmzGNKPbGa0sFVR3j131IgvAykMW+qB7PW0GHeUhLeyuXs9JucTTPTTpTmZ61 - PzM4TE8Kf61IQpO1ljkXj1ouL09KKpRotXEeVVs8dVTC2oKjVjrnvbleb+uxf2z0Y0Of9fa2 - a7XYOpZC8AaLC1Mdz1/c2VaqtB9OW72PUM3MbBisDGGqrEKNCiRSNy1pbMlJhRlDVc42AOez - GxwC0oXDEa2lj6QHAVqFlnpsfpXnt5b2M9saafcqSc6ZGH+6UCSYt1Rxdpu9Fe9K7zcHiTip - C+f9HRW12Ba/hVfaM7mVwi05X/+T0rGxac/Pr3eGE9BfULWJA8QbRN5OZUY//vTw95VqG08w - SU7ywQee5TUGQvjWRCJKQcwWbTVzh3ieGMZw3T7+VfojomekBYy8O8TkUFSAD+mFsBBFOwji - /by/8mCYr7TEqtAJVdP+xVVEts+M30L4Le1ux9dCCEsVYQ1+WzhCFJXSNsEtm674DTFs2MPG - rPcgO7jdPGdUxGz0bnOpCOWf8DKa1Ze1Urk5UNun5J63DrKN7sY/EG6K3KmXYmjNOZIkiPc8 - m9OEEizsT4mzvMeylr51ZEswUUsp3W8xcY5DcyVtrXJrKwKgh4tftUyOYWc0Kzdqk5727sfh - jvYBW2507dy31Vy1HRSboF0qzPZX9iNz3sZsLbnAodzHwuotm7h2/fcUcZuntltr0YP2HGhd - Z0V+qd5Rmb8plCiI2X+FQVJrZlJniLMsECw1whkgJaLOGfmxPfzGdjXXKeGW9CNyRR+VNuUM - rEhB23rkXrZMobUm7TBUuCCbk9tr8C2dbuMD7zQPalVu22w1l1iHW+6PjeO4zK/fPNiujSSp - Iyu6+euPjHPhkctXjm7XdVYJSV213WLeGQajtpIe99onxoSugCXV0wKu5T79VZ2WRCyO2NKU - lgR2RIQm6FXrFDsrYq1dNpPEtqs5wvuOp7nqXy+WG4Eud05d/rFBf7Cz3NsLQhT08djahbyd - M9pZKUcgSdRHKtQEkzfGK+MEFClA7BFV3swvqhTFnWsjenWb6GrJA+lta8X+GKhN5lyDuVhe - u9HygPrXpNIcVFm12PVd4LEJbnMZ33jWIqcyns30ScPyr7AKaeVYUG+lKIrtaXfV5mXVcbUV - bg5B4l+gsj94o5qqqo8D24u/HH7bWLE5ZSO50dWIkazmMH5JznJpuHMz7yruxcAcAPenngUR - 2yEJvFz0lgDqt9XLZVjzIqvmSQohvRl6gdqWlI/Q08ZrqlSqfA6ENgHG7dRU1TUV02dvqvKs - LjxPrTQ+qalmYNWm0FSQc9zd3l+Q099cOcrpk4pWUbXUroljy7tVWDbPKUqQO95Sg/UW9Z/N - avPOsC929WvRaH/aA2gc19YhBrIOg9zcIql8TfudYQywV+SwLQ7c2M2KOsaEeW6jxFh/mpA9 - w/FJDgK1WLiqTN+EyAiR1PiuySVitVCrpZIRkxdYyVOF7FIXq3amoIPbM7ly1vYQK9pbXVfG - tGhoxdNVSraBW4tE2y4X0qo3a08Y2yvaTtFE01aK1OLyf51L/xp0+n2dL18vQRzhmU2hR2W0 - xe0K6/T/Au0c2xRAQLS2K5dtMll5EdXCsBcv0/9yxQJpy42OEKVPiiRnO5IY0lN6ocIQxM79 - d38VR7elR3s5GmwlSQboHBe290nS0jIKbXCVqZE8sXYCb1/JkkDZobVxtkv5pa1X1oRUG+Yg - DGThj6V6uXFzvTkRQ1l51PJ/B4oBtu9yf8rWWFr11UKq1GKlW80zMswt6irk0mSxIsnsX65x - C5uqmy7Hn9vfxkfL8t6WHI55TFsKQhKxJ96tGl7+S8Uy89ifvbWdVos82+EoV7pVvP3/ZVuu - t8GCw86xzWWctyKg2T+OIv5Fa0OKWBk1N1K1m0RTaxmNhR1sR4r+4rG43nID6/a2qRaNWqko - pY1/imNV5NdeB21uBNmlmJd/VtpEtUlkgdHSE74ndam31Cf1tirwhyhtmd7/o4yto35e75M5 - KLuZYTdZKyffyqhpsxMTqcARLcGDiP4jM7VXgmxtw9abhvZPExFmuNWzOkAMiCHmGctmymuV - e3psDwxmbZYthSSOQ6qihbstLR8bA83SUkZTuyGNXTAvKdzSqjPRgFLrrSyrwmgk2Gb8VBze - XqBlJyMM1eg78HFmqiCl6sqMrgzKxtLr/Y7Pr5ehbZJhAPr51aMB7Mtv10mndoz9bZ4DVNXR - bkzrouwLm2XmB8Z9wOi8DeXYE32REvatVb84x95mEDn+pXuzPpE0cHlbQFu983oeZF7EHol4 - r/8Qp2Scds5fODi8t4uXuKCHxn/nOwqEps//syx4WfsADxBZwV5bmFQXVmlvtlZ4yZbF/jUJ - fOZnIhqcnGGbN8UZJB58Ozw4Ns5GF3Obru/P8KwM7N7OyWF8GeJKRg3k7btnM3FuDCTv+uQv - oxij5RUMtc2q0/3yI8eO754N6J65jb3b/6VvodDvC2APD7Vlj2UBTAMnxu0BRkLZleXG28vt - GcEpb2Oncgi4fvPw9PCxrRYvjHFUZvrosWXgJpAPZ/WgIF4VpfIkpao7wwNqblGhRLN/59QX - uNpsIttQerl9d9qZo1psBMEkd+7ZY1Na3Xzs2LgPbu0a37Pntwduf1ULpzSZhjFHm/u4MDsG - q9dv5OsvD2QJKLarhbD642+uDyMrLhWH9d8tQvVPn1/dclX/zVVtloEX5Bt/F7X5d6K3vz4a - O5GTUoFLnN0qZl5RRdXmI+0vs/xvl9barNc+qjt7fzp7YdcgyuMnF7f2DUdijCtXjw0mMZ4v - Lx+Zme6jbU0XSSbpubfmSmNHpc1+BWCHfOctayxx5xlmyp1vJ0E49A99l6/uHwQBF6aRCESc - lkZiZPCQktPzuB0k5/q1L6ZDB9+bVvsP/m2WlF1DtYzw+SbsbEB3761FjnrCMbi5bdjpdAhr - 6VsBPwimJ5sd08X97zGVBECzfSLOExsRgc1S7lEStdldon+9aLVvReUVB64rFo/NCJkdgftH - BxL8R0Bbf2Aq8K/d6itDgqi15aqG8jlt7VV1TPGsZQ1Y+f5lRSrNUl1y8TpaZL2bup2j9sxw - k/RTA18IM/YeGJlK/0I+ExKheWjSGSatM2FuXD/iL31PDe5lbKtsBCRq0s247cjRXVuj2DbA - 663f1wXSVBfA+fpVj1SKU2o3NQZANoYudt7/T0aEdeT4xtbLKRRTzgKDZBPWm+tcm67fsvbz - 4Ghvu57mEbVzZtgUREKgsp5tvdhqgjK1xQy7bidy1+120VodbYx/JtxUphrDOgpibzQphjvj - oI2oNmM2Heh/cspwsik/zlrm1c87sxqbx/rkyvTu7ZzBpOvXRmrzbxibUAEdaHD04KvXj7e5 - hXUM7NI4xrZUY73M86GXdUZttWVVq8NEj588W3tPVKY/SyhwySaIFLRGpiXbVZjg0o93/WlM - yBCKWqGCMIGQy4lTSnE/GGqNBLbj3toGfDYk3ziosrEoaUZuG3f37+nVB/CmOBYh3TstC6lu - oI1QW85ePR7GXG+tf2jAwbacPb97SAs7iJExTvutweUo4p+llQq7f2+2o/fnnM3DOYH28uZ6 - gpmLaR4AIesarQvDI5OQYiwhyWKl9W4Te4eLy3iv1yM+GMAR79a7r8uU9g9AvV/RhYAlQlWH - bNDNxh2tCG7eUuAw+8U7pJKogjEHGQM+vnUqivctt4iEhHIm6/9T2z2cF/Dwlhw8Okwao3Iy - wG+cVK9z4/DMOZU1ahM2RYBjddpYp7+O+e08OD2kmA1EpJu3jwxC6Xv97x/r9Dpi3Ll9YhyI - c9v+NzNj/R/B5L9fXci2wQAAAABJRU5ErkJggg==' base64Decoded asByteArray readStream! Item was removed: - ----- Method: ReleaseBuilder class>>projectBackground46 (in category 'resources') ----- (excessive size, no diff calculated) Item was removed: - ----- Method: ReleaseBuilder class>>projectBackground46Computed (in category 'resources') ----- - projectBackground46Computed - - | randomPoint col | - col := Color fromString: '#76A5BF'. - randomPoint := World right atRandom @ World bottom atRandom. - ^ ((GradientFillStyle colors: { - col. - col twiceDarker. - col twiceDarker twiceDarker}) - radial: true ; - origin: randomPoint; - direction: randomPoint; - normal: nil ; - yourself) - ! Item was removed: - ----- Method: ReleaseBuilder class>>projectUrl (in category 'private') ----- - projectUrl - ^ (self repositoryUrl , '/', (self versionString copyWithout: $.)) asLowercase! Item was removed: - ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') ----- - releaseRepository - ^ MCRepository location: self projectUrl! Item was removed: - ----- Method: ReleaseBuilder class>>repositoryUrl (in category 'private') ----- - repositoryUrl - ^ 'http://source.squeak.org'! Item was removed: - ----- Method: ReleaseBuilder class>>setDisplayExtent: (in category 'private') ----- - setDisplayExtent: extent - "Uncomment next line when the primitives become available in the Squeak VM." - " DisplayScreen hostWindowSize: extent." - Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]! Item was removed: - ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') ----- - setPreferences - - self setPreferences46. ! Item was removed: - ----- Method: ReleaseBuilder class>>setPreferences45 (in category 'preferences') ----- - setPreferences45 - - self setProjectBackground: self projectBackground45. - - Workspace shouldStyle: false. - SystemWindow reuseWindows: true. - TextEditor - autoEnclose: true ; - autoIndent: false ; - destructiveBackWord: false ; - blinkingCursor: false ; - dumbbellCursor: false. - BalloonMorph setBalloonColorTo: - (TranslucentColor - r: 0.92 - g: 0.92 - b: 0.706 - alpha: 0.75). - Preferences - installBrightWindowColors ; - insertionPointColor: Color red ; - enable: #scrollBarsWithoutMenuButton ; - enable: #gradientScrollBars ; - enable: #swapMouseButtons ; - enable: #annotationPanes ; - disable: #showSplitterHandles ; - enable: #showBoundsInHalo ; - disable: #alternateHandlesLook ; - disable: #roundedMenuCorners ; - disable: #roundedWindowCorners ; - enable: #traceMessages ; - enable: #diffsWithPrettyPrint ; - disable: #alwaysShowVScrollbar ; - enable: #alternativeBrowseIt. - ProportionalSplitterMorph - smartHorizontalSplitters: false ; - smartVerticalSplitters: false. - PluggableButtonMorph roundedButtonCorners: false. - FillInTheBlankMorph roundedDialogCorners: false. - Workspace shouldStyle: false. - NetNameResolver enableIPv6: false. - Browser listClassesHierarchically: true. - SystemNavigation thoroughSenders: true! Item was removed: - ----- Method: ReleaseBuilder class>>setPreferences46 (in category 'preferences') ----- - setPreferences46 - "Preferences class defaultValueTableForCurrentRelease" - - self setProjectBackground: Color darkGray. - - "General User interaction" - Preferences - enable: #swapMouseButtons; - disable: #mouseOverForKeyboardFocus. - Morph indicateKeyboardFocus: true. - - "Text input." - TextEditor - autoEnclose: false ; - autoIndent: true ; - destructiveBackWord: false ; - blinkingCursor: true ; - dumbbellCursor: false. - Preferences - insertionPointColor: Color red. - PluggableTextMorph simpleFrameAdornments: false. - - "Windows" - Preferences installUniformWindowColors. - SystemWindow reuseWindows: false. - Model windowActiveOnFirstClick: false. "Not good for 800x600" - Preferences - disable: #showSplitterHandles; - enable: #fastDragWindowForMorphic. - CornerGripMorph drawCornerResizeHandles: false. - ProportionalSplitterMorph - smartHorizontalSplitters: false ; - smartVerticalSplitters: false. - - "Scroll bars." - Preferences - enable: #scrollBarsNarrow; - enable: #scrollBarsOnRight; - disable: #alwaysHideHScrollbar; - disable: #alwaysShowHScrollbar; - disable: #alwaysShowVScrollbar. - ScrollBar - scrollBarsWithoutArrowButtons: true; - scrollBarsWithoutMenuButton: true. - ScrollPane - useRetractableScrollBars: false. - - "Rounded corners." - Morph preferredCornerRadius: 6. - Preferences disable: #roundedWindowCorners. - PluggableButtonMorph roundedButtonCorners: false. - FillInTheBlankMorph roundedDialogCorners: false. - MenuMorph roundedMenuCorners: false. - ScrollBar roundedScrollBarLook: false. - - "Gradients." - Preferences disable: #gradientScrollBars. - SystemWindow gradientWindow: false. - MenuMorph gradientMenu: false. - PluggableButtonMorph gradientButton: false. - - "Shadows" - Preferences enable: #menuAppearance3d. - MenuMorph - menuBorderWidth: 1; - menuBorderColor: Color lightGray; - menuLineColor: Color lightGray. - Morph useSoftDropShadow: true.. - - "Lists and Trees" - PluggableListMorph - filterableLists: true; - clearFilterAutomatically: false; - highlightHoveredRow: true; - menuRequestUpdatesSelection: true. - PluggableTreeMorph - filterByLabelsOnly: false; - maximumSearchDepth: 1. - LazyListMorph - listSelectionTextColor: Color black; - listSelectionColor: (Color r: 0.72 g: 0.72 b: 0.9). - - "Standard Tools" - BalloonMorph setBalloonColorTo: - (TranslucentColor r: 0.92 g: 0.92 b: 0.706 alpha: 0.75). - Workspace shouldStyle: false. - Browser - listClassesHierarchically: true; - showClassIcons: true; - showMessageIcons: true; - sortMessageCategoriesAlphabetically: true. - Preferences enable: #annotationPanes; - enable: #optionalButtons; - enable: #diffsWithPrettyPrint; - enable: #traceMessages; - enable: #alternativeBrowseIt; - enable: #menuWithIcons; - enable: #visualExplorer. - SystemNavigation thoroughSenders: true. - - "Halo" - Preferences - enable: #showBoundsInHalo ; - disable: #alternateHandlesLook. - - "System" - NetNameResolver enableIPv6: false. - Scanner - allowUnderscoreAsAssignment: true; - prefAllowUnderscoreSelectors: true. - - "that's all, folks"! Item was removed: - ----- Method: ReleaseBuilder class>>setPreferences46LowDetails (in category 'preferences') ----- - setPreferences46LowDetails - "Higher performance." - - self setPreferences46. - - self setProjectBackground: (Color gray: 0.6). - - Preferences disable: #roundedWindowCorners. - PluggableButtonMorph roundedButtonCorners: false. - FillInTheBlankMorph roundedDialogCorners: false. - MenuMorph roundedMenuCorners: false. - ScrollBar roundedScrollBarLook: false. - - Preferences disable: #gradientScrollBars. - SystemWindow gradientWindow: false. - MenuMorph gradientMenu: false. - PluggableButtonMorph gradientButton: false. - - Preferences disable: #menuAppearance3d. - - Morph indicateKeyboardFocus: false. - - PluggableListMorph highlightHoveredRow: false. - Browser - listClassesHierarchically: false; - showClassIcons: false; - showMessageIcons: false; - sortMessageCategoriesAlphabetically: false. - Preferences - disable: #menuWithIcons; - disable: #visualExplorer. - - "Non-3D menu." - MenuMorph - menuBorderWidth: 1; - menuBorderColor: Color lightGray; - menuLineColor: Color lightGray.! Item was removed: - ----- Method: ReleaseBuilder class>>setPreferences46Retro (in category 'preferences') ----- - setPreferences46Retro - "Higher performance." - - self setPreferences46. - - self setProjectBackground: self projectBackground46Computed. - - "Rounded stuff." - Morph preferredCornerRadius: 8. - Preferences enable: #roundedWindowCorners. - PluggableButtonMorph roundedButtonCorners: true. - FillInTheBlankMorph roundedDialogCorners: true. - MenuMorph roundedMenuCorners: true. - "ScrollBar roundedScrollBarLook: true." - - "Gradients." - Preferences enable: #gradientScrollBars. - SystemWindow gradientWindow: true. - MenuMorph gradientMenu: true. - PluggableButtonMorph gradientButton: true. - - "Scroll bars." - Preferences - disable: #scrollBarsNarrow; - enable: #alwaysShowVScrollbar; - enable: #alwaysHideHScrollbar. - ScrollBar - scrollBarsWithoutArrowButtons: false; - scrollBarsWithoutMenuButton: false.! Item was removed: - ----- Method: ReleaseBuilder class>>setProjectBackground: (in category 'private') ----- - setProjectBackground: aFormOrColorOrFillStyle - - MorphicProject defaultFill: (aFormOrColorOrFillStyle isForm - ifTrue: [InfiniteForm with: aFormOrColorOrFillStyle] - ifFalse: [aFormOrColorOrFillStyle isColor - ifTrue: [SolidFillStyle color: aFormOrColorOrFillStyle] - ifFalse: [aFormOrColorOrFillStyle]]). - ActiveWorld fillStyle: MorphicProject defaultFill.! Item was removed: - ----- Method: ReleaseBuilder class>>switchToNewRepository: (in category 'private') ----- - switchToNewRepository: anMCRepository - MCMcmUpdater defaultUpdateURL: anMCRepository description. - MCRepositoryGroup reset. - MCRepositoryGroup default addRepository: anMCRepository. - MCWorkingCopy allManagers do: - [ : each | each repositoryGroup: - (MCRepositoryGroup new - addRepository: anMCRepository ; - yourself) ]! Item was removed: - ----- Method: ReleaseBuilder class>>transferCurrentPackagesAsUser:password: (in category 'scripts') ----- - transferCurrentPackagesAsUser: username password: password - "Copy the packages currently loaded in the image from the trunk repository to my releaseRepository." - | releaseRep | - releaseRep := self releaseRepository - user: username; - password: password; - yourself. - MCWorkingCopy allManagers do: - [ : eachWorkingCopy | eachWorkingCopy ancestors do: - [ : eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo versionName) ifFalse: - [ (MCRepository trunk versionWithInfo: eachVersionInfo) - ifNil: [ Warning signal: eachVersionInfo name , ' not found in trunk.' ] - ifNotNilDo: [ : ver | releaseRep storeVersion: ver ] ] ] ]! Item was removed: - ----- Method: ReleaseBuilder class>>versionString (in category 'private') ----- - versionString - ^ 'Squeak4.6'!

1 0

Jump to page: