Packages August 2016

packages@lists.squeakfoundation.org

1 participants
528 discussions

The Trunk: Graphics-mt.357.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.357.mcz ==================== Summary ==================== Name: Graphics-mt.357 Author: mt Time: 2 August 2016, 2:17:01.661941 pm UUID: e1701760-a1c3-284e-982c-16f89ca08e75 Ancestors: Graphics-tfel.356 Move generic font size summary from Morphic into Graphics package. =============== Diff against Graphics-tfel.356 =============== Item was added: + ----- Method: TextStyle class>>fontSizeSummary (in category 'utilities') ----- + fontSizeSummary + "Open a text window with a simple summary of the available sizes in each of the fonts in the system." + + "TextStyle fontSizeSummary" + + (StringHolder new contents: self fontSizeSummaryContents) + openLabel: 'Font styles and sizes' translated! Item was added: + ----- Method: TextStyle class>>fontSizeSummaryContents (in category 'utilities') ----- + fontSizeSummaryContents + + ^ String streamContents: + [:aStream | + self knownTextStyles do: [:aStyleName | + aStream nextPutAll: + aStyleName, ' ', + (self fontPointSizesFor: aStyleName) asArray storeString. + aStream cr]].!

1 0

The Trunk: Morphic-mt.1222.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1222.mcz ==================== Summary ==================== Name: Morphic-mt.1222 Author: mt Time: 2 August 2016, 2:15:22.215941 pm UUID: 217156d7-7610-cc46-87a9-c78a24aadec0 Ancestors: Morphic-mt.1221 Clean-up structure of help texts. Remove duplicates. Favor our help system instead of spreading elaborate help texts throughout the system. =============== Diff against Morphic-mt.1221 =============== Item was removed: - ----- Method: TextStyle class>>fontSizeSummary (in category '*Morphic-user interface') ----- - fontSizeSummary - "Open a text window with a simple summary of the available sizes in each of the fonts in the system." - - "TextStyle fontSizeSummary" - | aString aList | - aList := self knownTextStyles. - aString := String streamContents: - [:aStream | - aList do: [:aStyleName | - aStream nextPutAll: - aStyleName, ' ', - (self fontPointSizesFor: aStyleName) asArray storeString. - aStream cr]]. - (StringHolder new contents: aString) - openLabel: 'Font styles and sizes' translated! Item was changed: ----- Method: TheWorldMainDockingBar>>aboutSqueak (in category 'menu actions') ----- aboutSqueak + + | m | + m := SystemReporter open. + m label: 'About Squeak' translated.! - false - ifTrue: - [UserDialogBoxMorph - inform: Smalltalk systemInformationString withCRs - title: 'About Squeak...' translated - at: World center] - ifFalse: - [| m | - m := SystemReporter open. - m label: 'About Squeak...' translated. - m setConstrainedPosition: World center - (m bounds extent / 2) - hangOut: false]! Item was added: + ----- Method: TheWorldMainDockingBar>>commandKeyHelp (in category 'submenu - help') ----- + commandKeyHelp + "Open a window giving command key help." + + self + openHelp: #SqueakTutorialsCommandKey + topic: nil + styled: false! Item was changed: ----- Method: TheWorldMainDockingBar>>extendingTheSystem (in category 'submenu - help') ----- extendingTheSystem + + self + openHelp: #SqueakProjectHelp + topic: #extendingTheSystem + styled: false.! - ^'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 added: + ----- Method: TheWorldMainDockingBar>>fontSizeSummary (in category 'submenu - help') ----- + fontSizeSummary + + self + openHelp: #SqueakToolsHelp + topic: #fontSizeSummary + styled: false.! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') ----- helpMenuOn: aDockingBar aDockingBar addItem: [ :it | it contents: 'Help' translated; + addSubMenu: [ :menu | + menu addItem: [:item | + item + contents: 'Squeak Help' translated; + help: 'Integrated Help System' translated; + target: self; + selector: #squeakHelp]. + + menu addLine. + - addSubMenu: [ :menu | 'Todo'. menu addItem:[:item| item contents: 'Online Resources' translated; help: 'Online resources for Squeak' translated; target: self; icon: MenuIcons smallHelpIcon; + selector: #squeakOnlineResources]. - selector: #showWelcomeText:label:in:; - arguments: { - #squeakOnlineResources. - 'Squeak Online Resources'. - (140@140 extent: 560@360) - }]. menu addItem:[:item| item contents: 'Keyboard Shortcuts' translated; help: 'Keyboard bindings used in Squeak' translated; + target: self; + selector: #commandKeyHelp ]. - target: Utilities; - selector: #openCommandKeyHelp ]. menu addItem:[:item| item contents: 'Font Size Summary' translated; + help: 'Font size summary.' translated; + target: self; - help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated; - target: TextStyle; selector: #fontSizeSummary ]. menu addItem:[:item| item contents: 'Useful Expressions' translated; + help: 'Useful expressions' translated; + target: self; + selector: #usefulExpressions ]. - help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated; - target: Utilities; - selector: #openStandardWorkspace ]. - (Smalltalk classNamed: #SystemReporter) ifNotNil: [:classSystemReporter | - menu addItem: [:item | - item - contents: 'About this System' translated; - help: 'SystemReporter status of the image and runtime environment' translated; - target: classSystemReporter; - selector: #open]]. menu addLine. menu addItem:[:item| item contents: 'Extending the system' translated; help: 'Includes code snippets to evaluate for extending the system' translated; target: self; icon: MenuIcons smallHelpIcon; + selector: #extendingTheSystem]. - selector: #showWelcomeText:label:in:; - arguments: { - #extendingTheSystem. - 'How to extend the system'. - (140@140 extent: 560@360) - }]. menu addLine. + + menu addItem:[:item| + item + contents: 'Release Notes' translated; + help: 'Changes in this release' translated ; + target: self; + selector: #releaseNotes]. + menu addItem:[:item| + item + contents: 'Working With Squeak' translated; + help: 'Information for new users' ; + target: self; + selector: #workingWithSqueak]. + menu addItem:[:item| + item + contents: 'The Squeak User Interface' translated; + help: 'Descriptions of some of the more-unusual UI elements in Squeak' ; + target: self; + selector: #squeakUserInterface]. + menu addItem:[:item| + item + contents: 'License Information' translated; + help: String empty ; + target: self; + selector: #licenseInformation]. + + + menu addLine. + menu addItem: [:item | + item + contents: 'About Squeak' translated; + help: 'SystemReporter status of the image and runtime environment' translated; + target: self; + selector: #aboutSqueak]. + ]]! - menu addItem:[:item| - item - contents: 'Welcome Workspaces' translated; - help: 'The Welcome Workspaces' translated; - addSubMenu:[:submenu| self welcomeWorkspacesOn: submenu]]. - (Smalltalk classNamed: #HelpBrowser) ifNotNil: [:classHelpBrowser | - (Smalltalk classNamed: #TerseGuideHelp) ifNotNil: [:classTerseGuideHelp | - menu addLine. - menu addItem: [:item | - item - contents: 'Terse Guide to Squeak' translated; - help: 'Concise information about language and environment' translated; - target: classHelpBrowser; - selector: #openForCodeOn:; - arguments: { classTerseGuideHelp }]]. - menu addLine. - menu addItem: [:item | - item - contents: 'Help Browser' translated; - help: 'Integrated Help System' translated; - target: classHelpBrowser; - selector: #open]]]]! Item was changed: ----- Method: TheWorldMainDockingBar>>licenseInformation (in category 'submenu - help') ----- licenseInformation + + self + openHelp: #SqueakLicenseHelp + topic: #officialLicense + styled: false.! - "Should NOT be edited interactively" - ^Smalltalk license asText! Item was added: + ----- Method: TheWorldMainDockingBar>>openHelp:topic:styled: (in category 'submenu - help') ----- + openHelp: bookSymbol topic: topicSymbol styled: boolean + + | openSelector | + openSelector := boolean ifTrue: [#openCodeOn:] ifFalse: [#openOn:]. + + (Smalltalk classNamed: 'HelpBrowser') + ifNil: [self inform: 'Sorry, there is no help system installed.' translated] + ifNotNil: [:helpClass | + (Smalltalk classNamed: bookSymbol) + ifNil: [self inform: 'Sorry, the help book you requested does not exist.'] + ifNotNil: [:book | + topicSymbol + ifNil: [(helpClass perform: openSelector with: book) model showFirstTopic] + ifNotNil: [helpClass perform: openSelector with: (book perform: topicSymbol)]]]! Item was changed: ----- Method: TheWorldMainDockingBar>>releaseNotes (in category 'submenu - help') ----- releaseNotes + + self + openHelp: #SqueakReleaseNotes + topic: nil + styled: false.! - ^'Squeak 5.0 - Release Notes - - A New Memory Model and Virtual Machine - - Fast Become - Squeak 5 introduces a new object model and VM known as "Spur". Presented [1] by Eliot Miranda and Clément Béra at the International Symposium on Memory Management in year 2015, this new VM retains the direct-pointer representation of objects in previous Squeak versions but now without requiring a full scan of the heap for become. This is done by introducing hidden forwarding objects which allow references to be updated lazily as they are encountered. Spur''s innovation is in avoiding explicit read barriers in all common cases. - - Additional Immediate Types - The new Spur memory model supports immediate Characters, so that Characters with unicode greater than 255 can be tested via #==, and wide string access is much faster. The 64-bit version, still under development, also provides immediate floats, occupying the middle 8th of the double precision exponent range. - - Simplified and Ready for 64-bit - Internally Spur uses a 64-bit object header, a representation shared between the 32-bit and 64-bit versions, and one that is significantly simpler than the three different header sizes used in the previous version. This simplicity means that the JIT now generates code to implement more primitives, in particular new and new:, resulting in significantly higher performance, at the cost of a 15% increase in image size. - - Enhanced Memory Management - Spur has a segmented heap, allowing the heap to grow and shrink a segment at a time. It provides per-object pinning to ensure specific objects will not be moved by the garbage collector, hence simplifying the FFI. Spur provides Ephemerons which allow for per-object finalization and the prevention of uncollectable cycles, for example in global property lists like DependentsFields (although this support has yet to be applied to the system). - - - Squeak now runs on ARM - - As a natural output of the Scratch application on Rasberry Pi project, the Spur VM can now run on the Rasberry Pi. - - - The Future of Spur - - Work is underway on an innovative adaptive optimizer/speculative inliner, and a 64-bit JIT for x64, and a global incremental mark-sweep collector is planned. See [2]. - - [1] -- http://conf.researchr.org/event/ismm-2015/ismm-2015-papers-a-partial-read-b… - [2] -- http://www.mirandabanda.org/cogblog/cog-projects/ - !! - ]style[(10 1 13 40 2 11 537 26 313 31 422 26 448 22 119 19 374)a2bFBitstreamVeraSerif#32.0,FBitstreamVeraSans#20.0a2,a2FBitstreamVeraSerif#24.0-,FBitstreamVeraSans#20.0,,b,,b,,b,,b,,FBitstreamVeraSans#20.0,,FBitstreamVeraSans#20.0,!!' readStream nextChunkText! Item was removed: - ----- Method: TheWorldMainDockingBar>>showSqueakResources (in category 'submenu - help') ----- - showSqueakResources - ^(StringHolder new contents: - 'Squeak web sites: - http://www.squeak.org - The main Squeak site. - http://news.squeak.org - The Weekly Squeak - http://board.squeak.org - The Squeak Oversight Board - http://ftp.squeak.org - Downloads for many Squeak versions. - http://squeakvm.org - Development of the Squeak virtual machine - - 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 (The NuBlue Book - Draft): - http://coweb.cc.gatech.edu/squeakbook/ - http://stephane.ducasse.free.fr/FreeBooks/CollectiveNBlueBook/ - - Squeak, Open Personal Computing for Multimedia (The White Book - Draft): - 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 - - ') openLabel: 'Squeak Online Resources'! Item was removed: - ----- Method: TheWorldMainDockingBar>>showWelcomeText:label:in: (in category 'submenu - help') ----- - showWelcomeText: aSelector label: labelString in: bounds - "Show a welcome text. Linked in here so that the text can be edited - by changing the acceptBlock below." - | acceptBlock window | - "Change the following to allow editing the text" - true ifTrue:[ - acceptBlock := [:text| - self class - compile: aSelector,' - ^', (String streamContents:[:s| s nextChunkPutWithStyle: text]) storeString, ' readStream nextChunkText' - classified: (self class organization categoryOfElement: aSelector). - ]. - ]. - - window := UIManager default - edit: (self perform: aSelector) - label: labelString - accept: acceptBlock. - window bounds: bounds. - ! Item was added: + ----- Method: TheWorldMainDockingBar>>squeakHelp (in category 'submenu - help') ----- + squeakHelp + + (Smalltalk classNamed: 'HelpBrowser') + ifNil: [self inform: 'Sorry, there is no help system installed.' translated] + ifNotNil: [:helpClass | helpClass open].! Item was changed: ----- Method: TheWorldMainDockingBar>>squeakOnlineResources (in category 'submenu - help') ----- squeakOnlineResources - ^'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/ + self + openHelp: #SqueakProjectHelp + topic: #squeakResourcesOnline + styled: false.! - 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 changed: ----- Method: TheWorldMainDockingBar>>squeakUserInterface (in category 'submenu - help') ----- squeakUserInterface + + self + openHelp: #SqueakProjectHelp + topic: #squeakUserInterface + styled: false.! - ^'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 can be used to change quickly from one task to another. An inactive project is represented by a project window, which shows a thumbnail of its state. Project windows are actually more like doors than windows, since you can enter the project just by clicking on them. 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 own set of windows and other information. - - Morphic Halos - In a morphic project, pressing cmd-click (Mac) or alt-click (Windows) on a graphical object (e.g. a window) will surround it with a constellation of colored circles. These are called "halo handles." Additional clicks will cycle through the halos for the other graphical objects in the nesting structure. If you hold down the Shift key while cmd/alt-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. - !!' readStream nextChunkText! Item was added: + ----- Method: TheWorldMainDockingBar>>terseGuideToSqueak (in category 'submenu - help') ----- + terseGuideToSqueak + + self + openHelp: #TerseGuideHelp + topic: nil + styled: false.! Item was added: + ----- Method: TheWorldMainDockingBar>>usefulExpressions (in category 'submenu - help') ----- + usefulExpressions + + self + openHelp: #SqueakTutorials + topic: #usefulExpressions + styled: false.! Item was removed: - ----- Method: TheWorldMainDockingBar>>welcomeWorkspacesOn: (in category 'submenu - help') ----- - welcomeWorkspacesOn: menu - | versionString | versionString := SystemVersion current version last: 3. - menu addItem:[:item| - item - contents: (versionString, ' Release Notes') translated; - help: 'Improvements in this release' translated ; - target: self; - selector: #showWelcomeText:label:in:; - arguments: { - #releaseNotes. - (versionString, ' Release Notes') translated. - (200@200 extent: 500@300) - }]. - menu addItem:[:item| - item - contents: 'Working With Squeak' translated; - help: 'Information for new users' ; - target: self; - selector: #showWelcomeText:label:in:; - arguments: { - #workingWithSqueak. - 'Working With Squeak'. - (180@180 extent: 500@300) - }]. - menu addItem:[:item| - item - contents: 'The Squeak User Interface' translated; - help: 'Descriptions of some of the more-unusual UI elements in Squeak' ; - target: self; - selector: #showWelcomeText:label:in:; - arguments: { - #squeakUserInterface. - 'The Squeak User Interface'. - (160@160 extent: 500@300) - }]. - menu addItem:[:item| - item - contents: 'License Information' translated; - help: String empty ; - target: self; - selector: #showWelcomeText:label:in:; - arguments: { - #licenseInformation. - 'License Information'. - (200@200 extent: 500@300) - }].! Item was changed: ----- Method: TheWorldMainDockingBar>>workingWithSqueak (in category 'submenu - help') ----- workingWithSqueak + + self + openHelp: #SqueakProjectHelp + topic: #workingWithSqueak + styled: false.! - ^'Starting and Quitting - Like most Smalltalks, 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 "SqueakV46.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 changed: ----- Method: TheWorldMenu>>helpMenu (in category 'construction') ----- helpMenu "Build the help menu for the world." | menu | menu := self menu: 'help...'. self fillIn: menu from: { {'about this system...'. {Smalltalk. #aboutThisSystem}. 'current version information.'}. {'update code from server'. {MCMcmUpdater. #updateFromServer}. 'load latest code updates via the internet'}. {'preferences...'. {self. #openPreferencesBrowser}. 'view and change various options.'}. {'set language...' . {Project. #chooseNaturalLanguage}. 'choose the language in which tiles should be displayed.'} . nil. + {'command-key help'. { TheWorldMainDockingBar instance . #commandKeyHelp}. 'summary of keyboard shortcuts.'} - {'command-key help'. { Utilities . #openCommandKeyHelp}. 'summary of keyboard shortcuts.'} }. self addGestureHelpItemsTo: menu. self fillIn: menu from: { {'world menu help'. { self . #worldMenuHelp}. 'helps find menu items buried in submenus.'}. "{'info about flaps' . { Utilities . #explainFlaps}. 'describes how to enable and use flaps.'}." {'font size summary' . { TextStyle . #fontSizeSummary}. 'summary of names and sizes of available fonts.'}. {'useful expressions' . { Utilities . #openStandardWorkspace}. 'a window full of useful expressions.'}. {'annotation setup...' . { Preferences . #editAnnotations}. 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools'}. nil. {'graphical imports' . { Imports default . #viewImages}. 'view the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList'}. {'standard graphics library' . { ScriptingSystem . #inspectFormDictionary}. 'lets you view and change the system''s standard library of graphics.'}. nil. {'telemorphic...' . {self. #remoteDo}. 'commands for doing multi-machine "telemorphic" experiments'}. {#soundEnablingString . { SoundService . #toggleSoundEnabled}. 'turning sound off will completely disable Squeak''s use of sound.'}. nil. {'set author initials...' . { Utilities . #setAuthorInitials }. 'supply initials to be used to identify the author of code and other content.'}. {'vm statistics' . { self . #vmStatistics}. 'obtain some intriguing data about the vm.'}. nil. {'purge undo records' . { CommandHistory . #resetAllHistory }. 'save space by removing all the undo information remembered in all projects.'}. {'space left' . { self . #garbageCollect}. 'perform a full garbage-collection and report how many bytes of space remain in the image.'}. }. ^menu ! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "..."'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!

1 0

The Trunk: ToolBuilder-Morphic-mt.177.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.177.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.177 Author: mt Time: 2 August 2016, 2:13:33.624941 pm UUID: b6ea5aa5-8401-d647-8d21-be0397a0088e Ancestors: ToolBuilder-Morphic-mt.176 Fixes a bug where the parent of the current selection in a tree was not updated in the model when the model updated its current selection. =============== Diff against ToolBuilder-Morphic-mt.176 =============== Item was added: + ----- Method: PluggableTreeMorph>>selectedMorph: (in category 'selection') ----- + selectedMorph: aMorph + + super selectedMorph: aMorph. + + "If the update came from the model, make my state consistent again." + selectedWrapper := aMorph complexContents. + self setSelectedParentMorph: aMorph.! Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph selectedWrapper := aMorph complexContents. "Let the model now about the selected object, not wrapper." setSelectionSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [:w | w item])]. + + self setSelectedParentMorph: aMorph.! - - "The model may not have access to the parent object in terms of this tree structure." - setSelectedParentSelector ifNotNil: [:symbol | - model - perform: symbol - with: (selectedWrapper ifNotNil: [:w | w parent ifNotNil: [:pw | pw item]])].! Item was added: + ----- Method: PluggableTreeMorph>>setSelectedParentMorph: (in category 'selection') ----- + setSelectedParentMorph: aMorph + + "The model may not have access to the parent object in terms of this tree structure." + setSelectedParentSelector ifNotNil: [:symbol | + model + perform: symbol + with: (selectedWrapper ifNotNil: [:w | w parent ifNotNil: [:pw | pw item]])].!

1 0

The Trunk: Morphic-mt.1221.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1221.mcz ==================== Summary ==================== Name: Morphic-mt.1221 Author: mt Time: 2 August 2016, 10:09:26.611882 am UUID: 49b92f76-cbe0-b442-8c78-770e30243990 Ancestors: Morphic-mt.1220 Let models such as HelpBrowser signal content changes that require a fresh start at the top. (Differentiate from appended content updates where a scroll-to-top would annoy the user who is scrolling down and in the process of reading). =============== Diff against Morphic-mt.1220 =============== Item was changed: ----- Method: PluggableTextMorph>>update: (in category 'updating') ----- update: aSymbol aSymbol ifNil: [^self]. aSymbol == #flash ifTrue: [^self flash]. aSymbol == getTextSelector ifTrue: [ self setText: self getText. getSelectionSelector ifNotNil: [self setSelection: self getSelection]. ^ self]. aSymbol == getSelectionSelector ifTrue: [^self setSelection: self getSelection]. aSymbol == #acceptChanges ifTrue: [^ self accept]. aSymbol == #revertChanges ifTrue: [^ self cancel]. (aSymbol == #autoSelect and: [getSelectionSelector notNil]) ifTrue: [self handleEdit: [(textMorph editor) abandonChangeText; "no replacement!!" setSearch: model autoSelectString; findAgain]]. aSymbol == #clearUserEdits ifTrue: [^self hasUnacceptedEdits: false]. aSymbol == #wantToChange ifTrue: [self canDiscardEdits ifFalse: [^self promptForCancel]. ^self]. aSymbol == #appendEntry ifTrue: [self handleEdit: [self appendEntry]. ^self refreshWorld]. aSymbol == #appendEntryLater ifTrue: [self handleEdit: [self appendEntry]]. aSymbol == #clearText ifTrue: [self handleEdit: [self changeText: Text new]. ^self refreshWorld]. aSymbol == #bs ifTrue: [self handleEdit: [self bsText]. ^self refreshWorld]. aSymbol == #codeChangedElsewhere ifTrue: [self hasEditingConflicts: true. ^self changed]. aSymbol == #saveContents ifTrue: [^self saveContentsInFile]. + aSymbol == #showContents + ifTrue: + [^ self scrollToTop]. !

1 0

The Trunk: HelpSystem-Core-mt.87.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.87.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.87 Author: mt Time: 2 August 2016, 10:07:29.753882 am UUID: ba6bc8ef-a866-df4f-802f-992894c957c7 Ancestors: HelpSystem-Core-nice.86 Fixes parsing of broken HTML a-href links as found in SWiki. Fixes scroll-to-top when selecting new help topics. =============== Diff against HelpSystem-Core-nice.86 =============== Item was changed: ----- Method: HelpBrowser>>currentTopic: (in category 'accessing') ----- currentTopic: aHelpTopic self okToChange ifFalse: [^ self]. self currentTopic == aHelpTopic ifTrue: [^ self]. currentTopic := aHelpTopic. topicPath := nil. self changed: #currentTopic. + self changed: #topicContents. + self changed: #showContents.! - self changed: #topicContents.! Item was changed: ----- Method: HtmlHelpTopic>>subtopicUrls (in category 'accessing') ----- subtopicUrls ^ subtopicUrls ifNil: [ + | start end endGuard | - | start end | subtopicUrls := OrderedCollection new. start := self document findString: '<a '. start := self document findString: 'href' startingAt: start. [start > 0] whileTrue: [ start := self document findString: '"' startingAt: start. end := self document findString: '"' startingAt: start+1. + endGuard := self document findString: '>' startingAt: start+1. + (end > 0 and: [end < endGuard]) + ifTrue: [subtopicUrls addIfNotPresent: (self document copyFrom: start+1 to: end-1)]. - subtopicUrls addIfNotPresent: (self document copyFrom: start+1 to: end-1). start := self document findString: '<a ' startingAt: end+1. start > 0 ifTrue: [start := self document findString: 'href' startingAt: start]]. subtopicUrls := subtopicUrls select: self selectBlock thenCollect: self convertBlock. subtopicUrls]!

1 0

The Trunk: Collections-mt.703.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.703.mcz ==================== Summary ==================== Name: Collections-mt.703 Author: mt Time: 2 August 2016, 10:05:41.089882 am UUID: 32b3f850-392c-9a4d-b0cb-7e1ed37c9bc6 Ancestors: Collections-mt.702 Small fix for SWiki HTML parsing. Recognize also non-hash color names. Our Color class is fine with it, too. =============== Diff against Collections-mt.702 =============== Item was changed: ----- Method: HtmlReadWriter>>mapFontTag: (in category 'mapping') ----- mapFontTag: aTag | result colorStartIndex colorStopIndex attribute | result := OrderedCollection new. + "<font color=""#00FFCC""> or <font color=""green"">" - "<font color=""#00FFCC"">" attribute := 'color'. colorStartIndex := aTag findString: attribute. colorStartIndex > 0 ifTrue: [ + colorStartIndex := aTag findString: '"' startingAt: colorStartIndex+attribute size. - colorStartIndex := aTag findString: '#' startingAt: colorStartIndex+attribute size. colorStopIndex := aTag findString: '"' startingAt: colorStartIndex+1. result add: (TextColor color: + (Color fromString: (aTag copyFrom: colorStartIndex+1 to: colorStopIndex-1)))]. + - (Color fromString: (aTag copyFrom: colorStartIndex to: colorStopIndex-1)))]. - ^ result!

1 0

The Trunk: Morphic-mt.1220.mcz
by commits＠source.squeak.org 02 Aug '16

02 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1220.mcz ==================== Summary ==================== Name: Morphic-mt.1220 Author: mt Time: 2 August 2016, 9:23:14.170882 am UUID: f900f8ec-e0be-0a43-8828-b5ecc0624b15 Ancestors: Morphic-mt.1219 I forgot to restore the keyboard shortcut functionality for confirmation dialogs. It has been there before my refactorings. =============== Diff against Morphic-mt.1219 =============== Item was changed: ----- Method: DialogWindow>>registerKeyboardShortcutFor: (in category 'constructing') ----- registerKeyboardShortcutFor: button "Take the first alpha-numeric character that is not already used as a shortcut, and use it as a shortcut." (button valueOfProperty: #normalLabel) asString in: [:normalLabel | normalLabel do: [:char | char isAlphaNumeric ifTrue: [ keyMap at: char asLowercase ifPresent: [] + ifAbsent: [ + button setProperty: #normalLabel toValue: ('{1} ({2})' format: {normalLabel. char asLowercase}). + button label: (button valueOfProperty: #normalLabel). - ifAbsent: [ - button label: ('{1} ({2})' format: {normalLabel. char}). ^ keyMap at: char asLowercase put: button ] ] ] ]! Item was changed: ----- Method: DialogWindow>>step (in category 'stepping and presenter') ----- step timeout ifNil: [^self]. timeout = 0 ifTrue: [ self stopStepping. selectedButton performAction] ifFalse: [ + selectedButton label: ('{1} [{2}]' format: { - selectedButton label: ('{1} ({2})' format: { selectedButton valueOfProperty: #normalLabel. timeout}). timeout := timeout - 1]! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:orCancel:title:at: (in category 'utilities') ----- confirm: aString orCancel: cancelBlock title: titleString at: aPointOrNil (self new title: titleString; message: aString; createButton: 'Yes' translated value: true; createButton: 'No' translated value: false; createButton: 'Cancel' translated value: nil; selectedButtonIndex: 1; "YES" + registerKeyboardShortcuts; yourself) in: [:dialog | ^ (aPointOrNil ifNil: [dialog getUserResponseAtHand] ifNotNil: [ dialog moveTo: aPointOrNil. dialog getUserResponse]) ifNil: [ cancelBlock value ]]! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:at: (in category 'utilities') ----- confirm: aString title: titleString at: aPointOrNil "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?'" ^self new title: titleString; message: aString; createButton: 'Yes' translated value: true; createCancelButton: 'No' translated value: false; selectedButtonIndex: 1; "YES" + registerKeyboardShortcuts; getUserResponseAtHand! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice at: aPointOrNil "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; createCancelButton: falseChoice translated value: false; selectedButtonIndex: 1; + registerKeyboardShortcuts; moveTo: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponse! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:default:triggerAfter:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice default: default triggerAfter: seconds at: aPointOrNil "UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121@212" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; createCancelButton: falseChoice translated value: false; selectedButtonIndex: (default ifTrue: [1] ifFalse: [2]); + registerKeyboardShortcuts; moveTo: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponseAfter: seconds!

1 0

The Trunk: Services-Base-cmm.59.mcz
by commits＠source.squeak.org 01 Aug '16

01 Aug '16

Chris Muller uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-cmm.59.mcz ==================== Summary ==================== Name: Services-Base-cmm.59 Author: cmm Time: 1 August 2016, 2:27:04.61688 pm UUID: 47d86ec3-8926-4a76-a51b-20c21cd0aae2 Ancestors: Services-Base-mt.58 Fix for selection of ServiceEntry items on menus activated from background windows. =============== Diff against Services-Base-mt.58 =============== Item was added: + ----- Method: PasteUpMorph>>focusedRequestor (in category '*services-base') ----- + focusedRequestor + "returns the focused window's requestor" + ^self submorphs + detect: [:ea | ea isSystemWindow and: [ea isLookingFocused]] + ifFound: [:ea | ea requestor] + ifNone: [Requestor default]! Item was removed: - ----- Method: PasteUpMorph>>topRequestor (in category '*services-base') ----- - topRequestor - "returns the focused window's requestor" - ^ SystemWindow topWindow requestor! Item was changed: ----- Method: ServiceAction>>execute (in category 'executing') ----- execute + ^ action clone valueWithRequestor: World focusedRequestor! - ^ action clone valueWithRequestor: World topRequestor! Item was changed: ----- Method: ServiceAction>>executeCondition (in category 'executing') ----- executeCondition + ^ [condition clone valueWithRequestor: World focusedRequestor] - ^ [condition clone valueWithRequestor: World topRequestor] on: Error do: [false]!

1 0

The Trunk: System-mt.858.mcz
by commits＠source.squeak.org 01 Aug '16

01 Aug '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.858.mcz ==================== Summary ==================== Name: System-mt.858 Author: mt Time: 1 August 2016, 5:20:59.661106 pm UUID: a27d5973-1724-5a4e-a013-45aa8c9bd421 Ancestors: System-mt.857 Re-create all basic themes due to the latest updates in three-phase button morph. =============== Diff against System-mt.857 =============== Item was changed: + (PackageInfo named: 'System') postscript: '"Re-create all themes." + SqueakTheme create apply. - (PackageInfo named: 'System') postscript: 'SqueakTheme create apply. SqueakTheme createClassic; createDuller. SolarizedTheme createDark; createLight. MonokaiTheme createDark. CommunityTheme createDark.'!

1 0

The Trunk: PreferenceBrowser-mt.63.mcz
by commits＠source.squeak.org 01 Aug '16

01 Aug '16

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.63.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.63 Author: mt Time: 1 August 2016, 5:18:07.719106 pm UUID: b534f79f-adbf-164f-80c0-4eb1c4740b8d Ancestors: PreferenceBrowser-mt.62 Fixes the appearance of the preference browser considering themes. There are still some UI glitches, but at least a freshly opened preference browser looks now like the current UI theme suggests it. Yeah, we borrow UI properties from the PluggableListMorph because the whole preference browser is subject to refactoring in the future. (Sorry for this small hack. Kids, do not use UserInterfaceTheme like that! Look away! Hurry! What's that? Ice cream? Ice cream!) =============== Diff against PreferenceBrowser-mt.62 =============== Item was changed: ----- Method: PBBooleanPreferenceView>>enabledButton (in category 'user interface') ----- enabledButton + | aButton | - | aButton aLabel | aButton := UpdatingThreePhaseButtonMorph checkBox target: self preference; actionSelector: #togglePreferenceValue; getSelector: #preferenceValue; + label: 'enabled' translated; yourself. - aLabel := (StringMorph contents: 'enabled' translated - font: (StrikeFont familyName: TextStyle defaultFont familyName - pointSize: TextStyle defaultFont pointSize - 1)). ^self horizontalPanel addMorphBack: aButton; - addMorphBack: aLabel; yourself.! Item was changed: ----- Method: PBBooleanPreferenceView>>localToProjectButton (in category 'user interface') ----- localToProjectButton + | aButton | - | aButton aLabel | aButton := UpdatingThreePhaseButtonMorph checkBox target: self preference; actionSelector: #toggleProjectLocalness; getSelector: #localToProject; + label: 'local' translated; yourself. - aLabel := (StringMorph contents: 'local' translated - font: (StrikeFont familyName: TextStyle defaultFont familyName - pointSize: TextStyle defaultFont pointSize - 1)). ^self horizontalPanel addMorphBack: aButton; - addMorphBack: aLabel; yourself.! Item was changed: ----- Method: PBBooleanPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferencesPanel ^self horizontalPanel layoutInset: 2; cellInset: 7; color: aColor; + addMorphBack: self morphForName; - addMorphBack: (StringMorph contents: self preference name); addMorphBack: self horizontalFiller; addMorphBack: self enabledButton; addMorphBack: self localToProjectButton; yourself.! Item was changed: ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; cellInset: 20; cellPositioning: #center; + addMorphBack: self morphForName; - addMorphBack: (StringMorph contents: self preference name); addMorphBack: self horizontalFiller; addMorphBack: self colorMenuButton; yourself! Item was changed: ----- Method: PBHaloThemePreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferencesPanel | innerPanel | innerPanel := self horizontalPanel addMorphBack: (self blankSpaceOf: 10@0); addMorphBack: self haloThemeRadioButtons; yourself. ^self verticalPanel color: aColor; layoutInset: 2; + addMorphBack: self morphForName; - addMorphBack: (StringMorph contents: self preference name); addMorphBack: innerPanel.! Item was changed: ----- Method: PBNumericPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; cellInset: 20; cellPositioning: #center; + addMorphBack: self morphForName; - addMorphBack: (StringMorph contents: self preference name); addMorphBack: self horizontalFiller; addMorphBack: self textField; yourself.! Item was changed: ----- Method: PBNumericPreferenceView>>textField (in category 'user interface') ----- textField ^(PluggableTextMorph on: self text: #preferenceValue accept: #preferenceValue:) hideScrollBarsIndefinitely; - borderColor: #inset; acceptOnCR: true; - color: Color gray veryMuchLighter; vResizing: #rigid; hResizing: #spaceFill; height: TextStyle defaultFont height + 6; yourself.! Item was changed: ----- Method: PBPreferenceButtonMorph>>highlightOff (in category 'highlighting') ----- highlightOff self beTransparent. + self label + color: ((UserInterfaceTheme current get: #textColor for: PluggableListMorph) ifNil: [Color black]); + font: ((UserInterfaceTheme current get: #font for: PluggableListMorph) ifNil: [TextStyle defaultFont]). - self label color: Color black. self removeExtraControls.! Item was changed: ----- Method: PBPreferenceButtonMorph>>highlightOn (in category 'highlighting') ----- highlightOn + self color: ((UserInterfaceTheme current get: #selectionColor for: PluggableListMorph) ifNil: [Color gray alpha: 0.1]). + + self label + color: ((UserInterfaceTheme current get: #selectionTextColor for: PluggableListMorph) ifNil: [Color black]); + font: ((UserInterfaceTheme current get: #font for: PluggableListMorph) ifNil: [TextStyle defaultFont]). + - self color: (Color gray alpha: 0.1). - self addExtraControls.! Item was changed: ----- Method: PBPreferenceButtonMorph>>preferenceHelpText (in category 'preference accessing') ----- preferenceHelpText ^self preferenceHelp asText addAttribute: TextEmphasis italic; + addAttribute: (TextColor color: ((UserInterfaceTheme current get: #textColor for: PluggableListMorph) ifNil: [Color black])); yourself.! Item was changed: ----- Method: PBTextPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; cellInset: 20; cellPositioning: #center; + addMorphBack: self morphForName; - addMorphBack: (StringMorph contents: self preference name); addMorphBack: self textField; yourself.! Item was changed: ----- Method: PreferenceBrowserMorph>>basicButton (in category 'submorphs - buttons') ----- basicButton + + ^ PluggableButtonMorph new + model: self model; + offColor: self paneColor; + hResizing: #shrinkWrap; + layoutInset: (15@5 corner: 15@5); + yourself! - | button | - button := SimpleButtonMorph new. - button - borderWidth: 2; - borderColor: #raised; - on: #mouseEnter send: #value to: [button borderColor: self paneColor]; - on: #mouseLeave send: #value to: [button borderColor: #raised]; - vResizing: #spaceFill; - useRoundedCorners; - clipSubmorphs: true; - color: self paneColor muchLighter; - target: self model. - ^button! Item was changed: ----- Method: PreferenceBrowserMorph>>defaultButton (in category 'submorphs - buttons') ----- defaultButton ^defaultButton ifNil: [defaultButton := self basicButton label: 'default' translated; + action: #defaultSelected; - actionSelector: #defaultSelected; setBalloonText: 'Click here to reset all the preferences to their standard ', 'default values.' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>helpButton (in category 'submorphs - buttons') ----- helpButton ^helpButton ifNil: [helpButton := self basicButton label: 'help' translated; setBalloonText: 'Click here to get some hints on use of this Preferences ', 'Panel' translated; + action: #helpSelected]! - actionSelector: #helpSelected]! Item was changed: ----- Method: PreferenceBrowserMorph>>loadButton (in category 'submorphs - buttons') ----- loadButton ^loadButton ifNil: [loadButton := self basicButton label: 'load' translated; + action: #loadSelected; - actionSelector: #loadSelected; setBalloonText: 'Click here to reset all the preferences to their values ', 'in your Personal Preferences.' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>loadFromDiskButton (in category 'submorphs - buttons') ----- loadFromDiskButton ^loadFromDiskButton ifNil: [loadFromDiskButton := self basicButton label: 'load from disk' translated; + action: #loadFromDiskSelected; - actionSelector: #loadFromDiskSelected; setBalloonText: 'Click here to load all the preferences from ', 'their saved values on disk.' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>newCategoryList (in category 'submorphs - category list') ----- newCategoryList ^(PluggableListMorph on: self model list: #categoryList selected: #selectedCategoryIndex changeSelected: #selectedCategoryIndex:) - color: Color white; - borderInset; hResizing: #spaceFill; vResizing: #spaceFill; layoutFrame: (LayoutFrame fractions: (0@0 corner: 0.25@1)); yourself.! Item was changed: ----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') ----- newSearchTextField | ptm | ptm := PluggableTextMorphPlus on: self model text: #searchPatternNeverTriggered accept: #searchPattern:. ptm minimumHeight: 0; balloonText: 'Search preferences ...'; hideScrollBarsIndefinitely; layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (TextStyle default lineGrid * 2))); borderInset; - color: Color white; vResizing: #spaceFill; hResizing: #spaceFill; acceptOnCR: true; onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ]. ^ptm.! Item was changed: ----- Method: PreferenceBrowserMorph>>preferenceList (in category 'submorphs - preference list') ----- preferenceList ^preferenceList ifNil: [preferenceList := ScrollPane new - color: Color white; - borderInset; vResizing: #spaceFill; hResizing: #spaceFill; + layoutFrame: (LayoutFrame fractions: (0.25@0 corner: 1@1) offsets: (4@0 corner: 0@0)). - layoutFrame: (LayoutFrame fractions: (0.25@0 corner: 1@1)). preferenceList scroller - on: #mouseEnter send: #value: - to: [:event | event hand newKeyboardFocus: preferenceList scroller]; on: #keyStroke send: #keyPressed: to: self. preferenceList.]! Item was changed: ----- Method: PreferenceBrowserMorph>>saveButton (in category 'submorphs - buttons') ----- saveButton ^saveButton ifNil: [saveButton := self basicButton label: 'save' translated; + action: #saveSelected; - actionSelector: #saveSelected; setBalloonText: 'Click here to save the current constellation of Preferences ', 'settings as your personal defaults; you can get them all ', 'reinstalled with a single gesture by clicking the "Restore ', 'my Personal Preferences".' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>saveToDiskButton (in category 'submorphs - buttons') ----- saveToDiskButton ^saveToDiskButton ifNil: [saveToDiskButton := self basicButton label: 'save to disk' translated; + action: #saveToDiskSelected; - actionSelector: #saveToDiskSelected; setBalloonText: 'Click here to save the current constellation of Preferences ', 'settings to a file; you can get them all reinstalled with a ', 'single gesture by clicking "Restore Settings From Disk".' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>themeButton (in category 'submorphs - buttons') ----- themeButton ^themeButton ifNil: [themeButton := self basicButton label: 'theme...' translated; + action: #themeSelected; - actionSelector: #themeSelected; setBalloonText: 'Numerous "Preferences" govern many things about the ', 'way Squeak looks and behaves. Set individual preferences ', 'using a "Preferences" panel. Set an entire "theme" of many ', 'Preferences all at the same time by pressing this "change ', 'theme" button and choosing a theme to install. Look in ', 'category "themes" in Preferences class to see what each ', 'theme does; add your own methods to the "themes" ', 'category and they will show up in the list of theme ', 'choices.' translated].! Item was added: + ----- Method: PreferenceView>>morphForName (in category 'user interface') ----- + morphForName + + ^ ((StringMorph contents: self preference name) + color: ((UserInterfaceTheme current get: #textColor for: PluggableListMorph) ifNil: [Color black]); + font: ((UserInterfaceTheme current get: #font for: PluggableListMorph) ifNil: [TextStyle defaultFont]); + yourself)! Item was changed: ----- Method: PreferenceView>>tearOffButton (in category 'user interface') ----- tearOffButton "Hand the user a button the can control this" | aButton | + aButton := self representativeButtonWithColor: ((UserInterfaceTheme current get: #uniformWindowColor for: Model) ifNil: [Color white]) inPanel: nil. - aButton := self representativeButtonWithColor: Color white inPanel: nil. aButton borderWidth: 1; borderColor: Color black; useRoundedCorners. aButton openInHand!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2016