Squeak-dev December 2020

squeak-dev@lists.squeakfoundation.org

32 participants
173 discussions

The Trunk: CollectionsTests-nice.347.mcz
by commits＠source.squeak.org 30 Dec '20

30 Dec '20

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.347.mcz ==================== Summary ==================== Name: CollectionsTests-nice.347 Author: nice Time: 30 December 2020, 12:42:34.890916 am UUID: 5b26fe17-c4d3-4fd0-a8d3-f53f5818d9dd Ancestors: CollectionsTests-mt.346 Add a test for float array 32<->64 conversions =============== Diff against CollectionsTests-mt.346 =============== Item was added: + ----- Method: FloatArrayTest>>testConversionToFloat64 (in category 'tests') ----- + testConversionToFloat64 + | b32 f32 f64 | + f32 := Float32Array withAll: #(0.1 0.25 1.0 1.5 2.0 3.14). + f64 := f32 asFloat64Array. + self assert: f64 class isBits. + self assert: f64 class isLongs. + self assert: f64 size equals: f32 size. + self assert: (f32 hasEqualElements: f64) description: '32 to 64 bits conversion is lossless'. + b32 := f64 asFloat32Array. + self assert: b32 class equals: f32 class. + self assert: b32 equals: f32.!

1 0

The Trunk: Sound-eem.77.mcz
by commits＠source.squeak.org 29 Dec '20

29 Dec '20

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.77.mcz ==================== Summary ==================== Name: Sound-eem.77 Author: eem Time: 29 December 2020, 11:19:33.380113 am UUID: 6ba9cee3-631a-4b00-b66f-0aad4608aefd Ancestors: Sound-eem.76 Allow MixedSound to do its thing even if it hasn't been sent reset and had soundDone set-up correctly. =============== Diff against Sound-eem.76 =============== Item was changed: ----- Method: MixedSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a number of sounds concurrently. The level of each sound can be set independently for the left and right channels." | snd left right | + soundDone + ifNil: + [1 to: sounds size do: + [:i | + snd := sounds at: i. + left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + snd samplesRemaining > 0 ifTrue: + [snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right]]] + ifNotNil: + [1 to: sounds size do: + [:i | + (soundDone at: i) ifFalse: + [snd := sounds at: i. + left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + snd samplesRemaining > 0 + ifTrue: [snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right] + ifFalse: [soundDone at: i put: true]]]]! - 1 to: sounds size do: [:i | - (soundDone at: i) ifFalse: [ - snd := sounds at: i. - left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. - right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. - snd samplesRemaining > 0 - ifTrue: [ - snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right] - ifFalse: [soundDone at: i put: true]]]. - !

1 0

The Inbox: System-dtl.1208.mcz
by commits＠source.squeak.org 28 Dec '20

28 Dec '20

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-dtl.1208.mcz ==================== Summary ==================== Name: System-dtl.1208 Author: dtl Time: 24 December 2020, 1:34:26.591143 pm UUID: 2d7b8483-72c8-4f51-ab7d-83e5aeaad51e Ancestors: System-eem.1207 Provide vmParameterAt:default: to handle primitive failure on reading VM parameters. Fix sendMouseWheelEvents, should test bit 5 not bit 6. Supply default parameter values to mock possibly missing elements in the parameters array. Remove two unnecessary isRunningCog checks and an ifNotNil: Remove inappropriate halt in sendMouseWheelEvents: Let supportsMultipleBytecodeSets and supportsReadOnlyObjects work on any VM. =============== Diff against System-eem.1207 =============== Item was changed: ----- Method: SmalltalkImage>>isRunningCog (in category 'system attributes') ----- isRunningCog "Answers if we're running on a Cog VM (JIT or StackInterpreter)" + ^(self vmParameterAt: 42 default: nil) - ^(self vmParameterAt: 42) ifNil: [false] ifNotNil: [:numStackPages| numStackPages > 0]! Item was changed: ----- Method: SmalltalkImage>>isRunningCogit (in category 'system attributes') ----- isRunningCogit "Answers if we're running on the Cog JIT" + ^(self vmParameterAt: 46 default: nil) - ^(self vmParameterAt: 46) ifNil: [false] ifNotNil: [:machineCodeZoneSize| machineCodeZoneSize > 0]! Item was changed: ----- Method: SmalltalkImage>>lowSpaceThreshold (in category 'memory space') ----- lowSpaceThreshold "Answer the low space threshold. When the amount of free memory (after garbage collection) falls below this limit, the system is in serious danger of completely exhausting memory and crashing. This limit should be made high enough to allow the user open a debugger to diagnose a problem or to save the image. In a stack-based VM such as Cog contexts for activations in the stack zone will have to be created as the debugger opens, requiring additional headroom." | slotsForDebugger slotsForContextsOnStackPages | slotsForDebugger := 65536. "Arbitrary guess" slotsForContextsOnStackPages := + (self vmParameterAt: 42 default: nil) - (self vmParameterAt: 42) ifNil: [0] ifNotNil: [:numStackPages| | headerSize numActivationsPerPage maxContextSize | numActivationsPerPage := 40. "Design goal of the Cog & Stack VMs" headerSize := 8 / self wordSize. "64-bits for Spur" maxContextSize := thisContext class instSize + CompiledMethod fullFrameSize + headerSize. numStackPages * numActivationsPerPage * maxContextSize]. ^slotsForDebugger + slotsForContextsOnStackPages * self wordSize! Item was changed: ----- Method: SmalltalkImage>>maxExternalSemaphores (in category 'vm parameters') ----- maxExternalSemaphores + "The size of table where external semaphores are registered. Only in Cog, + other VMs are expected to answer nil if present in the parameters array." + ^self vmParameterAt: 49 default: nil! - "The size of table where external semaphores are registered. Only in Cog" - self isRunningCog ifFalse: [^nil]. - ^self vmParameterAt: 49! Item was changed: ----- Method: SmalltalkImage>>maxExternalSemaphores: (in category 'vm parameters') ----- maxExternalSemaphores: aSize "Changes the size of table where external semaphores are registered. The size can only grow, and will always be the next power of two larger than the parameter. Setting this at any time other than start-up can potentially lose requests. i.e. during the realloc new storage is allocated, the old contents are copied and then pointers are switched. Requests occurring during copying won't be seen if they occur to indices already copied. The intended use is to set the table to some adequate maximum at start-up" - self isRunningCog ifFalse: [^0]. "The vm-header field is a short, maximum 64k entries. Well, on most platforms anyways " (aSize < 0 or: [aSize > 16rFFFF]) ifTrue: [^self error: 'maxExternalSemaphores: is limited to 16rFFFF']. + ^[self vmParameterAt: 49 put: aSize] on: Error do: [0].! - ^self vmParameterAt: 49 put: aSize! Item was changed: ----- Method: SmalltalkImage>>processPreemptionYields (in category 'system attributes') ----- processPreemptionYields "Answer whether the VM causes a process to yield on process preemption, i.e. to put a preempted process at the back of its run queue. If the parameter is unavailable (non-Cog VMs) or bit 2 (4) is 0 then preemption yields." + ^((self vmParameterAt: 48 default: [^true]) allMask: 4) not + ! - ^(([self vmParameterAt: 48] - on: Error - do: [:ex| ^true]) allMask: 4) not! Item was changed: ----- Method: SmalltalkImage>>sendMouseWheelEvents (in category 'system attributes') ----- sendMouseWheelEvents "The Cog VM can be instructed to deliver mouse wheel events as mouse wheel events. By default mouse wheel events are mapped to arrow events. This flag persists across snapshots, stored in the image header." + ^(self vmParameterAt: 48 default: 0) allMask: 16 "bit 5" + + ! - ^(self vmParameterAt: 48) anyMask: 32! Item was changed: ----- Method: SmalltalkImage>>supportsMultipleBytecodeSets (in category 'system attributes') ----- supportsMultipleBytecodeSets "Answer whether the VM supports multiple bytecodeSets." "SmalltalkImage current supportsMultipleBytecodeSets" + ^(self vmParameterAt: 65 default: nil) - ^(self vmParameterAt: 65) ifNil: [false] ifNotNil: [:param| "In older VMs this is a boolean answering the vm-internal MULTIPLE_BYTECODE_SETS define" param isInteger "In newer VMs it is a set of integer flags, bit 0 of which is the vm-internal MULTIPLE_BYTECODE_SETS define" ifTrue: [param anyMask: 1] ifFalse: [param]]! Item was changed: ----- Method: SmalltalkImage>>supportsQueueingFinalization (in category 'system attributes') ----- supportsQueueingFinalization "Answer whether the VM queues individual weak arrays for finalization, instead of signalling the finalization semaphore once for all arrays and having the WeakRegistry mechanism finalize all weak arrays, whether they need to or not." "SmalltalkImage current supportsQueueingFinalization" + ^(self vmParameterAt: 48 default: 0) anyMask: 16! - ^(self vmParameterAt: 48) anyMask: 16! Item was changed: ----- Method: SmalltalkImage>>supportsReadOnlyObjects (in category 'system attributes') ----- supportsReadOnlyObjects "Answer whether the VM observes the per-object read-only flag and consequently aborts writes to inst vars of, and fails primitives that attempt to modify, read-only objects." "SmalltalkImage current supportsReadOnlyObjects" + ^(self vmParameterAt: 65 default: nil) - ^(self vmParameterAt: 65) ifNil: [false] ifNotNil: [:param| "In older VMs this is a boolean answering the vm-internal MULTIPLE_BYTECODE_SETS define" param isInteger "In newer VMs it is a set of integer flags, bit 1 of which is the vm-internal IMMUTABILITY define" ifTrue: [param anyMask: 2] ifFalse: [false]]! Item was added: + ----- Method: SmalltalkImage>>vmParameterAt:default: (in category 'vm parameters') ----- + vmParameterAt: parameterIndex default: defaultValueOrBlock + "Answer a VM parameter or defaultValueOrBlock value if out of range." + <primitive: 254> + ^defaultValueOrBlock value! Item was changed: ----- Method: SmalltalkImage>>wordSize (in category 'image') ----- wordSize "Answer the size in bytes of an object pointer or word in the object memory. The value does not change for a given image, but may be modified by a SystemTracer when converting the image to another format. The value is cached in WordSize to avoid the performance overhead of repeatedly consulting the VM." "Smalltalk wordSize" + ^ WordSize ifNil: [WordSize := self vmParameterAt: 40 default: 4]! - ^ WordSize ifNil: [WordSize := [self vmParameterAt: 40] on: Error do: [4]]!

2 2

The Trunk: ST80Tests-nice.7.mcz
by commits＠source.squeak.org 28 Dec '20

28 Dec '20

Nicolas Cellier uploaded a new version of ST80Tests to project The Trunk: http://source.squeak.org/trunk/ST80Tests-nice.7.mcz ==================== Summary ==================== Name: ST80Tests-nice.7 Author: nice Time: 28 December 2020, 2:55:01.970604 pm UUID: 23d32eca-56dc-434a-9498-57a6f421c0f8 Ancestors: ST80Tests-fn.6 ST80 doesn't seem to depend on Monticello anymore. =============== Diff against ST80Tests-fn.6 =============== Item was changed: ----- Method: ST80PackageDependencyTest>>testST80 (in category 'tests') ----- testST80 self testPackage: #ST80 dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Files Graphics Kernel Morphic Multilingual SUnit System #'ToolBuilder-Kernel' Tools - Monticello ).!

1 0

CompiledCodeInspectorTest>>testValuePaneModifyLiteral crashes the VM
by Fabio Niephaus 28 Dec '20

28 Dec '20

Hi all, I'm not sure this is already known, but CompiledCodeInspectorTest>>testValuePaneModifyLiteral reproducibly crashes the VM on macOS. I tried it with an older VM from last year and the latest bleeding edge (202012050134). Best, Fabio

3 6

for the morphic team...is a "caps locks is on" indicator doable?
by gettimothy 28 Dec '20

28 Dec '20

Hi folks. Ignore as appropriate. Fat-finger me hits caps-lock by accident quite a bit and copy-n-paste does not work in morphic when that happens. A not-so-subtle indicator that "caps lock is on" would be helpful. cheers and thanks.

6 7

The Inbox: Monticello-ct.734.mcz
by commits＠source.squeak.org 28 Dec '20

28 Dec '20

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-ct.734.mcz ==================== Summary ==================== Name: Monticello-ct.734 Author: ct Time: 28 December 2020, 12:48:47.150654 pm UUID: 3964a938-941a-4e1a-89e6-d1b33e370e29 Ancestors: Monticello-mt.733 Proposal: Dispatch request notifications via ToolSet before opening an interactive dialog window. This should give us better feedback in non-interactive environments such as CI jobs or production contexts (at the moment, CI only hangs silently). Questions: Is it okay to depend on the System, Tools, and CommandLineTools from Monticello? Are there further exceptions that should be dispatched equally? =============== Diff against Monticello-mt.733 =============== Item was added: + ----- Method: CommandLineToolSet class>>mcHandleChangeSelectionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleChangeSelectionRequest: aNotification + + ^ self handleError: aNotification! Item was added: + ----- Method: CommandLineToolSet class>>mcHandleMergeResolutionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleMergeResolutionRequest: aNotification + + ^ self handleError: aNotification! Item was added: + ----- Method: CommandLineToolSet class>>mcHandleNoChangesNotification: (in category '*Monticello-Versioning-handlers') ----- + mcHandleNoChangesNotification: aNotification + + ^ self handleWarning: aNotification! Item was added: + ----- Method: CommandLineToolSet class>>mcHandleSaveVersionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleSaveVersionRequest: aNotification + + ^ self handleError: aNotification! Item was changed: ----- Method: MCChangeSelectionRequest>>defaultAction (in category 'handling') ----- defaultAction + + ^ ToolSet mcHandleChangeSelectionRequest: self! - ^ (MCChangeSelector forPatch: patch) - label: label ; - showModally! Item was changed: ----- Method: MCMergeResolutionRequest>>defaultAction (in category 'handling') ----- defaultAction + + ^ ToolSet mcHandleMergeResolutionRequest: self! - ^ (MCMergeBrowser new - merger: merger; - label: messageText) showModally! Item was changed: ----- Method: MCNoChangesException>>defaultAction (in category 'handling') ----- defaultAction + + ^ ToolSet mcHandleNoChangesNotification: self! - self inform: 'No changes'! Item was changed: ----- Method: MCVersionNameAndMessageRequest>>defaultAction (in category 'handling') ----- defaultAction + + ^ ToolSet mcHandleSaveVersionRequest: self! - ^ MCSaveVersionDialog new - versionName: suggestion; - logMessage: initialMessage; - patchBlock: patchBlock; - selection: 1; - showModally! Item was added: + ----- Method: StandardToolSet class>>mcHandleChangeSelectionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleChangeSelectionRequest: aNotification + + ^ (MCChangeSelector forPatch: aNotification patch) + label: aNotification label; + showModally! Item was added: + ----- Method: StandardToolSet class>>mcHandleMergeResolutionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleMergeResolutionRequest: aNotification + + ^ (MCMergeBrowser new + merger: aNotification merger; + label: aNotification messageText) showModally! Item was added: + ----- Method: StandardToolSet class>>mcHandleNoChangesNotification: (in category '*Monticello-Versioning-handlers') ----- + mcHandleNoChangesNotification: aNotification + + ^ self inform: 'No changes' translated! Item was added: + ----- Method: StandardToolSet class>>mcHandleSaveVersionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleSaveVersionRequest: aNotification + + ^ MCSaveVersionDialog new + versionName: aNotification suggestedName; + logMessage: aNotification initialMessage; + patchBlock: aNotification patchBlock; + selection: 1; + showModally! Item was added: + ----- Method: ToolSet class>>mcHandleChangeSelectionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleChangeSelectionRequest: aNotification + + ^ self default + ifNil: [self handleError: aNotification] + ifNotNil: [:ts | ts mcHandleChangeSelectionRequest: aNotification]! Item was added: + ----- Method: ToolSet class>>mcHandleMergeResolutionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleMergeResolutionRequest: aNotification + + ^ self default + ifNil: [self handleError: aNotification] + ifNotNil: [:ts | ts mcHandleMergeResolutionRequest: aNotification]! Item was added: + ----- Method: ToolSet class>>mcHandleNoChangesNotification: (in category '*Monticello-Versioning-handlers') ----- + mcHandleNoChangesNotification: aNotification + + ^ self default + ifNil: [self handleWarning: aNotification] + ifNotNil: [:ts | ts mcHandleNoChangesNotification: aNotification]! Item was added: + ----- Method: ToolSet class>>mcHandleSaveVersionRequest: (in category '*Monticello-Versioning-handlers') ----- + mcHandleSaveVersionRequest: aNotification + + ^ self default + ifNil: [self handleError: aNotification] + ifNotNil: [:ts | ts mcHandleSaveVersionRequest: aNotification]!

1 0

The Trunk: Graphics-nice.444.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.444.mcz ==================== Summary ==================== Name: Graphics-nice.444 Author: nice Time: 27 December 2020, 11:14:18.76654 pm UUID: 7ad44724-768e-449e-b201-507678a23c94 Ancestors: Graphics-nice.443 Isolate alpha channel when printing a named color. This allows it to reuse the color name even for translucent color. Example: (Color red alpha: 0.4) printString Output (new): '(Color red alpha: 0.4)' Output (old): '(TranslucentColor r: 1 g: 0.5 b: 0.0 alpha: 0.4)' Note: the implementation preserves parentheses and Color transparent printString. Thanks to Christoph Thiede (ct) for the original proposal. =============== Diff against Graphics-nice.443 =============== Item was changed: + ----- Method: TranslucentColor>>isOpaque (in category 'testing') ----- - ----- Method: TranslucentColor>>isOpaque (in category 'queries') ----- isOpaque ^alpha = 255! Item was changed: + ----- Method: TranslucentColor>>isTranslucent (in category 'testing') ----- - ----- Method: TranslucentColor>>isTranslucent (in category 'queries') ----- isTranslucent ^ alpha < 255! Item was changed: + ----- Method: TranslucentColor>>isTranslucentColor (in category 'testing') ----- - ----- Method: TranslucentColor>>isTranslucentColor (in category 'queries') ----- isTranslucentColor "This means: self isTranslucent, but isTransparent not" ^ alpha > 0! Item was changed: + ----- Method: TranslucentColor>>isTransparent (in category 'testing') ----- - ----- Method: TranslucentColor>>isTransparent (in category 'queries') ----- isTransparent ^ alpha = 0! Item was added: + ----- Method: TranslucentColor>>printOn: (in category 'printing') ----- + printOn: aStream + | name | + self isTransparent ifTrue: [^ aStream nextPutAll: 'Color transparent']. + (name := self asNontranslucentColor name) ifNil: [^self storeOn: aStream]. + aStream + nextPutAll: '(Color '; + nextPutAll: name; + nextPutAll: ' alpha: '; + print: self alpha maxDecimalPlaces: 3; + nextPut: $) + ! Item was changed: ----- Method: TranslucentColor>>storeOn: (in category 'printing') ----- storeOn: aStream + self isTransparent ifTrue: [^ aStream nextPutAll: 'Color transparent']. - self isTransparent ifTrue: [^ aStream nextPutAll: '(Color transparent)']. super storeOn: aStream. aStream skip: -1; "get rid of trailing )" nextPutAll: ' alpha: '; print: self alpha maxDecimalPlaces: 3; nextPutAll: ')'. !

1 0

The Trunk: Graphics-nice.443.mcz
by commits＠source.squeak.org 27 Dec '20

27 Dec '20

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.443.mcz ==================== Summary ==================== Name: Graphics-nice.443 Author: nice Time: 27 December 2020, 10:35:06.879989 pm UUID: f712ead7-a4fb-467d-bef1-a0962208c170 Ancestors: Graphics-mt.441, Graphics-ct.439, Graphics-ct.430, Graphics-ct.425, Graphics-ct.418 Merge Graphics-mt.441, Graphics-ct.439, Graphics-ct.430, Graphics-ct.425, Graphics-ct.418 Graphics-mt.441: Some clean up around DisplayTransform. Thanks to Stephan Lutz (stlu)! Graphics-ct.439: Fixes transparency handling in Color >> #negated. Negating a color should not remove its alpha channel. Graphics-ct.430: Miscellaneous minor refactoring - Use #ifError: and correct deprecated [:argWithoutBar] block syntax (see Compiler-ct.417) - Fix a documetation typo - Simplify some conditions Graphics-ct.425: [very minor] Use already defined magic number instead of hard-coded duplication Graphics-ct.418: Add Color>>#veryMuchDarker We also have #veryMuchLighter, so balance this out :) =============== Diff against Graphics-mt.441 =============== Item was changed: ----- Method: BMPReadWriter class>>readAllFrom: (in category 'testing') ----- readAllFrom: fd "MessageTally spyOn:[BMPReadWriter readAllFrom: FileDirectory default]" fd fileNames do:[:fName| (fName endsWith: '.bmp') ifTrue:[ + [Form fromBinaryStream: (fd readOnlyFileNamed: fName)] ifError: []. - [Form fromBinaryStream: (fd readOnlyFileNamed: fName)] on: Error do:[:nix]. ]. ]. fd directoryNames do:[:fdName| self readAllFrom: (fd directoryNamed: fdName) ].! Item was changed: ----- Method: Color>>negated (in category 'transformations') ----- negated "Return an RGB inverted color" ^Color r: 1.0 - self red g: 1.0 - self green + b: 1.0 - self blue + alpha: self alpha! - b: 1.0 - self blue! Item was added: + ----- Method: Color>>veryMuchDarker (in category 'transformations') ----- + veryMuchDarker + + ^ self alphaMixed: 0.25 with: Color black + ! Item was changed: ----- Method: FixedFaceFont>>passwordFont (in category 'initialize-release') ----- passwordFont displaySelector := #displayPasswordOn:length:at:kern:baselineY:. + substitutionCharacter := self passwordCharacter! - substitutionCharacter := $*! Item was changed: StrikeFont subclass: #FormSetFont instanceVariableNames: 'tintable combinationRule' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Fonts'! + !FormSetFont commentStamp: 'ct 2/14/2020 16:49' prior: 0! + FormSetFonts are designed to capture individual images as character forms for imbedding in normal text. While most often used to insert an isolated glyph in some text, the code is actually designed to support an entire user-defined font. The TextAttribute subclass TextFontReference is specifically designed for such in-line insertion of exceptional fonts in normal text.! - !FormSetFont commentStamp: '<historical>' prior: 0! - FormSetFonts are designed to capture individual images as character forms for imbedding in normal text. While most often used to insert an isolated glyph in some text, the code is actually desinged to support an entire user-defined font. The TextAttribute subclass TextFontReference is specifically designed for such in-line insertion of exceptional fonts in normal text.! Item was changed: ----- Method: StrikeFont>>hasGlyphForCode: (in category 'multibyte character methods') ----- hasGlyphForCode: aCharacterCode + (aCharacterCode between: self minAscii and: self maxAscii) + ifFalse: [^ false]. + (xTable at: aCharacterCode + 1) positive + ifFalse: [^ false]. - ((aCharacterCode between: self minAscii and: self maxAscii) not) ifTrue: [ - ^ false. - ]. - (xTable at: aCharacterCode + 1) < 0 ifTrue: [ - ^ false. - ]. ^ true. !

1 0

source.squeak.org access is difficult
by Nicolas Cellier 27 Dec '20

27 Dec '20

Hi all, I wanted to clean my own garbage in inbox, but web interface is not really responsive from here... I've checked with https://downforeveryoneorjustme.com/source.squeak.org, and uh oh, as they say: Source.squeak.org Status Is source.squeak.org down right now? * Uh oh! Something went wrong on our side. It's not you, it's us. Feel free to contact us <https://downforeveryoneorjustme.com/contact> if this persists. *

2 1

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

Jump to page: