Packages August 2017

packages@lists.squeakfoundation.org

1 participants
27 discussions

The Trunk: Morphic-tpr.1348.mcz
by commits＠source.squeak.org 08 Aug '17

08 Aug '17

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1348.mcz ==================== Summary ==================== Name: Morphic-tpr.1348 Author: tpr Time: 7 August 2017, 4:40:57.485319 pm UUID: b8af09c4-97da-4835-a036-b1c557a8ab92 Ancestors: Morphic-mt.1347 Explain that an underscore assignment requires a Preference setting =============== Diff against Morphic-mt.1347 =============== Item was changed: ----- Method: TextEditor>>explainChar: (in category 'explain') ----- explainChar: string "Does string start with a special character?" | char | char := string at: 1. char = $. ifTrue: [^'"Period marks the end of a Smalltalk statement. A period in the middle of a number means a decimal point. (The number is an instance of class Float)."']. char = $' ifTrue: [^'"The characters between two single quotes are made into an instance of class String"']. char = $" ifTrue: [^'"Double quotes enclose a comment. Smalltalk ignores everything between double quotes."']. char = $# ifTrue: [^'"The characters following a hash mark are made into an instance of class Symbol. If parenthesis follow a hash mark, an instance of class Array is made. It contains literal constants."']. (char = $( or: [char = $)]) ifTrue: [^'"Expressions enclosed in parenthesis are evaluated first"']. (char = $[ or: [char = $]]) ifTrue: [^'"The code inside square brackets is an unevaluated block of code. It becomes an instance of BlockClosure and is usually passed as an argument."']. (char = ${ or: [char = $}]) ifTrue: [^ '"A sequence of expressions separated by periods, when enclosed in curly braces, are evaluated to yield the elements of a new Array"']. (char = $< or: [char = $>]) ifTrue: [^'"<primitive: xx> means that this method is usually preformed directly by the virtual machine. If this method is primitive, its Smalltalk code is executed only when the primitive fails."']. char = $^ ifTrue: [^'"Uparrow means return from this method. The value returned is the expression following the ^"']. char = $| ifTrue: [^'"Vertical bars enclose the names of the temporary variables used in this method. In a block, the vertical bar separates the argument names from the rest of the code."']. + char = $_ ifTrue: [^'"Left arrow means assignment (deprecated, applies if the Preference for allow underscore assignment is set). The value of the expression after the left arrow is stored into the variable before it."']. - char = $_ ifTrue: [^'"Left arrow means assignment. The value of the expression after the left arrow is stored into the variable before it."']. char = $; ifTrue: [^'"Semicolon means cascading. The message after the semicolon is sent to the same object which received the message before the semicolon."']. char = $: ifTrue: [^'"A colon at the end of a keyword means that an argument is expected to follow. Methods which take more than one argument have selectors with more than one keyword. (One keyword, ending with a colon, appears before each argument).', '\\' withCRs, 'A colon before a variable name just inside a block means that the block takes an agrument. (When the block is evaluated, the argument will be assigned to the variable whose name appears after the colon)."']. char = $$ ifTrue: [^'"The single character following a dollar sign is made into an instance of class Character"']. char = $- ifTrue: [^'"A minus sign in front of a number means a negative number."']. char = $e ifTrue: [^'"An e in the middle of a number means that the exponent follows."']. char = $r ifTrue: [^'"An r in the middle of a bunch of digits is an instance of Integer expressed in a certain radix. The digits before the r denote the base and the digits after it express a number in that base."']. char = Character space ifTrue: [^'"the space Character"']. char = Character tab ifTrue: [^'"the tab Character"']. char = Character cr ifTrue: [^'"the carriage return Character"']. char = Character lf ifTrue: [^'"the line feed Character"']. ^nil!

1 0

The Trunk: Kernel-tpr.1110.mcz
by commits＠source.squeak.org 08 Aug '17

08 Aug '17

tim Rowledge uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tpr.1110.mcz ==================== Summary ==================== Name: Kernel-tpr.1110 Author: tpr Time: 7 August 2017, 4:38:16.198536 pm UUID: f7a1538d-4c10-4b42-9ec7-325d0ac94c8d Ancestors: Kernel-nice.1109 Correct an ancient underscore assignment =============== Diff against Kernel-nice.1109 =============== Item was changed: ----- Method: Semaphore>>wait (in category 'communication') ----- wait "Primitive. The active Process must receive a signal through the receiver before proceeding. If no signal has been sent, the active Process will be suspended until one is sent. Essential. See Object documentation whatIsAPrimitive." <primitive: 86> self primitiveFailed "excessSignals>0 + ifTrue: [excessSignals := excessSignals-1] - ifTrue: [excessSignals _ excessSignals-1] ifFalse: [self addLastLink: Processor activeProcess suspend]" !

1 0

The Trunk: Monticello-dtl.672.mcz
by commits＠source.squeak.org 06 Aug '17

06 Aug '17

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.672.mcz ==================== Summary ==================== Name: Monticello-dtl.672 Author: dtl Time: 6 August 2017, 12:25:45.326051 pm UUID: dfe33bfa-dc27-4c01-a1db-234bd7e4433c Ancestors: Monticello-eem.671 CompiledCode and its subclasses are a special case, and are identified as class type #compiledMethod rather than #bytes. An MCClassDefinition should identify this type correctly, otherwise changes to these classes may not be saved and reloaded correctly. See MCClassDefinitionTest. =============== Diff against Monticello-eem.671 =============== Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. category := categoryString. + (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. - name = #CompiledMethod ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was changed: ----- Method: MCClassDefinition>>initializeWithName:superclassName:traitComposition:classTraitComposition:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: (in category 'initializing') ----- initializeWithName: nameString superclassName: superclassString traitComposition: traitCompositionString classTraitComposition: classTraitCompositionString category: categoryString instVarNames: ivarArray classVarNames: cvarArray poolDictionaryNames: poolArray classInstVarNames: civarArray type: typeSymbol comment: commentString commentStamp: stampStringOrNil name := nameString asSymbol. superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol]. traitComposition := traitCompositionString. classTraitComposition := classTraitCompositionString. category := categoryString. + (self isCompiledCode: name) ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. - name = #CompiledMethod ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol]. comment := commentString withSqueakLineEndings. commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp]. variables := OrderedCollection new. self addVariables: ivarArray ofType: MCInstanceVariableDefinition. self addVariables: cvarArray sorted ofType: MCClassVariableDefinition. self addVariables: poolArray sorted ofType: MCPoolImportDefinition. self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.! Item was added: + ----- Method: MCClassDefinition>>isCompiledCode: (in category 'initializing') ----- + isCompiledCode: className + "Classes of type #compiledMethod are treated specially. CompiledCode + and all of its subclasses, including CompiledMethod, should have this + special type." + + CompiledCode + withAllSubclassesDo: [ :cls | (className = cls name) + ifTrue: [ ^true ]]. + ^ false + !

1 0

The Trunk: Tests-dtl.380.mcz
by commits＠source.squeak.org 06 Aug '17

06 Aug '17

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.380.mcz ==================== Summary ==================== Name: Tests-dtl.380 Author: dtl Time: 6 August 2017, 12:18:36.034473 pm UUID: a7c7e81f-c7f5-425f-8301-2e289bde3da1 Ancestors: Tests-eem.379 CompiledCode and its subclasses are a special case, and are identified as class type #compiledMethod rather than #bytes. An MCClassDefinition should identify this type correctly, otherwise changes to these classes may not be saved and reloaded correctly. Add tests to verify this for MCClassDefinition, and categorize the tests. =============== Diff against Tests-eem.379 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Preferences'! - SystemOrganization addCategory: #'Tests-MonticelloMocks'! Item was changed: + ----- Method: MCClassDefinitionTest>>classAComment (in category 'running') ----- - ----- Method: MCClassDefinitionTest>>classAComment (in category 'as yet unclassified') ----- classAComment ^ self class classAComment! Item was changed: + ----- Method: MCClassDefinitionTest>>creationMessage (in category 'running') ----- - ----- Method: MCClassDefinitionTest>>creationMessage (in category 'as yet unclassified') ----- creationMessage ^ MessageSend receiver: MCClassDefinition selector: #name:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp:! Item was changed: + ----- Method: MCClassDefinitionTest>>tearDown (in category 'running') ----- - ----- Method: MCClassDefinitionTest>>tearDown (in category 'as yet unclassified') ----- tearDown super tearDown. Smalltalk at: 'MCMockClassC' ifPresent: [:c | c removeFromSystem]! Item was changed: + ----- Method: MCClassDefinitionTest>>testCannotLoad (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testCannotLoad (in category 'as yet unclassified') ----- testCannotLoad | d | d := self mockClass: 'MCMockClassC' super: 'NotAnObject'. self should: [d load] raise: Error. self deny: (Smalltalk hasClassNamed: 'MCMockClassC').! Item was changed: + ----- Method: MCClassDefinitionTest>>testComparison (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testComparison (in category 'as yet unclassified') ----- testComparison | d1 d2 d3 d4 | d1 := self mockClass: 'A' super: 'X'. d2 := self mockClass: 'A' super: 'Y'. d3 := self mockClass: 'B' super: 'X'. d4 := self mockClass: 'B' super: 'X'. self assert: (d1 isRevisionOf: d2). self deny: (d1 isSameRevisionAs: d2). self assert: (d3 isRevisionOf: d4). self assert: (d3 isSameRevisionAs: d4). self deny: (d1 isRevisionOf: d3). self deny: (d4 isRevisionOf: d2).! Item was changed: + ----- Method: MCClassDefinitionTest>>testCreation (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testCreation (in category 'as yet unclassified') ----- testCreation | d | d := self mockClassA asClassDefinition. self assert: d className = #MCMockClassA. self assert: d superclassName = #MCMock. self assert: d type = #normal. self assert: d category = self mockCategoryName. self assert: d instVarNames asArray = #('ivar'). self assert: d classVarNames asArray = #('CVar'). self assert: d classInstVarNames asArray = #(). self assert: d comment isString. self assert: d comment = self classAComment. self assert: d commentStamp = self mockClassA organization commentStamp! Item was changed: + ----- Method: MCClassDefinitionTest>>testDefinitionString (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testDefinitionString (in category 'as yet unclassified') ----- testDefinitionString | d | d := self mockClassA asClassDefinition. self assert: d definitionString = self mockClassA definition.! Item was changed: + ----- Method: MCClassDefinitionTest>>testEquals (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testEquals (in category 'as yet unclassified') ----- testEquals | a b | a := self mockClass: 'ClassA' super: 'SuperA'. b := self mockClass: 'ClassA' super: 'SuperA'. self assert: a = b! Item was changed: + ----- Method: MCClassDefinitionTest>>testEqualsSensitivity (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testEqualsSensitivity (in category 'as yet unclassified') ----- testEqualsSensitivity | message a b defA args defB | message := self creationMessage. a := #(ClassA SuperA CategoryA #(iVarA) #(CVarA) #(PoolA) #(ciVarA) typeA 'A comment' 'A'). b := #(ClassB SuperB CategoryB #(iVarB) #(CVarB) #(PoolB) #(ciVarB) typeB 'B comment' 'B'). defA := message valueWithArguments: a. 1 to: 8 do: [:index | args := a copy. args at: index put: (b at: index). defB := message valueWithArguments: args. self deny: defA = defB.]! Item was changed: + ----- Method: MCClassDefinitionTest>>testKindOfSubclass (in category 'testing - class type') ----- - ----- Method: MCClassDefinitionTest>>testKindOfSubclass (in category 'as yet unclassified') ----- testKindOfSubclass {self mockClassA. String. ByteString. WideString. BlockClosure. WeakArray. BoxedFloat64. SmallFloat64. CompiledMethod. ByteArray. DoubleByteArray. IntegerArray. DoubleWordArray. } do: [:c | self assert: c asClassDefinition kindOfSubclass equals: c kindOfSubclass]! Item was added: + ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledBlock (in category 'testing - class type') ----- + testKindOfSubclassForCompiledBlock + "CompiledCode and its subclasses are a special case." + | classDef | + "CompiledBlock should be like CompiledMethod, both now are subclassed from CompiledCode" + classDef := self mockClass: #CompiledBlock super: #CompiledCode type: #bytes. + self assert: #compiledMethod equals: classDef type. + self assert: CompiledBlock typeOfClass equals: classDef type. + ! Item was added: + ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledCode (in category 'testing - class type') ----- + testKindOfSubclassForCompiledCode + "CompiledCode and its subclasses are a special case." + | classDef | + "CompiledMethod is now a subclass of CompiledCode, which is also of type #compiledMethod" + classDef := self mockClass: #CompiledCode super: #ByteArray type: #bytes. + self assert: #compiledMethod equals: classDef type. + self assert: CompiledCode typeOfClass equals: classDef type. + + ! Item was added: + ----- Method: MCClassDefinitionTest>>testKindOfSubclassForCompiledMethod (in category 'testing - class type') ----- + testKindOfSubclassForCompiledMethod + "CompiledCode and its subclasses are a special case." + | classDef | + classDef := self mockClass: #CompiledMethod super: #CompiledCode type: #bytes. + self assert: #compiledMethod equals: classDef type. + self assert: CompiledMethod typeOfClass equals: classDef type. + ! Item was added: + ----- Method: MCClassDefinitionTest>>testKindOfSubclassForSocketAddress (in category 'testing - class type') ----- + testKindOfSubclassForSocketAddress + "A subclass of ByteArray that is not treated specially" + | classDef | + classDef := self mockClass: #SocketAddress super: #ByteArray type: #bytes. + self assert: #bytes equals: classDef type. + self assert: SocketAddress typeOfClass equals: classDef type. + + ! Item was changed: + ----- Method: MCClassDefinitionTest>>testLoadAndUnload (in category 'testing') ----- - ----- Method: MCClassDefinitionTest>>testLoadAndUnload (in category 'as yet unclassified') ----- testLoadAndUnload | d c | d := self mockClass: 'MCMockClassC' super: 'Object'. d load. self assert: (Smalltalk hasClassNamed: 'MCMockClassC'). c := (Smalltalk classNamed: 'MCMockClassC'). self assert: (c isKindOf: Class). self assert: c superclass = Object. self assert: c instVarNames isEmpty. self assert: c classVarNames isEmpty. self assert: c sharedPools isEmpty. self assert: c category = self mockCategoryName. self assert: c organization classComment = (self commentForClass: 'MCMockClassC'). self assert: c organization commentStamp = (self commentStampForClass: 'MCMockClassC'). d unload. self deny: (Smalltalk hasClassNamed: 'MCMockClassC').! Item was changed: ----- Method: MCTestCase>>mockClass:super: (in category 'mocks') ----- mockClass: className super: superclassName + ^ self mockClass: className super: superclassName type: #normal + ! - ^ MCClassDefinition - name: className - superclassName: superclassName - category: self mockCategoryName - instVarNames: #() - classVarNames: #() - poolDictionaryNames: #() - classInstVarNames: #() - type: #normal - comment: (self commentForClass: className) - commentStamp: (self commentStampForClass: className)! Item was added: + ----- Method: MCTestCase>>mockClass:super:type: (in category 'mocks') ----- + mockClass: className super: superclassName type: typeSymbol + ^ MCClassDefinition + name: className + superclassName: superclassName + category: self mockCategoryName + instVarNames: #() + classVarNames: #() + poolDictionaryNames: #() + classInstVarNames: #() + type: typeSymbol + comment: (self commentForClass: className) + commentStamp: (self commentStampForClass: className)!

1 0

The Trunk: Network-tpr.202.mcz
by commits＠source.squeak.org 03 Aug '17

03 Aug '17

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.202.mcz ==================== Summary ==================== Name: Network-tpr.202 Author: tpr Time: 2 August 2017, 5:56:32.822543 pm UUID: e26da09c-d555-47c0-8c95-d0fcc1085a03 Ancestors: Network-eem.201 Correct a misleading comment =============== Diff against Network-eem.201 =============== Item was changed: ----- Method: NetNameResolver class>>initializeNetwork (in category 'network initialization') ----- initializeNetwork + "Initialize the network drivers and record the semaphore to be used by the resolver. Do nothing if the network is already initialized. Signal NoNetworkError if network initialization fails." - "Initialize the network drivers and record the semaphore to be used by the resolver. Do nothing if the network is already initialized. Evaluate the given block if network initialization fails." "NetNameResolver initializeNetwork" self resolverStatus = ResolverUninitialized ifFalse: [^HaveNetwork := true]. "network is already initialized" HaveNetwork := false. "in case abort" Smalltalk newExternalSemaphoreDo: [ :semaphore :index | ResolverSemaphore := semaphore. "result is nil if network initialization failed, self if it succeeds" (self primInitializeNetwork: index) ifNil: [ Smalltalk unregisterExternalObject: ResolverSemaphore. ResolverSemaphore := nil. NoNetworkError signal: 'failed network initialization'] ifNotNil: [ HaveNetwork := true ] ]. self initializeOldNetworkFlag!

1 0

The Trunk: MorphicExtras-tpr.209.mcz
by commits＠source.squeak.org 03 Aug '17

03 Aug '17

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.209.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.209 Author: tpr Time: 2 August 2017, 5:53:29.922577 pm UUID: 7ad502c6-49bf-4866-886b-e9e5369b003b Ancestors: MorphicExtras-tpr.208 tiny changes to the init of Hygrometer and Thermomemter dials =============== Diff against MorphicExtras-tpr.208 =============== Item was changed: ----- Method: HygrometerDialMorph>>initialize (in category 'initialize-release') ----- initialize "Build a hygrometer. The background is an ImageMorph showing a dial derived from the same general principles as the BarometerMorph. " | pointerMorph | super initialize. self startAngle: -140 stopAngle: 140; + startValue: 0 stopValue: 100. - startValue: 25 stopValue: 100. self extent: 200@200; color: Color transparent; borderWidth: 0. dialCenter := self center. self buildDial. "build our fancy needle as an ImageMorph, set the position to horizontal centre and about 2/3 down so that it rotates about that point when inside the TransformationMorph" pointerMorph := self fancyNeedleOfLength: (self height * 0.65) rounded. pointerMorph position: pointerMorph extent * ( -0.5@ -0.65). "we keep track of the TransformationMorph since that is what we have to rotate as the incoming pressure values change" needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. self addMorph: needleMorph. "add a central colored dot. Because we just do." self addMorph: (CircleMorph new extent: 20@20; color: Color black; center: dialCenter) ! Item was changed: ----- Method: ThermometerDialMorph>>buildDial (in category 'dial drawing') ----- buildDial "start by making a damn big Form, twice the size we want to end up with" |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle tickLabelSize maxTicks | outerRadius := self height - 1. destForm := Form extent: self extent * 2 depth: 32. (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. "outer ring" self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. "inner ring" self drawArcAt: destForm center radius: outerRadius * 0.97 thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. "outer scale for Fahrenheit" beginAngle := startAngle -360. "needs cleaning up about this" endAngle := stopAngle. self drawArcAt: destForm center radius: outerRadius * 0.8 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. self drawArcAt: destForm center radius: outerRadius * 0.73 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + - "The Fahrenheit values of our range are - startValue -5/ 5 * 9 + 32 ->23 - stopValue 30 / 5 * 9 + 32 -> 86 - which is very conveniently integral but sadly it corresponds to 4.44444 deg per ... degree." maxTicks := stopValue - startValue / 5 * 9 . tickAngle := endAngle - beginAngle / maxTicks. (startValue / 5 * 9 +32) to: (stopValue / 5 * 9 +32) do: [:tick| tickLength := outerRadius * 0.07. tickLabel := nil. tick \\ 10 = 0 ifTrue: [ tickLabel := tick asString. tickLabelSize := 24 ] ifFalse: [ tick \\ 2 = 0 ifTrue:[ tickLabel := (tick \\ 10) asString. tickLabelSize := 18 ] ifFalse: [ tickLength := tickLength * 2 ] ]. self drawTickRadius: outerRadius * 0.73 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - (startValue / 5 * 9 +32) * tickAngle) onCanvas: canvas. self tickLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) + tickLength angle: beginAngle + (tick - (startValue / 5 * 9 +32) * tickAngle) onCanvas: canvas. ]. self tickInnerLabel: (String with: (Unicode value: 16rB0) with: $C) fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) angle: 180 onCanvas: canvas. "inner scale for Celsius" beginAngle := startAngle -360. "needs cleaning up about this" endAngle := stopAngle. self drawArcAt: destForm center radius: outerRadius * 0.71 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. self drawArcAt: destForm center radius: outerRadius * 0.63 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. maxTicks := stopValue - startValue. tickAngle := endAngle - beginAngle / maxTicks. tickLength := outerRadius * 0.07. startValue to: stopValue do: [ :tick ||tickThickness| tickLabel := nil. tick \\ 5 = 0 ifTrue: [ tickLabelSize := 20. tickThickness := 3. tickLabel := tick asString. ] ifFalse: [ tickThickness := 2. ]. self drawTickRadius: outerRadius * 0.63 length: tickLength thickness: tickThickness color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. self tickInnerLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.63) angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. ]. self tickLabel: (String with: (Unicode value: 16rB0) with: $F) fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) angle: 180 onCanvas: canvas. self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was changed: ----- Method: ThermometerDialMorph>>initialize (in category 'initialize-release') ----- initialize "Build a thermometer. The background is an ImageMorph showing a dial derived from the same general principles as the BarometerMorph. The temperature scale is fixed for now at -5C to 30C but ought to be parameterised someday. We'll have the Celcius scale as the inner and a conversion to Fahrenheit as the outer" | pointerMorph | super initialize. self startAngle: -140 stopAngle: 140; + startValue: -10 stopValue: 35. - startValue: -5 stopValue: 30. self extent: 200@200; color: Color transparent; borderWidth: 0. dialCenter := self center. self buildDial. "build our fancy needle as an ImageMorph, set the position to horizontal centre and about 2/3 down so that it rotates about that point when inside the TransformationMorph" pointerMorph := self fancyNeedleOfLength: (self height * 0.65) rounded. pointerMorph position: pointerMorph extent * ( -0.5@ -0.65). "we keep track of the TransformationMorph since that is what we have to rotate as the incoming pressure values change" needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. self addMorph: needleMorph. "add a central colored dot. Because we just do." self addMorph: (CircleMorph new extent: 20@20; color: Color black; center: dialCenter) !

1 0

The Trunk: System-dtl.961.mcz
by commits＠source.squeak.org 02 Aug '17

02 Aug '17

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.961.mcz ==================== Summary ==================== Name: System-dtl.961 Author: dtl Time: 2 August 2017, 9:22:02.611529 am UUID: 4485dae2-bb1b-48ca-bdc1-5f1f4dd89eb0 Ancestors: System-eem.960 When Project class>>tryOtherProjectForRecovery is searching for a safe project to use for emergency recovery, test for projects of a type that the current project inherits from, but do not require that they be of the same class. This handles the case of errors in a FooMorphicProject that inherits from MorphicProject, for which another Morphic project is not likely to be suitable for handling a fatal error raised in the FooMorphicProject. Expected behavior when evaluating "Project handlePrimitiveError: 'Foobar' " In an MVC project that is a chlid of a Morphic project, enter the Mophic project and open a debugger on the process that failed in MVC. In a Mophic project that is a chlid of an MVC project, enter the MVC project and open a debugger on the process that failed in Morphic. For the common case of a parent project of the same type as the project from which the error is raised, do not attempt to enter another project, and open an emergency evaluator instead. =============== Diff against System-eem.960 =============== Item was changed: ----- Method: Project class>>tryOtherProjectForRecovery: (in category 'error recovery') ----- tryOtherProjectForRecovery: errorMessage "Try entering the parent project if it uses a different user interface. We determine this by comparing the project's class." | safeProject nextProject | nextProject := Project current. safeProject := nil. [safeProject notNil or: [nextProject isTopProject]] whileFalse: [ nextProject := nextProject parent. + (Project current isKindOf: nextProject class) - nextProject class == Project current class ifFalse: [safeProject := nextProject]]. safeProject ifNotNil: [:p | p enterForEmergencyRecovery. "Active process will usually suspend after this."].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2017