Packages February 2015

packages@lists.squeakfoundation.org

1 participants
183 discussions

The Trunk: Graphics-mt.307.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.307.mcz ==================== Summary ==================== Name: Graphics-mt.307 Author: mt Time: 26 February 2015, 6:22:20.558 pm UUID: 15e4bf40-5f71-5f45-a0a4-86179930d6d5 Ancestors: Graphics-kfr.305 No CornerRounder anymore. Depended morphs have to round corners themselves. See Morphic-mt.760. =============== Diff against Graphics-kfr.305 =============== Item was removed: - Object subclass: #CornerRounder - instanceVariableNames: 'cornerMasks cornerOverlays underBits' - classVariableNames: 'CR0 CR1 CR2' - poolDictionaries: '' - category: 'Graphics-Display Objects'! - - !CornerRounder commentStamp: '<historical>' prior: 0! - This class is a quick hack to support rounded corners in morphic. - - Rather than produce rounded rectangles, it tweaks the display of corners. - Rather than work for any radius, it only supports a radius of 6. - Rather than work for any border width, it only supports widths 0, 1 and 2. - The corners, while apparently transparent, still behave opaquely to mouse clicks. - - Worse than this, the approach relies on the ability to extract underlying bits from the canvas prior to display. This ran afoul of top-down display, it seems, in SystemWindow spawnReframeHandle: (qv). It will also make a postscript printer very unhappy. - - But, hey, it's cute.! Item was removed: - ----- Method: CornerRounder class>>initialize (in category 'all') ----- - initialize "CornerRounder initialize" - - CR0 := CR1 := self new - masterMask: - (Form extent: 6@6 - fromArray: #(2r1e26 2r111e26 2r1111e26 2r11111e26 2r11111e26 2r111111e26) - offset: 0@0) - masterOverlay: - (Form extent: 6@6 - fromArray: #(2r1e26 2r110e26 2r1000e26 2r10000e26 2r10000e26 2r100000e26) - offset: 0@0). - CR2 := self new - masterMask: - (Form extent: 6@6 - fromArray: #(2r1e26 2r111e26 2r1111e26 2r11111e26 2r11111e26 2r111111e26) - offset: 0@0) - masterOverlay: - (Form extent: 6@6 - fromArray: #(2r1e26 2r111e26 2r1111e26 2r11100e26 2r11000e26 2r111000e26) - offset: 0@0). - - ! Item was removed: - ----- Method: CornerRounder class>>rectWithinCornersOf: (in category 'all') ----- - rectWithinCornersOf: aRectangle - "Return a single sub-rectangle that lies entirely inside corners - that are made by me. - Used to identify large regions of window that do not need to be redrawn." - - ^ aRectangle insetBy: 0@6! Item was removed: - ----- Method: CornerRounder class>>roundCornersOf:on:in:displayBlock:borderWidth:corners: (in category 'all') ----- - roundCornersOf: aMorph on: aCanvas in: bounds displayBlock: displayBlock borderWidth: w corners: aList - - | rounder | - rounder := CR0. - w = 1 ifTrue: [rounder := CR1]. - w = 2 ifTrue: [rounder := CR2]. - rounder := rounder copy. - rounder saveBitsUnderCornersOf: aMorph on: aCanvas in: bounds corners: aList. - displayBlock value. - rounder tweakCornersOf: aMorph on: aCanvas in: bounds borderWidth: w corners: aList! Item was removed: - ----- Method: CornerRounder>>masterMask:masterOverlay: (in category 'all') ----- - masterMask: maskForm masterOverlay: overlayForm - - cornerMasks := #(none left pi right) collect: - [:dir | (maskForm rotateBy: dir centerAt: 0@0) offset: 0@0]. - cornerOverlays := #(none left pi right) collect: - [:dir | (overlayForm rotateBy: dir centerAt: 0@0) offset: 0@0]. - ! Item was removed: - ----- Method: CornerRounder>>saveBitsUnderCornersOf:on:in:corners: (in category 'all') ----- - saveBitsUnderCornersOf: aMorph on: aCanvas in: bounds corners: cornerList - - | corners | - underBits := Array new: 4. - corners := bounds corners. - cornerList do:[:i| - | offset corner mask form rect | - mask := cornerMasks at: i. - corner := corners at: i. - i = 1 ifTrue: [offset := 0@0]. - i = 2 ifTrue: [offset := 0@mask height negated]. - i = 3 ifTrue: [offset := mask extent negated]. - i = 4 ifTrue: [offset := mask width negated@0]. - rect := corner + offset extent: mask extent. - (aCanvas isVisible: rect) ifTrue:[ - form := aCanvas contentsOfArea: rect. - form copyBits: form boundingBox from: mask at: 0@0 clippingBox: form boundingBox rule: Form and fillColor: nil map: (Bitmap with: 16rFFFFFFFF with: 0). - underBits at: i put: form]]. - ! Item was removed: - ----- Method: CornerRounder>>tweakCornersOf:on:in:borderWidth:corners: (in category 'all') ----- - tweakCornersOf: aMorph on: aCanvas in: bounds borderWidth: w corners: cornerList - "This variant has a cornerList argument, to allow some corners to be rounded and others not" - | fourColors mask shadowColor corners | - shadowColor := aCanvas shadowColor. - aCanvas shadowColor: nil. "for tweaking it's essential" - w > 0 ifTrue:[ - fourColors := shadowColor - ifNil:[aMorph borderStyle colorsAtCorners] - ifNotNil:[Array new: 4 withAll: Color transparent]]. - mask := Form extent: cornerMasks first extent depth: aCanvas depth. - corners := bounds corners. - cornerList do:[:i| - | offset corner saveBits outBits | - corner := corners at: i. - saveBits := underBits at: i. - saveBits ifNotNil:[ - i = 1 ifTrue: [offset := 0@0]. - i = 2 ifTrue: [offset := 0@saveBits height negated]. - i = 3 ifTrue: [offset := saveBits extent negated]. - i = 4 ifTrue: [offset := saveBits width negated@0]. - - "Mask out corner area (painting saveBits won't clear if transparent)." - mask copyBits: mask boundingBox from: (cornerMasks at: i) at: 0@0 clippingBox: mask boundingBox rule: Form over fillColor: nil map: (Bitmap with: 0 with: 16rFFFFFFFF). - outBits := aCanvas contentsOfArea: (corner + offset extent: mask extent). - mask displayOn: outBits at: 0@0 rule: Form and. - "Paint back corner bits." - saveBits displayOn: outBits at: 0@0 rule: Form paint. - "Paint back corner bits." - aCanvas drawImage: outBits at: corner + offset. - - w > 0 ifTrue:[ - - aCanvas stencil: (cornerOverlays at: i) at: corner + offset - color: (fourColors at: i)]]]. - aCanvas shadowColor: shadowColor. "restore shadow color" - !

1 0

The Trunk: Nebraska-mt.40.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Marcel Taeumel uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-mt.40.mcz ==================== Summary ==================== Name: Nebraska-mt.40 Author: mt Time: 26 February 2015, 6:21:34.677 pm UUID: 87029112-f31e-4d46-a380-9c0442f2bec7 Ancestors: Nebraska-bf.39 No CornerRounder anymore. Depended morphs have to round corners themselves. See Morphic-mt.760. =============== Diff against Nebraska-bf.39 =============== Item was removed: - ----- Method: RemoteCanvas>>roundCornersOf:in:during: (in category 'drawing-general') ----- - roundCornersOf: aMorph in: bounds during: aBlock - - self flag: #roundedRudeness. - - aMorph wantsRoundedCorners ifFalse:[^aBlock value]. - (self seesNothingOutside: (CornerRounder rectWithinCornersOf: bounds)) - ifTrue: ["Don't bother with corner logic if the region is inside them" - ^ aBlock value]. - CornerRounder roundCornersOf: aMorph on: self in: bounds - displayBlock: aBlock - borderWidth: aMorph borderWidthForRounding - corners: aMorph roundedCorners!

1 0

The Trunk: Nebraska-mt.40.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

The Trunk: Nebraska-mt.40.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

The Trunk: Morphic-mt.760.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.760.mcz ==================== Summary ==================== Name: Morphic-mt.760 Author: mt Time: 26 February 2015, 6:19:14.906 pm UUID: fb8f4f20-e595-d444-a291-58885547c05f Ancestors: Morphic-topa.759 Corner rounding refactored. Does not rely on (spooky) CornerRounder implementation anymore. Many hacks for that CornerRounder could be removed from Morphic. A preference can be used to choose the preferred corner radius for rounded morphs. (Preferences > Morphic > Preferred Corner Radius) Subclasses may override the drawing of corners as needed. See draw* methods. =============== Diff against Morphic-topa.759 =============== Item was removed: - ----- Method: Canvas>>roundCornersOf:during: (in category 'drawing-general') ----- - roundCornersOf: aMorph during: aBlock - ^self roundCornersOf: aMorph in: aMorph bounds during: aBlock! Item was removed: - ----- Method: Canvas>>roundCornersOf:in:during: (in category 'drawing-general') ----- - roundCornersOf: aMorph in: bounds during: aBlock - ^aBlock value! Item was removed: - ----- Method: FormCanvas>>roundCornersOf:in:during: (in category 'drawing-general') ----- - roundCornersOf: aMorph in: bounds during: aBlock - aMorph wantsRoundedCorners ifFalse:[^aBlock value]. - (self seesNothingOutside: (CornerRounder rectWithinCornersOf: bounds)) - ifTrue: ["Don't bother with corner logic if the region is inside them" - ^ aBlock value]. - CornerRounder roundCornersOf: aMorph on: self in: bounds - displayBlock: aBlock - borderWidth: aMorph borderWidthForRounding - corners: aMorph roundedCorners! Item was changed: ----- Method: HandMorph>>fullDrawOn: (in category 'drawing') ----- fullDrawOn: aCanvas "A HandMorph has unusual drawing requirements: 1. the hand itself (i.e., the cursor) appears in front of its submorphs 2. morphs being held by the hand cast a shadow on the world/morphs below The illusion is that the hand plucks up morphs and carries them above the world." "Note: This version caches an image of the morphs being held by the hand for better performance. This cache is invalidated if one of those morphs changes." + | disableCaching subBnds | - | disableCaching subBnds roundCorners rounded | self visible ifFalse: [^self]. (aCanvas isVisible: self fullBounds) ifFalse: [^self]. (self hasProperty: #errorOnDraw) ifTrue:[^self drawErrorOn: aCanvas]. disableCaching := false. disableCaching ifTrue: [self nonCachingFullDrawOn: aCanvas. ^self]. submorphs isEmpty ifTrue: [cacheCanvas := nil. ^self drawOn: aCanvas]. "just draw the hand itself" subBnds := Rectangle merging: (submorphs collect: [:m | m fullBounds]). self updateCacheCanvas: aCanvas. (cacheCanvas isNil or: [cachedCanvasHasHoles and: [cacheCanvas depth = 1]]) ifTrue: ["could not use caching due to translucency; do full draw" self nonCachingFullDrawOn: aCanvas. ^self]. - "--> begin rounded corners hack <---" - roundCorners := cachedCanvasHasHoles == false - and: [submorphs size = 1 and: [submorphs first wantsRoundedCorners]]. - roundCorners - ifTrue: - [rounded := submorphs first. - aCanvas asShadowDrawingCanvas translateBy: self shadowOffset - during: - [:shadowCanvas | - shadowCanvas roundCornersOf: rounded - during: - [(subBnds areasOutside: (rounded boundsWithinCorners - translateBy: self shadowOffset negated)) - do: [:r | shadowCanvas fillRectangle: r color: Color black]]]. - aCanvas roundCornersOf: rounded - during: - [aCanvas - drawImage: cacheCanvas form - at: subBnds origin - sourceRect: cacheCanvas form boundingBox]. - ^self drawOn: aCanvas "draw the hand itself in front of morphs"]. - "--> end rounded corners hack <---" - "draw the shadow" aCanvas asShadowDrawingCanvas translateBy: self shadowOffset during: [:shadowCanvas | cachedCanvasHasHoles ifTrue: ["Have to draw the real shadow of the form" shadowCanvas paintImage: cacheCanvas form at: subBnds origin] ifFalse: ["Much faster if only have to shade the edge of a solid rectangle" (subBnds areasOutside: (subBnds translateBy: self shadowOffset negated)) do: [:r | shadowCanvas fillRectangle: r color: Color black]]]. "draw morphs in front of the shadow using the cached Form" cachedCanvasHasHoles ifTrue: [aCanvas paintImage: cacheCanvas form at: subBnds origin] ifFalse: [aCanvas drawImage: cacheCanvas form at: subBnds origin sourceRect: cacheCanvas form boundingBox]. self drawOn: aCanvas "draw the hand itself in front of morphs"! Item was changed: Object subclass: #Morph instanceVariableNames: 'bounds owner submorphs fullBounds color extension' + classVariableNames: 'PreferredCornerRadius' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Kernel'! !Morph commentStamp: 'efc 2/26/2003 20:01' prior: 0! A Morph (from the Greek "shape" or "form") is an interactive graphical object. General information on the Morphic system can be found at http://minnow.cc.gatech.edu/squeak/30. Morphs exist in a tree, rooted at a World (generally a PasteUpMorph). The morphs owned by a morph are its submorphs. Morphs are drawn recursively; if a Morph has no owner it never gets drawn. To hide a Morph and its submorphs, set its #visible property to false using the #visible: method. The World (screen) coordinate system is used for most coordinates, but can be changed if there is a TransformMorph somewhere in the owner chain. My instance variables have accessor methods (e.g., #bounds, #bounds:). Most users should use the accessor methods instead of using the instance variables directly. Structure: instance var Type Description bounds Rectangle A Rectangle indicating my position and a size that will enclose me. owner Morph My parent Morph, or nil for the top-level Morph, which is a or nil world, typically a PasteUpMorph. submorphs Array My child Morphs. fullBounds Rectangle A Rectangle minimally enclosing me and my submorphs. color Color My primary color. Subclasses can use this in different ways. extension MorphExtension Allows extra properties to be stored without adding a or nil storage burden to all morphs. By default, Morphs do not position their submorphs. Morphs may position their submorphs directly or use a LayoutPolicy to automatically control their submorph positioning. Although Morph has some support for BorderStyle, most users should use BorderedMorph if they want borders.! Item was added: + ----- Method: Morph class>>preferredCornerRadius (in category 'preferences') ----- + preferredCornerRadius + + <preference: 'Preferred Corner Radius' + category: 'Morphic' + description: 'If a morph wants rounded corners, use this radius. May be overwritten in subclasses.' + type: #Number> + ^ PreferredCornerRadius ifNil: [6]! Item was added: + ----- Method: Morph class>>preferredCornerRadius: (in category 'preferences') ----- + preferredCornerRadius: anInteger + + PreferredCornerRadius := anInteger.! Item was changed: ----- Method: Morph>>boundsWithinCorners (in category 'drawing') ----- boundsWithinCorners + "Return a single sub-rectangle that lies entirely inside corners + that are made by me. + Used to identify large regions of window that do not need to be redrawn." + ^ self wantsRoundedCorners + ifTrue: [self bounds insetBy: 0@self class preferredCornerRadius] + ifFalse: [self bounds] + ! - ^ CornerRounder rectWithinCornersOf: self bounds! Item was changed: ----- Method: Morph>>drawDropHighlightOn: (in category 'drawing') ----- drawDropHighlightOn: aCanvas + self highlightedForDrop ifTrue: [ + self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self fullBounds radius: self class preferredCornerRadius width: 1 color: self dropHighlightColor] + ifFalse: [aCanvas frameRectangle: self fullBounds color: self dropHighlightColor]].! - aCanvas frameRectangle: self fullBounds color: self dropHighlightColor].! Item was changed: ----- Method: Morph>>drawDropShadowOn: (in category 'drawing') ----- drawDropShadowOn: aCanvas aCanvas translateBy: self shadowOffset during: [ :shadowCanvas | + (shadowCanvas isVisible: self bounds) ifTrue: [ + self wantsRoundedCorners + ifTrue: [shadowCanvas fillRoundRect: self bounds radius: self class preferredCornerRadius fillStyle: self shadowColor] + ifFalse: [shadowCanvas fillRectangle: self bounds fillStyle: self shadowColor]]]. - shadowCanvas shadowColor: self shadowColor. - shadowCanvas roundCornersOf: self during: [ - (shadowCanvas isVisible: self bounds) ifTrue: - [shadowCanvas fillRectangle: self bounds fillStyle: self fillStyle]] - ]. ! Item was changed: ----- Method: Morph>>drawMouseDownHighlightOn: (in category 'drawing') ----- drawMouseDownHighlightOn: aCanvas + self highlightedForMouseDown ifTrue: [ + self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self fullBounds radius: self class preferredCornerRadius width: 1 color: self color darker darker] + ifFalse: [aCanvas frameRectangle: self fullBounds color: self color darker darker]].! - aCanvas frameRectangle: self fullBounds color: self color darker darker].! Item was changed: ----- Method: Morph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + self wantsRoundedCorners + ifTrue: [aCanvas frameAndFillRoundRect: self bounds radius: self class preferredCornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] + ifFalse: [aCanvas fillRectangle: self bounds fillStyle: self fillStyle borderStyle: self borderStyle]. + - aCanvas fillRectangle: self bounds fillStyle: self fillStyle borderStyle: self borderStyle. ! Item was changed: ----- Method: Morph>>fullDrawOn: (in category 'drawing') ----- fullDrawOn: aCanvas "Draw the full Morphic structure on the given Canvas" self visible ifFalse: [^ self]. (aCanvas isVisible: self fullBounds) ifFalse:[^self]. (self hasProperty: #errorOnDraw) ifTrue:[^self drawErrorOn: aCanvas]. "Note: At some point we should generalize this into some sort of multi-canvas so that we can cross-optimize some drawing operations." + "Pass 1: Draw eventual drop-shadow" self hasDropShadow ifTrue: [self drawDropShadowOn: aCanvas]. (self hasRolloverBorder and: [(aCanvas seesNothingOutside: self bounds) not]) ifTrue: [self drawRolloverBorderOn: aCanvas]. "Pass 2: Draw receiver itself" + (aCanvas isVisible: self bounds) ifTrue:[aCanvas drawMorph: self]. + self drawSubmorphsOn: aCanvas. + self drawDropHighlightOn: aCanvas. + self drawMouseDownHighlightOn: aCanvas.! - aCanvas roundCornersOf: self during:[ - (aCanvas isVisible: self bounds) ifTrue:[aCanvas drawMorph: self]. - self drawSubmorphsOn: aCanvas. - self drawDropHighlightOn: aCanvas. - self drawMouseDownHighlightOn: aCanvas].! Item was removed: - ----- Method: PluggableCanvas>>roundCornersOf:in:during: (in category 'drawing-general') ----- - roundCornersOf: aMorph in: bounds during: aBlock - aMorph wantsRoundedCorners ifFalse:[^aBlock value]. - (self seesNothingOutside: (CornerRounder rectWithinCornersOf: bounds)) - ifTrue: ["Don't bother with corner logic if the region is inside them" - ^ aBlock value]. - CornerRounder roundCornersOf: aMorph on: self in: bounds - displayBlock: aBlock - borderWidth: aMorph borderWidthForRounding - corners: aMorph roundedCorners! Item was changed: ----- Method: WorldState>>displayWorld:submorphs: (in category 'update cycle') ----- displayWorld: aWorld submorphs: submorphs "Update this world's display." + | deferredUpdateMode handsToDraw allDamage handDamageRects worldDamageRects | - | deferredUpdateMode handsToDraw allDamage | submorphs do: [:m | m fullBounds]. "force re-layout if needed" self checkIfUpdateNeeded ifFalse: [^ self]. "display is already up-to-date" deferredUpdateMode := self doDeferredUpdatingFor: aWorld. deferredUpdateMode ifFalse: [self assuredCanvas]. - canvas roundCornersOf: aWorld during:[ | handDamageRects worldDamageRects | - worldDamageRects := self drawWorld: aWorld submorphs: submorphs invalidAreasOn: canvas. "repair world's damage on canvas" - "self handsDo:[:h| h noticeDamageRects: worldDamageRects]." - handsToDraw := self selectHandsToDrawForDamage: worldDamageRects. - handDamageRects := handsToDraw collect: [:h | h savePatchFrom: canvas]. - allDamage := worldDamageRects, handDamageRects. + worldDamageRects := self drawWorld: aWorld submorphs: submorphs invalidAreasOn: canvas. "repair world's damage on canvas" + "self handsDo:[:h| h noticeDamageRects: worldDamageRects]." + handsToDraw := self selectHandsToDrawForDamage: worldDamageRects. + handDamageRects := handsToDraw collect: [:h | h savePatchFrom: canvas]. + allDamage := worldDamageRects, handDamageRects. + + handsToDraw reverseDo: [:h | canvas fullDrawMorph: h]. "draw hands onto world canvas" + - handsToDraw reverseDo: [:h | canvas fullDrawMorph: h]. "draw hands onto world canvas" - ]. "*make this true to flash damaged areas for testing*" Preferences debugShowDamage ifTrue: [aWorld flashRects: allDamage color: Color black]. canvas finish: allDamage. "quickly copy altered rects of canvas to Display:" deferredUpdateMode ifTrue: [self forceDamageToScreen: allDamage] ifFalse: [canvas showAt: aWorld viewBox origin invalidRects: allDamage]. handsToDraw do: [:h | h restoreSavedPatchOn: canvas]. "restore world canvas under hands" Display deferUpdates: false; forceDisplayUpdate. !

1 0

The Trunk: Morphic-mt.760.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

The Trunk: Morphic-mt.760.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

The Trunk: System-topa.704.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.704.mcz ==================== Summary ==================== Name: System-topa.704 Author: topa Time: 26 February 2015, 1:09:51.89 pm UUID: 9faa3cc5-0d63-401a-a2e0-342909710a93 Ancestors: System-eem.703 Retain scrollBar look now that the pref actually does something (as of Morphic-mt.758) =============== Diff against System-eem.703 =============== Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'misc') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (canRecordWhilePlaying false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (hiddenScrollBars false) (higherPerformance false) (honorDesktopCmdKeys true) (ignoreStyleIfOnlyBold true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (roundedWindowCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) + (gradientScrollBars true) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (smartUpdating true) (soundQuickStart false) (stopSoundWhenDone false) (soundEnabled true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (thoroughSenders true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonProprtiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "!

1 0

The Trunk: System-topa.704.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

The Trunk: System-topa.704.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2015