Squeak-dev November 2021

squeak-dev@lists.squeakfoundation.org

27 participants
278 discussions

The Inbox: Tools-ct.937.mcz
by commits＠source.squeak.org 06 Dec '21

06 Dec '21

Christoph Thiede uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-ct.937.mcz ==================== Summary ==================== Name: Tools-ct.937 Author: ct Time: 29 January 2020, 6:26:57.711894 pm UUID: 34af35bc-83e2-9b40-9aa3-8f6af607ac6e Ancestors: Tools-mt.929 Fixes a styling issue in the Workspace that missstyled class variables from Object as invalid (that is DependentsFields). This is a bug because you can access DependentsFields indeed. There is a subtle but important difference between the classOrMetaclass nil and the classOrMetaclass Object: The former does not respect any state for styling, but the latter respects class variables from Object (as well as, hypothetically, ProtoObject). Please note that it would be even more accurate to specify nil class instead of Object here, but I don't know whether we really want to emphasize the nuances of UndefinedObject. It feels rather like an implementation detail for me, at least in this context. (Just imagine UndefinedObject had a UniqueInstance class variable - would we really to access it from any Workspace?) Open for opinions. =============== Diff against Tools-mt.929 =============== Item was changed: ----- Method: Workspace>>aboutToStyle: (in category 'code pane') ----- aboutToStyle: aStyler self shouldStyle ifFalse: [ ^false ]. + aStyler + parseAMethod: false; + classOrMetaClass: Object; - aStyler - classOrMetaClass: nil; workspace: self. ^true!

4 3

What changed in TransformationMorph 5.2 -> 5.3 ?
by tim Rowledge 03 Dec '21

03 Dec '21

The ThermometerDialMorph worked nicely in 5.2 but does a rather odd little side-step of the needle in 5.3. Does anyone want to own up to having changed sometihng that might cause that? 5.2 5.3 It looks like maybe something relating to the half-width of the needle morph. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: BYEBYE: Store in Write-Only Storage

2 5

The Trunk: Morphic-mt.1803.mcz
by commits＠source.squeak.org 03 Dec '21

03 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1803.mcz ==================== Summary ==================== Name: Morphic-mt.1803 Author: mt Time: 29 November 2021, 11:17:49.411615 am UUID: 8dc2a08e-8d6a-40a8-9363-63825d568895 Ancestors: Morphic-mt.1802 Adds confirmation dialog to avoid inadvertent loss of unsaved work via keyboard shortcuts. The shorcut is CTRL+L, which might be triggered via CTRL+PageDown, depending on your platform and preferences. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/217224… =============== Diff against Morphic-mt.1802 =============== Item was changed: ----- Method: TextEditor>>cancel (in category 'menu messages') ----- cancel "Cancel the changes made so far to this text" + + model okToChange + ifTrue: [morph cancelEdits].! - morph cancelEdits!

4 5

The Inbox: System-dtl.1254.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-dtl.1254.mcz ==================== Summary ==================== Name: System-dtl.1254 Author: dtl Time: 26 November 2021, 11:06:19.584405 am UUID: 3856329c-1404-4bd5-9b94-d9c47f663d7c Ancestors: System-mt.1253 Let vmParameterAt:ifAbsent: treat nil as an absent parameter. Previously only out of range parameter requests were treated as absent. Handles the case of parameter 54 which is numeric for Spur VM, nil for Cog VM, and out of range for interpreter VM. Update bytesUsedString to use 0 as default for parameter 54. =============== Diff against System-mt.1253 =============== Item was changed: ----- Method: SmalltalkImage>>bytesUsedString (in category 'memory space') ----- bytesUsedString "Answer a string describing the amount of memory in use." "Smalltalk bytesUsedString" | totalUsed | totalUsed := (self vmParameterAt: 2 "used eden + used past space") + + ((self vmParameterAt: 1 "old space size") + - (self vmParameterAt: 54 ifAbsent: 0 "free old space")). - + ((self vmParameterAt: 1 "old space size") - (self vmParameterAt: 54 "free old space")). ^totalUsed asStringWithCommas, ' bytes in use'! Item was changed: ----- Method: SmalltalkImage>>vmParameterAt:ifAbsent: (in category 'vm parameters') ----- vmParameterAt: parameterIndex ifAbsent: defaultValueOrBlock + "Answer a VM parameter or defaultValueOrBlock value if out of range + or if the VM does not provide a value for this parameter. A VM parameter + is typically numeric or boolean, and if not implemented will be nil." + ^ [(self vmParameterAt: parameterIndex) + ifNil: defaultValueOrBlock value] - "Answer a VM parameter or defaultValueOrBlock value if out of range." - ^ [self vmParameterAt: parameterIndex] on: Error do: [defaultValueOrBlock value]!

2 2

The Inbox: Kernel-ct.1420.mcz
by commits＠source.squeak.org 01 Dec '21

01 Dec '21

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1420.mcz ==================== Summary ==================== Name: Kernel-ct.1420 Author: ct Time: 10 November 2021, 1:47:10.350242 am UUID: 8f2e7a27-2c7b-534a-9c78-a90c968e45c5 Ancestors: Kernel-eem.1418 Aligns the error code for primitive 118 during simulation with what the VM returns. See KernelTests-ct.409/#testPrimitive118/{6. 'not a primitive'. {7}},{6. 9. 'not an array'}. =============== Diff against Kernel-eem.1418 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ [self notify: ('The code being simulated is trying to control a process ({1}). Process controlling cannot be simulated. If you proceed, things may happen outside the observable area of the simulator.' translated format: {meth reference})] ifCurtailed: [self push: nil "Cheap fix of the context's internal state"]]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [| selector | selector := arguments at: 1 ifAbsent: [^ self class primitiveFailTokenFor: #'bad argument']. arguments size - 1 = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [| selector args | arguments size = 2 ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. selector := arguments first. args := arguments second. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: args]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [| rcvr selector args superclass | arguments size caseOf: { [3] -> [ rcvr := receiver. selector := arguments first. args := arguments second. superclass := arguments third]. [4] -> ["mirror primitive" rcvr := arguments first. selector := arguments second. args := arguments third. superclass := arguments fourth] } otherwise: [^ self class primitiveFailTokenFor: #'bad argument']. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ((self objectClass: rcvr) includesBehavior: superclass) ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. ^self send: selector to: rcvr with: args lookupIn: superclass]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^Context sender: self receiver: thisReceiver method: methodArg arguments: args]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: + [^self class primitiveFailTokenFor: -3]. - [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

3 2

Merge Request: hostWindowFocus.2.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 01 Dec '21

01 Dec '21

=============== Summary =============== Change Set: hostWindowFocus Date: 7 November 2021 Author: Christoph Thiede Proposal: When the host window loses the keyboard focus of the host system, remove the focus from the current focus holder morph in Squeak as well. This is done by initializing a temporary windowHostFocusMorph in the world which takes the keyboard focus while the host window is inactive and restores it afterward. Some more explanation of this feature: When you activate a different window than Squeak in your operating system, Squeak did not know as of today and still might indicate a keyboard focus for any text morph or similar in the image. I have experienced a lot of confusion by this incorrect display when I was assuming a particular Squeak window would still be focused, started to type something, but actually was typing into a different window! With this patch, this situation cannot occur any longer. This change won't become effective before opensmalltalk-vm#593 is merged which provides the #windowActivated and #windowDeactivated events to the image [1]; however, loading the patch into an older VM does not do any harm. On the event type #windowChangedScreen: This has already been implemented in the VM last year [2] but was forgotten to mention on the image side until now. [1] https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/593 [2] https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/0361fc33d5f72b153b… =============== Diff =============== HandMorph>>generateWindowEvent: {private events} · ct 9/7/2021 18:44 (changed) generateWindowEvent: evtBuf "Generate the appropriate window event for the given raw event buffer" | evt | evt := WindowEvent new. + evt setHand: self. evt setTimeStamp: evtBuf second. evt timeStamp = 0 ifTrue: [evt setTimeStamp: Sensor eventTimeNow]. evt action: evtBuf third. evt rectangle: (Rectangle origin: evtBuf fourth @ evtBuf fifth corner: evtBuf sixth @ evtBuf seventh ). ^evt PasteUpMorph>>windowEvent: {event handling} · ct 9/7/2021 19:20 (changed) windowEvent: anEvent self windowEventHandler ifNotNil: [^self windowEventHandler windowEvent: anEvent]. - anEvent type == #windowClose - ifTrue: [ - ^Preferences eToyFriendly - ifTrue: [ProjectNavigationMorph basicNew quitSqueak] - ifFalse: [TheWorldMenu basicNew quitSession]]. + anEvent type + caseOf: { + [#windowClose] -> [ + Preferences eToyFriendly + ifTrue: [ProjectNavigationMorph basicNew quitSqueak] + ifFalse: [TheWorldMenu basicNew quitSession]]. + + [#windowDeactivated] -> [ + "The host window has been deactivated. Until it regains the focus, honor the fact that we will not receive keyboard events again by changing the current keyboard focus morph. windowHostFocusMorph represents the host system which now holds the keyboard focus instead of the previousFocus. If enabled, disable #mouseOverForKeyboardFocus temporarily because when inactive, we *can't* set the keyboard focus." + (self valueOfProperty: #windowHostFocusMorph ifAbsentPut: [ + Morph new + name: #windowHostFocusMorph; + yourself]) in: [:hostFocus | + hostFocus setProperty: #previousFocus toValue: anEvent hand keyboardFocus. + anEvent hand newKeyboardFocus: hostFocus. + Preferences mouseOverForKeyboardFocus ifTrue: [ + hostFocus setProperty: #previousMouseOverForKeyboardFocus toValue: true. + Preferences setPreference: #mouseOverForKeyboardFocus toValue: false]]]. + [#windowActivated] -> [ + "Alright, the spook is over! We have back control over the keyboard focus, delete the windowHostFocusMorph and restore the previous focus holder and the #mouseOverForKeyboardFocus preference." + self valueOfProperty: #windowHostFocusMorph ifPresentDo: [:hostFocus | + hostFocus abandon. + (hostFocus valueOfProperty: #previousFocus) ifNotNil: [:previousFocus | + anEvent hand newKeyboardFocus: previousFocus]. + (hostFocus valueOfProperty: #previousMouseOverForKeyboardFocus) ifNotNil: [:value | + Preferences setPreference: #mouseOverForKeyboardFocus toValue: value]. + self removeProperty: #windowHostFocusMorph]]. } + otherwise: [] WindowEvent>>type {accessing} · ct 9/7/2021 18:38 (changed) type "This should match the definitions in sq.h" ^#( windowMetricChange windowClose windowIconise windowActivated windowPaint + windowChangedScreen + windowDeactivated ) at: action ifAbsent: [#windowEventUnknown] --- Sent from Squeak Inbox Talk

2 1

Merge Request: deprecateExceptions.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 01 Dec '21

01 Dec '21

=============== Summary =============== Change Set: deprecateExceptions Date: 7 November 2021 Author: Christoph Thiede This change set cleans up several unused exceptions. The classes Abort and ExceptionAboutToReturn are deleted. The classes EndOfStream, FontSubstitutionDuringLoading, NanError, and UndeclaredVariableReference are deprecated. See http://forum.world.st/Dead-exceptions-td5121827.html. (Finally! This tab has been waiting in my browser for me for almost 14 months...) =============== Diff =============== Abort (removed) - Exception subclass: #Abort - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Exceptions' - - Abort class - instanceVariableNames: '' - - "" ChangeSet>>fileOutOn: {fileIn/Out} · ct 11/7/2021 16:44 (changed) fileOutOn: stream "Write out all the changes the receiver knows about" | classList traits classes traitList list | (self isEmpty and: [stream isKindOf: FileStream]) ifTrue: [self inform: 'Warning: no changes to file out']. - traits := self changedClasses reject: [:each | each isBehavior]. + traits := self changedClasses select: [:each | each isTrait]. classes := self changedClasses select: [:each | each isBehavior]. traitList := self class traitsOrder: traits asOrderedCollection. classList := self class superclassOrder: classes asOrderedCollection. list := OrderedCollection new addAll: traitList; addAll: classList; yourself. "First put out rename, max classDef and comment changes." list do: [:aClass | self fileOutClassDefinition: aClass on: stream]. "Then put out all the method changes" list do: [:aClass | self fileOutChangesFor: aClass on: stream]. "Finally put out removals, final class defs and reorganization if any" list reverseDo: [:aClass | self fileOutPSFor: aClass on: stream]. self classRemoves sort do: [:aClassName | stream nextChunkPut: 'Smalltalk removeClassNamed: #', aClassName; cr]. EndOfStream (changed) Error subclass: #EndOfStream instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' - category: 'Collections-Exceptions' + category: '60Deprecated-Collections-Exceptions' EndOfStream class instanceVariableNames: '' "Signalled when ReadStream>>next encounters a premature end." ExceptionAboutToReturn (removed) - Notification subclass: #ExceptionAboutToReturn - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Exceptions-Kernel' - - ExceptionAboutToReturn class - instanceVariableNames: '' - - "" FontSubstitutionDuringLoading (changed) Notification subclass: #FontSubstitutionDuringLoading instanceVariableNames: 'familyName pixelSize' classVariableNames: '' poolDictionaries: '' - category: 'Etoys-Squeakland-System-Support' + category: '60Deprecated-Etoys-Squeakland-System-Support' FontSubstitutionDuringLoading class instanceVariableNames: '' "signaled by font loading code when reading a DiskProxy that calls for a missing font." NaNError (changed) ArithmeticError subclass: #NaNError instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' - category: 'Kernel-Numbers-Exceptions' + category: '60Deprecated-Kernel-Numbers-Exceptions' NaNError class instanceVariableNames: '' "NaNError is signaled by various operations that would either result in or operate on an NaN input." UndeclaredVariableReference (changed) Notification subclass: #UndeclaredVariableReference instanceVariableNames: 'parser varName varStart varEnd' classVariableNames: '' poolDictionaries: '' - category: 'Compiler-Support' + category: '60Deprecated-Compiler-Support' UndeclaredVariableReference class instanceVariableNames: '' "" --- Sent from Squeak Inbox Talk

2 1

Anybody got an elegent construct for this functional monstrosity?
by gettimothy 01 Dec '21

01 Dec '21

I have a ReadStream and I want to detect some substrings in it. This works, but it is ugly. ((self match:'{|') | (self match:'|-') | (self match:'|}') | (self match:'{{') | (self match:'}}') | (self match:'[[') | (self match:']]') | (self match:'__') | (self match:'==') | (self match:'::') | (self match:'**') | (self match:'##') | (self match:'''') ) Is anybody aware of an elegant approach to this? Something along the lines of self matchAny: { '{|' . '|-' . '|}' . '{{' . '}}' . '[[' . ']]' . '__' . '==' . '::' . '**' . '##' . '''' } thx in advance

3 8

The Trunk: Tools-mt.1074.mcz
by commits＠source.squeak.org 01 Dec '21

01 Dec '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1074.mcz ==================== Summary ==================== Name: Tools-mt.1074 Author: mt Time: 25 November 2021, 11:44:01.944354 am UUID: 39954290-b416-f242-a5b0-c7aea0e3c6a6 Ancestors: Tools-mt.1073 Adds a property protocol to Workspace to avoid having to go through #containingWindow to store extra stuff, which does not even work for MVC, just for morphs (i.e., SystemWindow, not StandardSystemView). Reuses a workspace's "bindings" with each property being prefixed with a "_" to not interfere with regular bindings. Note that such extra properties have already been added to #containingWindow in the past. =============== Diff against Tools-mt.1073 =============== Item was added: + ----- Method: Workspace>>hasProperty: (in category 'binding - properties') ----- + hasProperty: aSymbol + + | propertyValue | + propertyValue := self valueOfProperty: aSymbol. + propertyValue ifNil: [^ false]. + propertyValue == false ifTrue: [^ false]. + ^ true! Item was changed: ----- Method: Workspace>>initialize (in category 'initialize-release') ----- initialize super initialize. + bindings := Dictionary new. - self initializeBindings. acceptDroppedMorphs := false. mustDeclareVariables := self class declareVariablesAutomatically not. environment := Environment current! Item was removed: - ----- Method: Workspace>>initializeBindings (in category 'binding') ----- - initializeBindings - - bindings := Dictionary new! Item was added: + ----- Method: Workspace>>removeProperty: (in category 'binding - properties') ----- + removeProperty: aSymbol + + bindings removeKey: ('_', aSymbol) asSymbol ifAbsent: [].! Item was added: + ----- Method: Workspace>>resetBindings (in category 'binding') ----- + resetBindings + "Remove all bindings that are not prefixed with an $_. See #setProperty:toValue:." + + bindings keysAndValuesRemove: [:key :value | key first ~= $_]! Item was added: + ----- Method: Workspace>>setProperty:toValue: (in category 'binding - properties') ----- + setProperty: aSymbol toValue: anObject + + anObject ifNil: [^ self removeProperty: aSymbol]. + bindings at: ('_', aSymbol) asSymbol put: anObject.! Item was added: + ----- Method: Workspace>>valueOfProperty: (in category 'binding - properties') ----- + valueOfProperty: aSymbol + + ^ self valueOfProperty: aSymbol ifAbsent: nil! Item was added: + ----- Method: Workspace>>valueOfProperty:ifAbsent: (in category 'binding - properties') ----- + valueOfProperty: aSymbol ifAbsent: aBlock + + ^ bindings at: ('_', aSymbol) asSymbol ifAbsent: aBlock!

4 5

Merge Request: deleteUnusedPrefs.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 30 Nov '21

30 Nov '21

=============== Summary =============== Change Set: deleteUnusedPrefs Date: 2 November 2021 Author: Christoph Thiede This changeset removes all unusued preferences and their users from the preference registry. I have searched for relevant senders of all (non-pragma and pragma) preferences in the image and found 30 unused non-pragma and pragma preferences. In particular, please consider the postscript. See also Monticello-ct.756 and ShoutCore-ct.88 which reconnect two previously unused preferences. =============== Postscript =============== #(#abbreviatedBrowserButtons #allowEtoyUserCustomEvents #alternativeButtonsInScrollBars #compressFlashImages #defaultFileOutFormatMacRoman #dragNDropWithAnimation #extractFlashInHighestQuality #extractFlashInHighQuality #menuButtonInToolPane #translationWithBabel) do: [:sel | Preferences removePreference: sel]. =============== Diff =============== Preferences class>>abbreviatedBrowserButtons {standard queries} · (removed) - abbreviatedBrowserButtons - ^ self - valueOfFlag: #abbreviatedBrowserButtons - ifAbsent: [ false ] Preferences class>>alternativeButtonsInScrollBars {standard queries} · (removed) - alternativeButtonsInScrollBars - ^ self - valueOfFlag: #alternativeButtonsInScrollBars - ifAbsent: [ false ] Preferences class>>cambridge {*Etoys-Squeakland-themes} · ct 11/2/2021 14:27 (changed) cambridge "A theme for Squeakland and OLPC project" "Preferences cambridge" "This method has three parts. Don't forget to look at the stuff at the bottom." self setPreferencesFrom: #( (allowCelesteTell false) (alternativeScrollbarLook true) (alternativeWindowLook true) (annotationPanes true) (automaticKeyGeneration true) (biggerHandles true) (blinkParen false) (browseWithDragNDrop true) (canRecordWhilePlaying true) (classicNavigatorEnabled false) (compactViewerFlaps true) (enableLocalSave false) - (escapeKeyProducesMenu false) (eToyFriendly true) (eToyLoginEnabled true) (extraDebuggerButtons false) (gradientMenu false) (haloTransitions false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator true) (magicHalos false) (menuAppearance3d false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverHalos false) (mvcProjectsAllowed false) (preserveTrash true) (projectViewsInWindows false) (promptForUpdateServer false) (propertySheetFromHalo false) (roundedMenuCorners false) (roundedWindowCorners false) (securityChecksEnabled true) (standaloneSecurityChecksEnabled true) (duplicateControlAndAltKeys true) (showDirectionHandles false) (showDirectionForSketches true) (showProjectNavigator false) (showSecurityStatus false) (soundQuickStart true) "see setPlatformPreferences" (soundReverb false) (soundStopWhenDone true) "see setPlatformPreferences" (startInUntrustedDirectory true) (sugarAutoSave false) (swapControlAndAltKeys false) "see setPlatformPreferences" (uniqueNamesInHalos true) (unlimitedPaintArea false) (useArtificialSweetenerBar true) (useBiggerPaintingBox true) (useFormsInPaintBox false) (useLocale true) (usePangoRenderer false) - (usePlatformFonts false) (usePopUpArrows true) (warnAboutInsecureContent false) "The following is to make sure the default is set properly." - (abbreviatedBrowserButtons false) (allowEtoyUserCustomEvents false) (alphabeticalProjectMenu false) (alternativeBrowseIt false) - (alternativeButtonsInScrollBars false) (alternativeWindowBoxesLook true) (alwaysHideHScrollbar false) (alwaysShowConnectionVocabulary false) (alwaysShowHScrollbar false) (alwaysShowVScrollbar true) - (ansiAssignmentOperatorWhenPrettyPrinting true) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) - (autoAccessors false) (automaticFlapLayout true) (automaticPlatformSettings true) "enables setPlatformPreferences" (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (biggerCursors true) - (browserNagIfNoClassComment true) - (browserShowsPackagePane false) - (browseWithPrettyPrint false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (celesteHasStatusPane false) (celesteShowsAttachmentsFlag false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) - (classicNewMorphMenu false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (colorWhenPrettyPrinting false) - (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) - (cpuWatcherEnabled false) (debugHaloHandle false) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) - (defaultFileOutFormatMacRoman false) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dismissEventTheatreUponPublish true) - (dragNDropWithAnimation false) (dropProducesWatcher true) (duplicateControlAndAltKeys false) (easySelection false) - (enableInternetConfig false) (enablePortraitMode false) (enableVirtualOLPCDisplay false) (expandedPublishing true) - (extractFlashInHighestQuality false) - (extractFlashInHighQuality true) (fastDragWindowForMorphic true) (fenceEnabled true) (fenceSoundEnabled false) (fullScreenLeavesDeskMargins true) (gradientScrollBars true) (haloEnclosesFullBounds false) (higherPerformance false) (ignoreStyleIfOnlyBold true) (implicitSelfInTiles false) (inboardScrollbars true) (infiniteUndo false) (keepTickingWhilePainting false) (logDebuggerStackToFile true) - (menuButtonInToolPane false) (menuColorFromWorld false) (menuWithIcons true) - (morphicProgressStyle true) (mouseOverForKeyboardFocus false) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (oliveHandleForScriptedObjects false) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (printAlternateSyntax false) (projectsSentToDisk false) (projectZoom true) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (rotationAndScaleHandlesInPaintBox false) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (selectionsMayShrink true) (selectiveHalos true) (showAdvancedNavigatorButtons false) (showBoundsInHalo false) (showDeprecationWarnings false) (showFlapsWhenPublishing false) - (showLinesInHierarchyViews true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) - (soundsEnabled true) (swapMouseButtons false) (systemWindowEmbedOK false) (tabAmongFields true) - (testRunnerShowAbstractClasses false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) - (translationWithBabel false) (turnOffPowerManager false) (twentyFourHourFileStamps true) - (twoSidedPoohTextures true) (typeCheckingInTileScripting true) - (unifyNestedProgressBars true) (uniTilesClassic true) (universalTiles false) (updateFromServerAtStartup false) (updateSavesFile false) (useButtonPropertiesToFire false) - (useFileList2 true) - (useSmartLabels false) (useUndo true) (useVectorVocabulary false) (viewersInFlaps true) (warnIfNoChangesFile false) (warnIfNoSourcesFile false) - (warningForMacOSFileNameLength false) (wordStyleCursorMovement true) ). Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications. Preferences class>>compressFlashImages {standard queries} · (removed) - compressFlashImages - ^ self - valueOfFlag: #compressFlashImages - ifAbsent: [ false ] Preferences class>>defaultFileOutFormatMacRoman {standard queries} · (removed) - defaultFileOutFormatMacRoman - ^ self - valueOfFlag: #defaultFileOutFormatMacRoman - ifAbsent: [ false ] Preferences class>>defaultValueTableForCurrentRelease {defaults} · ct 11/2/2021 13:32 (changed) 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) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled 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) (higherPerformance false) (honorDesktopCmdKeys 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) (scrollBarsNarrow false) (scrollBarsOnRight 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) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonPropertiesToFire 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. " Preferences class>>dragNDropWithAnimation {standard queries} · (removed) - dragNDropWithAnimation - ^ self - valueOfFlag: #dragNDropWithAnimation - ifAbsent: [ false ] Preferences class>>extractFlashInHighQuality {standard queries} · (removed) - extractFlashInHighQuality - ^ self - valueOfFlag: #extractFlashInHighQuality - ifAbsent: [ true ] Preferences class>>extractFlashInHighestQuality {standard queries} · (removed) - extractFlashInHighestQuality - ^ self - valueOfFlag: #extractFlashInHighestQuality - ifAbsent: [ false ] Preferences class>>menuButtonInToolPane {standard queries} · (removed) - menuButtonInToolPane - ^ self - valueOfFlag: #menuButtonInToolPane - ifAbsent: [ false ] Preferences class>>readOnlyMode {standard queries} · (removed) - readOnlyMode - ^ self - valueOfFlag: #readOnlyMode - ifAbsent: [ false ] StandardScriptingSystem>>installOLPCFontsAndPreferences {*Etoys-Squeakland-font & color choices} · ct 11/2/2021 13:49 (changed) installOLPCFontsAndPreferences "Assures that some of the standard olpc font and scrolling choices are installed. This is for private use by developers who may have changed some font and scrolling preferences, for the benefit of development work." Preferences restoreDefaultFonts. Preferences enable: #inboardScrollbars. Preferences enable: #scrollBarsOnRight. Preferences enable: #mouseOverHalos. Preferences enable: #biggerHandles. - Preferences disable: #escapeKeyProducesMenu. Preferences setParameter: #fontForBlueFileListTitle to: ((StrikeFont familyName: 'Accujen' size: 30) emphasized: 1). Preferences setParameter: #fontForBlueFileListButtons to: ((StrikeFont familyName: 'Accujen' size: 22) emphasized: 1). false ifTrue: [ScriptingSystem installOLPCFontsAndPreferences] "to have a sender" " ScriptingSystem installOLPCFontsAndPreferences. " SugarLauncher>>active: {commands} · ct 11/2/2021 13:58 (changed) active: aBoolean "Etoys activity received or lost focus" - Preferences setPreference: #soundsEnabled toValue: aBoolean. aBoolean ifTrue: [ UISema ifNotNil: [:s | s signal]. ] ifFalse: [ SoundPlayer shutDown. SoundRecorder anyActive ifTrue: [SoundRecorder allSubInstancesDo: [:r | r stopRecording]]. Smalltalk at: #VideoDevice ifPresent: [:vd | vd shutDown: true]. UISema ifNil: [UISema := Semaphore new]. UISema initSignals. WorldState addDeferredUIMessage: [UISema wait]. ]. --- Sent from Squeak Inbox Talk

2 1

← Newer
1
...
6
7
8
9
10
11
12
...
28
Older →

Jump to page: