Squeak-dev June 2023

squeak-dev@lists.squeakfoundation.org

23 participants
127 discussions

The Inbox: Chronology-Core-dtl.84.mcz
by commits＠source.squeak.org 23 Jun '23

23 Jun '23

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-dtl.84.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.84 Author: dtl Time: 20 June 2023, 5:38:49.016554 pm UUID: 54930a93-01b0-4313-b8e5-8dbe5e53300d Ancestors: Chronology-Core-mt.82 Establish protocol for aTimeZone offsetAt: aDateAndTime. Let TimeZone be abstract and let FixedTimeZone implement the previous behavior with offset represented as a constant (no DST transition support). Other packages (e.g. TZ-Olson) may implement concrete TimeZone with DST support. Also add TimeZone class>>allForOffset: as proposed by Christoph Thiede on squeak-dev (Review Request: allTimeZones.4.cs, Thu, 18 May 2023 22:11:32 +0200) =============== Diff against Chronology-Core-mt.82 =============== Item was changed: ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') ----- localOffset: aDuration "Override the local time zone (for testing). This disables the #automaticTimezone: preference" + self localTimeZone: (FixedTimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO'). - self localTimeZone: (TimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO'). ! Item was added: + TimeZone subclass: #FixedTimeZone + instanceVariableNames: 'offset abbreviation name' + classVariableNames: '' + poolDictionaries: 'ChronologyConstants' + category: 'Chronology-Core'! + + !FixedTimeZone commentStamp: 'dtl 6/20/2023 08:07' prior: 0! + FixedTimeZone is a simple class to collect the information identifying a UTC time zone. It is typically used in unit tests to specify specific time zone offsets. + + offset - Duration - the time zone's offset from UTC + abbreviation - String - the abbreviated name for the time zone. + name - String - the name of the time zone. + + StaticTimeZone class >> #timeZones returns an array of the known time zones + StaticTimeZone class >> #default returns the default time zone (Greenwich Mean Time) + ! Item was added: + ----- Method: FixedTimeZone class>>allTimeZones (in category 'accessing') ----- + allTimeZones + + ^ self timeZones , self timeZonesDST! Item was added: + ----- Method: FixedTimeZone class>>default (in category 'accessing') ----- + default + "Answer the default time zone - GMT" + + ^ self timeZones detect: [ :tz | tz offset = Duration zero ]! Item was added: + ----- Method: FixedTimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- + offset: aDuration name: aName abbreviation: anAbbreviation + + ^ self new + offset: aDuration; + name: aName; + abbreviation: anAbbreviation; + yourself + ! Item was added: + ----- Method: FixedTimeZone class>>timeZones (in category 'accessing') ----- + timeZones + ^{ + self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. + self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. + self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'. + self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. + self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. + self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. + self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. + self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. + }! Item was added: + ----- Method: FixedTimeZone class>>timeZonesDST (in category 'accessing') ----- + timeZonesDST + ^{ + self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. + self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'. + self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. + self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. + self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. + self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. + }! Item was added: + ----- Method: FixedTimeZone>>abbreviation (in category 'accessing') ----- + abbreviation + + ^ abbreviation! Item was added: + ----- Method: FixedTimeZone>>abbreviation: (in category 'accessing') ----- + abbreviation: aString + + abbreviation := aString! Item was added: + ----- Method: FixedTimeZone>>name (in category 'accessing') ----- + name + + ^ name! Item was added: + ----- Method: FixedTimeZone>>name: (in category 'accessing') ----- + name: aString + + name := aString! Item was added: + ----- Method: FixedTimeZone>>offset: (in category 'accessing') ----- + offset: aDuration + + offset := aDuration + ! Item was added: + ----- Method: FixedTimeZone>>offsetAt: (in category 'accessing') ----- + offsetAt: dateAndTime + "A ConstantTimeZone has a constant offset, ignoring daylight savings time transitions" + + ^ offset + ! Item was added: + ----- Method: FixedTimeZone>>printOn: (in category 'private') ----- + printOn: aStream + + super printOn: aStream. + aStream + nextPut: $(; + nextPutAll: self abbreviation; + nextPut: $)! Item was changed: Object subclass: #TimeZone + instanceVariableNames: '' - instanceVariableNames: 'offset abbreviation name' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! + !TimeZone commentStamp: 'dtl 6/15/2023 22:27' prior: 0! + A TimeZone answers the UTC offset for a DateAndTime based on local rules for a geographic region. For each regional time zone, the UTC offset varies as a function of the DateAndTime, notably in support of daylight savings time changes. The UTC offset for a TimeZone also may change over time as local rules are updated for various regions and political jurisdictions. - !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0! - TimeZone is a simple class to colect the information identifying a UTC time zone. + Concrete subclasses are expected to implement UTC offset rules. The simple case of FixedTimeZone implements a time zone with constant offset, which is useful for unit test support.! - offset - Duration - the time zone's offset from UTC - abbreviation - String - the abbreviated name for the time zone. - name - String - the name of the time zone. - - TimeZone class >> #timeZones returns an array of the known time zones - TimeZone class >> #default returns the default time zone (Grenwich Mean Time) - ! Item was added: + ----- Method: TimeZone class>>allForOffset: (in category 'accessing') ----- + allForOffset: aDuration + + ^ self allTimeZones select: [:ea | ea offset = aDuration]! Item was added: + ----- Method: TimeZone class>>allTimeZones (in category 'accessing') ----- + allTimeZones + "Various concrete implementations may be available. These may include a + simple StaticTimeZone or e.g. the TZ-Olson time zone tables with daylight + savings time offset transitions." + + ^ self allSubclasses + inject: OrderedCollection new + into: [ :result :cls | + (cls class includesLocalSelector: #allTimeZones) + ifTrue: [result addAll: cls allTimeZones]. + result]. + ! Item was changed: ----- Method: TimeZone class>>default (in category 'accessing') ----- default "Answer the default time zone - GMT" + ^ FixedTimeZone default! - ^ self timeZones detect: [ :tz | tz offset = Duration zero ]! Item was removed: - ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- - offset: aDuration name: aName abbreviation: anAbbreviation - - ^ self new - offset: aDuration; - name: aName; - abbreviation: anAbbreviation; - yourself - ! Item was removed: - ----- Method: TimeZone class>>timeZones (in category 'accessing') ----- - timeZones - ^{ - self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. - self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. - self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'. - self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. - self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. - self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. - self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. - self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. - }! Item was removed: - ----- Method: TimeZone class>>timeZonesDST (in category 'accessing') ----- - timeZonesDST - ^{ - self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. - self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'. - self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. - self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. - self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. - self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. - }! Item was changed: ----- Method: TimeZone>>abbreviation (in category 'accessing') ----- abbreviation + ^ self subclassResponsibility! - ^ abbreviation! Item was removed: - ----- Method: TimeZone>>abbreviation: (in category 'accessing') ----- - abbreviation: aString - - abbreviation := aString! Item was changed: ----- Method: TimeZone>>name (in category 'accessing') ----- name + ^ self subclassResponsibility! - ^ name! Item was removed: - ----- Method: TimeZone>>name: (in category 'accessing') ----- - name: aString - - name := aString! Item was changed: ----- Method: TimeZone>>offset (in category 'accessing') ----- offset + "Answer the current offset" + ^ self offsetAt: DateAndTime now - ^ offset ! Item was removed: - ----- Method: TimeZone>>offset: (in category 'accessing') ----- - offset: aDuration - - offset := aDuration - ! Item was added: + ----- Method: TimeZone>>offsetAt: (in category 'accessing') ----- + offsetAt: dateAndTime + + ^ self subclassResponsibility + ! Item was removed: - ----- Method: TimeZone>>printOn: (in category 'private') ----- - printOn: aStream - - super printOn: aStream. - aStream - nextPut: $(; - nextPutAll: self abbreviation; - nextPut: $)! Item was changed: + (PackageInfo named: 'Chronology-Core') postscript: '"StaticTimeZone is now the concrete implementation of TimeZone" + + DateAndTime localTimeZone == TimeZone + ifTrue: [ | newInstance | + newInstance := StaticTimeZone + offset: DateAndTime localTimeZone offset + name: DateAndTime localTimeZone name + abbreviation: DateAndTime localTimeZone abbreviation. + DateAndTime localTimeZone: newInstance ]. + '! - (PackageInfo named: 'Chronology-Core') postscript: 'Smalltalk removeFromStartUpList: DateAndTime'!

5 6

The Trunk: ToolBuilder-SUnit-pre.22.mcz
by commits＠source.squeak.org 22 Jun '23

22 Jun '23

Patrick Rein uploaded a new version of ToolBuilder-SUnit to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-SUnit-pre.22.mcz ==================== Summary ==================== Name: ToolBuilder-SUnit-pre.22 Author: pre Time: 22 June 2023, 8:20:35.908166 am UUID: 39fa35ca-2461-6c45-b686-a253b3e623e2 Ancestors: ToolBuilder-SUnit-mt.21 Categorizes some uncategorized methods. =============== Diff against ToolBuilder-SUnit-mt.21 =============== Item was changed: + ----- Method: MenuStub>>click: (in category 'simulating') ----- - ----- Method: MenuStub>>click: (in category 'as yet unclassified') ----- click: aString | item | item := self items detect: [:ea | ea label = aString] ifNone: [^ self]. item action isSymbol ifTrue: [self model perform: item action] ifFalse: [item action value]! Item was changed: + ----- Method: MenuStub>>items (in category 'accessing') ----- - ----- Method: MenuStub>>items (in category 'as yet unclassified') ----- items ^ spec items! Item was changed: + ----- Method: MenuStub>>labels (in category 'accessing') ----- - ----- Method: MenuStub>>labels (in category 'as yet unclassified') ----- labels ^ self items keys!

1 0

ExceptionSet>>#, does not do what you might think
by Thiede, Christoph 22 Jun '23

22 Jun '23

Hi all, ExceptionSet >> , anException "Return an exception set that contains the receiver and the argument exception. This is commonly used to specify a set of exception selectors for an exception handler." self add: anException. ^self That means that #, actually modifies the receiver instead of answering a copy. Thus, we can observe the following: Error , Warning , Halt; handles: Halt new "true" Should we change that? It's really confusing and I would consider it idiosyncratic. On the other hand, code that actually wants to copy an ExceptionSet seems to be pretty rare, and a side-effect-free #, would be more expensive for the interpreter and for the GC. Best, Christoph

11 25

The Inbox: Chronology-Core-dtl.83.mcz
by commits＠source.squeak.org 21 Jun '23

21 Jun '23

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-dtl.83.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.83 Author: dtl Time: 18 June 2023, 4:39:00.39056 pm UUID: 5533f6f0-9e47-478e-bc41-59aaee83a4bf Ancestors: Chronology-Core-mt.82 Establish protocol for aTimeZone offsetAt: aDateAndTime. Let TimeZone be abstract and let FixedTimeZone implement the previous behavior with offset represented as a constant (no DST transition support). Other packages (e.g. TZ-Olson) may implement concrete TimeZone with DST support. Also add TimeZone class>>allForOffset: as proposed by Christoph Thiede on squeak-dev (Review Request: allTimeZones.4.cs, Thu, 18 May 2023 22:11:32 +0200) =============== Diff against Chronology-Core-mt.82 =============== Item was changed: ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') ----- localOffset: aDuration "Override the local time zone (for testing). This disables the #automaticTimezone: preference" + self localTimeZone: (FixedTimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO'). - self localTimeZone: (TimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO'). ! Item was added: + TimeZone subclass: #FixedTimeZone + instanceVariableNames: 'offset abbreviation name' + classVariableNames: '' + poolDictionaries: 'ChronologyConstants' + category: 'Chronology-Core'! + + !FixedTimeZone commentStamp: 'dtl 6/3/2023 00:26' prior: 0! + StaticTimeZone is a simple class to collect the information identifying a UTC time zone. It is typically used in unit tests to specify specific time zone offsets. + + offset - Duration - the time zone's offset from UTC + abbreviation - String - the abbreviated name for the time zone. + name - String - the name of the time zone. + + StaticTimeZone class >> #timeZones returns an array of the known time zones + StaticTimeZone class >> #default returns the default time zone (Greenwich Mean Time) + ! Item was added: + ----- Method: FixedTimeZone class>>allTimeZones (in category 'accessing') ----- + allTimeZones + + ^ self timeZones , self timeZonesDST! Item was added: + ----- Method: FixedTimeZone class>>default (in category 'accessing') ----- + default + "Answer the default time zone - GMT" + + ^ self timeZones detect: [ :tz | tz offset = Duration zero ]! Item was added: + ----- Method: FixedTimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- + offset: aDuration name: aName abbreviation: anAbbreviation + + ^ self new + offset: aDuration; + name: aName; + abbreviation: anAbbreviation; + yourself + ! Item was added: + ----- Method: FixedTimeZone class>>timeZones (in category 'accessing') ----- + timeZones + ^{ + self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. + self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. + self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'. + self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. + self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. + self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. + self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. + self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. + }! Item was added: + ----- Method: FixedTimeZone class>>timeZonesDST (in category 'accessing') ----- + timeZonesDST + ^{ + self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. + self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'. + self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. + self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. + self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. + self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. + }! Item was added: + ----- Method: FixedTimeZone>>abbreviation (in category 'accessing') ----- + abbreviation + + ^ abbreviation! Item was added: + ----- Method: FixedTimeZone>>abbreviation: (in category 'accessing') ----- + abbreviation: aString + + abbreviation := aString! Item was added: + ----- Method: FixedTimeZone>>name (in category 'accessing') ----- + name + + ^ name! Item was added: + ----- Method: FixedTimeZone>>name: (in category 'accessing') ----- + name: aString + + name := aString! Item was added: + ----- Method: FixedTimeZone>>offset: (in category 'accessing') ----- + offset: aDuration + + offset := aDuration + ! Item was added: + ----- Method: FixedTimeZone>>offsetAt: (in category 'accessing') ----- + offsetAt: dateAndTime + "A ConstantTimeZone has a constant offset, ignoring daylight savings time transitions" + + ^ offset + ! Item was added: + ----- Method: FixedTimeZone>>printOn: (in category 'private') ----- + printOn: aStream + + super printOn: aStream. + aStream + nextPut: $(; + nextPutAll: self abbreviation; + nextPut: $)! Item was changed: Object subclass: #TimeZone + instanceVariableNames: '' - instanceVariableNames: 'offset abbreviation name' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! + !TimeZone commentStamp: 'dtl 6/15/2023 22:27' prior: 0! + A TimeZone answers the UTC offset for a DateAndTime based on local rules for a geographic region. For each regional time zone, the UTC offset varies as a function of the DateAndTime, notably in support of daylight savings time changes. The UTC offset for a TimeZone also may change over time as local rules are updated for various regions and political jurisdictions. - !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0! - TimeZone is a simple class to colect the information identifying a UTC time zone. + Concrete subclasses are expected to implement UTC offset rules. The simple case of FixedTimeZone implements a time zone with constant offset, which is useful for unit test support.! - offset - Duration - the time zone's offset from UTC - abbreviation - String - the abbreviated name for the time zone. - name - String - the name of the time zone. - - TimeZone class >> #timeZones returns an array of the known time zones - TimeZone class >> #default returns the default time zone (Grenwich Mean Time) - ! Item was added: + ----- Method: TimeZone class>>allForOffset: (in category 'accessing') ----- + allForOffset: aDuration + + ^ self allTimeZones select: [:ea | ea offset = aDuration]! Item was added: + ----- Method: TimeZone class>>allTimeZones (in category 'accessing') ----- + allTimeZones + "Various concrete implementations may be available. These may include a + simple StaticTimeZone or e.g. the TZ-Olson time zone tables with daylight + savings time offset transitions." + + ^ self allSubclasses + inject: OrderedCollection new + into: [ :result :cls | + (cls class includesLocalSelector: #allTimeZones) + ifTrue: [result addAll: cls allTimeZones]. + result]. + ! Item was changed: ----- Method: TimeZone class>>default (in category 'accessing') ----- default "Answer the default time zone - GMT" + ^ FixedTimeZone default! - ^ self timeZones detect: [ :tz | tz offset = Duration zero ]! Item was removed: - ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- - offset: aDuration name: aName abbreviation: anAbbreviation - - ^ self new - offset: aDuration; - name: aName; - abbreviation: anAbbreviation; - yourself - ! Item was removed: - ----- Method: TimeZone class>>timeZones (in category 'accessing') ----- - timeZones - ^{ - self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. - self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. - self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'. - self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. - self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. - self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. - self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. - self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. - }! Item was removed: - ----- Method: TimeZone class>>timeZonesDST (in category 'accessing') ----- - timeZonesDST - ^{ - self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. - self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'. - self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. - self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. - self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. - self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. - }! Item was changed: ----- Method: TimeZone>>abbreviation (in category 'accessing') ----- abbreviation + ^ self subclassResponsibility! - ^ abbreviation! Item was removed: - ----- Method: TimeZone>>abbreviation: (in category 'accessing') ----- - abbreviation: aString - - abbreviation := aString! Item was changed: ----- Method: TimeZone>>name (in category 'accessing') ----- name + ^ self subclassResponsibility! - ^ name! Item was removed: - ----- Method: TimeZone>>name: (in category 'accessing') ----- - name: aString - - name := aString! Item was changed: ----- Method: TimeZone>>offset (in category 'accessing') ----- offset + "Answer the current offset" + ^ self offsetAt: DateAndTime now - ^ offset ! Item was removed: - ----- Method: TimeZone>>offset: (in category 'accessing') ----- - offset: aDuration - - offset := aDuration - ! Item was added: + ----- Method: TimeZone>>offsetAt: (in category 'accessing') ----- + offsetAt: dateAndTime + + ^ self subclassResponsibility + ! Item was removed: - ----- Method: TimeZone>>printOn: (in category 'private') ----- - printOn: aStream - - super printOn: aStream. - aStream - nextPut: $(; - nextPutAll: self abbreviation; - nextPut: $)! Item was changed: + (PackageInfo named: 'Chronology-Core') postscript: '"StaticTimeZone is now the concrete implementation of TimeZone" + + DateAndTime localTimeZone == TimeZone + ifTrue: [ | newInstance | + newInstance := StaticTimeZone + offset: DateAndTime localTimeZone offset + name: DateAndTime localTimeZone name + abbreviation: DateAndTime localTimeZone abbreviation. + DateAndTime localTimeZone: newInstance ]. + '! - (PackageInfo named: 'Chronology-Core') postscript: 'Smalltalk removeFromStartUpList: DateAndTime'!

3 2

The Trunk: Morphic-mt.2114.mcz
by commits＠source.squeak.org 20 Jun '23

20 Jun '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2114.mcz ==================== Summary ==================== Name: Morphic-mt.2114 Author: mt Time: 20 June 2023, 11:03:40.502968 am UUID: 17032d6e-abaf-fc40-8476-a6659b481ac4 Ancestors: Morphic-mt.2113 In tree widgets, fixes issue where you could not click on the blank area where the expand icon would be if there were children but if there are no children, the user expects selection update. =============== Diff against Morphic-mt.2113 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt + | clickedMorph selectors | + clickedMorph := self itemFromPoint: evt position. - | aMorph selectors | - aMorph := self itemFromPoint: evt position. evt yellowButtonPressed "First check for option (menu) click" ifTrue: [ (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ + clickedMorph == selectedMorph + ifFalse: [self setSelectedMorph: clickedMorph]]. - aMorph == selectedMorph - ifFalse: [self setSelectedMorph: aMorph]]. ^ self yellowButtonActivity: evt shiftPressed]. + clickedMorph ifNil: [^ super mouseDown: evt]. - aMorph ifNil: [^ super mouseDown: evt]. + ((clickedMorph inToggleArea: (clickedMorph point: evt position from: self)) + and: [clickedMorph canExpand]) + ifTrue: [ | priorSelection | + priorSelection := self selectedMorph. + (evt shiftPressed and: [clickedMorph canExpand and: [clickedMorph isExpanded not]]) + ifTrue: [self expandAllSafely: clickedMorph] + ifFalse: [self toggleExpandedState: clickedMorph event: evt]. + (priorSelection notNil and: [self selectedMorph isNil]) ifTrue: [ + self setProperty: #changeSelectionOnMouseUp toValue: true. + self setProperty: #selectedMorph toValue: clickedMorph]. + ^ self]. - (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) - ifTrue: [ | priorSelection | - priorSelection := self selectedMorph. - (evt shiftPressed and: [aMorph canExpand and: [aMorph isExpanded not]]) - ifTrue: [self expandAllSafely: aMorph] - ifFalse: [self toggleExpandedState: aMorph event: evt]. - (priorSelection notNil and: [self selectedMorph isNil]) ifTrue: [ - self setProperty: #changeSelectionOnMouseUp toValue: true. - self setProperty: #selectedMorph toValue: aMorph]. - ^ self]. PluggableListMorph highlightPreSelection ifTrue: [ + clickedMorph highlightedForMouseDown: true. + self setProperty: #highlightedMorph toValue: clickedMorph]. - aMorph highlightedForMouseDown: true. - self setProperty: #highlightedMorph toValue: aMorph]. self setProperty: #changeSelectionOnMouseUp toValue: true. selectors := Array with: #click: with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil]) with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!

1 0

The Trunk: Morphic-mt.2113.mcz
by commits＠source.squeak.org 20 Jun '23

20 Jun '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2113.mcz ==================== Summary ==================== Name: Morphic-mt.2113 Author: mt Time: 20 June 2023, 10:54:33.388968 am UUID: a533748d-dcbc-6f4b-b9ef-1e3e27c0e6b8 Ancestors: Morphic-mt.2112 For menu items' debug menu, make debug-action items more robust. =============== Diff against Morphic-mt.2112 =============== Item was changed: ----- Method: MenuItemMorph>>buildDebugMenu: (in category 'browse') ----- buildDebugMenu: aHandMorph | aMenu | aMenu := super buildDebugMenu: aHandMorph. aMenu addLine. aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector. + aMenu lastItem isEnabled: self selector notNil. aMenu add: 'debug action invocation' translated target: self action: #debugAction. + aMenu lastItem isEnabled: self selector notNil. ^ aMenu!

1 0

The Trunk: Protocols-ct.87.mcz
by commits＠source.squeak.org 20 Jun '23

20 Jun '23

Christoph Thiede uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-ct.87.mcz ==================== Summary ==================== Name: Protocols-ct.87 Author: ct Time: 19 June 2023, 4:39:48.046379 pm UUID: e694c77b-331f-3e46-ac97-5face4998266 Ancestors: Protocols-ct.86 Makes home icon in lexicon tools scale-factor-aware. =============== Diff against Protocols-ct.86 =============== Item was changed: ----- Method: Lexicon>>addSpecialButtonsTo:with: (in category 'toolbuilder') ----- addSpecialButtonsTo: buttonPanelSpec with: builder | homeCatBtnSpec menuBtnSpec mostGenericBtnSpec | homeCatBtnSpec := builder pluggableButtonSpec new model: self; action: #showHomeCategory; + label: MenuIcons smallHomeIcon scaleIconToDisplay; - label: MenuIcons smallHomeIcon; help: 'show this method''s home category'; yourself. menuBtnSpec := builder pluggableButtonSpec new model: self; action: #offerMenu; label: (ScriptingSystem formAtKey: #TinyMenu) asMorph; help: 'click here to get a menu with further options'; yourself. mostGenericBtnSpec :=builder pluggableButtonSpec new model: self; action: #chooseLimitClass; label: #limitClassString; help: 'Governs which classes'' methods should be shown. If this is the same as the viewed class, then only methods implemented in that class will be shown. If it is ProtoObject, then methods of all classes in the vocabulary will be shown.'. buttonPanelSpec children add: homeCatBtnSpec; addFirst: mostGenericBtnSpec; addFirst: menuBtnSpec.!

2 1

Review Request: allTimeZones.4.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 19 Jun '23

19 Jun '23

=============== Summary =============== Change Set: allTimeZones Date: 18 May 2023 Author: Christoph Thiede Adds convenient accessors to TimeZone class side for browsing and finding timezones. Also adds tests. =============== Diff =============== TimeZone class>>allForOffset: {accessing} · ct 5/15/2023 19:23 + allForOffset: aDuration + + ^ self allTimeZones select: [:ea | ea offset = aDuration] TimeZone class>>allTimeZones {accessing} · ct 5/14/2023 21:19 + allTimeZones + + ^ self timeZones , self timeZonesDST TimeZoneTest + ClassTestCase subclass: #TimeZoneTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Chronology-Tests' + + TimeZoneTest class + instanceVariableNames: '' + + "" TimeZoneTest>>testAllForOffset {tests} · ct 5/17/2023 20:29 + testAllForOffset + + self assert: ((self classToBeTested allForOffset: 0 hours) collect: #abbreviation) = #('UTC' 'GMT'). + self assert: (self classToBeTested allForOffset: -14 hours) isEmpty. TimeZoneTest>>testAllTimeZones {tests} · ct 5/17/2023 20:26 + testAllTimeZones + + self assert: self classToBeTested allTimeZones notEmpty. + self assert: (self classToBeTested allTimeZones anySatisfy: [:ea | ea offset = 2 hours]). --- Sent from Squeak Inbox Talk ["allTimeZones.4.cs"]

4 6

The Inbox: Chronology-Tests-dtl.33.mcz
by commits＠source.squeak.org 19 Jun '23

19 Jun '23

A new version of Chronology-Tests was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Tests-dtl.33.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.33 Author: dtl Time: 18 June 2023, 12:54:08.985243 pm UUID: cda186b6-d5ac-4a95-bc15-373c7a4a645b Ancestors: Chronology-Tests-dtl.32 Establish protocol for aTimeZone offsetAt: aDateAndTime. Let TimeZone be abstract and let FixedTimeZone implement the previous behavior with offset represented as a constant (no DST transition support). Other packages (e.g. TZ-Olson) may implement concrete TimeZone with DST support. Add FixedTimeZoneTest updated from proposad by Christoph Thiede on squeak-dev (Review Request: allTimeZones.4.cs, Thu, 18 May 2023 22:11:32 +0200) =============== Diff against Chronology-Tests-dtl.32 =============== Item was changed: ----- Method: DateAndTimeEpochTest>>setUp (in category 'running') ----- setUp localTimeZoneToRestore := DateAndTime localTimeZone. localTimeZonePreferenceToRestore := DateAndTime automaticTimezone. aDateAndTime := DateAndTime localTimeZone: TimeZone default; epoch. + aTimeZone := FixedTimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'. - aTimeZone := TimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'. aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 ! Item was changed: ----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'tests') ----- testPrintOn | ref ws | ref := '1901-01-01T00:00:00+00:00'. ws := '' writeStream. aDateAndTime printOn: ws. self assert: ws contents = ref. + ref := 'a ConstantTimeZone(ETZ)'. - ref := 'a TimeZone(ETZ)'. ws := '' writeStream. aTimeZone printOn: ws. self assert: ws contents = ref! Item was changed: ----- Method: DateAndTimeLeapTest>>testPrintOn (in category 'testing') ----- testPrintOn | ref ws | ref := '2004-02-29T13:33:00+02:00'. ws := '' writeStream. aDateAndTime printOn: ws. self assert: ws contents = ref. + ref := 'a ConstantTimeZone(UTC)'. - ref := 'a TimeZone(UTC)'. ws := '' writeStream. aTimeZone printOn: ws. self assert: ws contents = ref ! Item was changed: ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- testMakeUTC "Equal dates should compare equal regardless of which TimeZone they are created in." | priorTz priorPreference march31stLocal march31stOcean | priorTz := DateAndTime localTimeZone. priorPreference := DateAndTime automaticTimezone. [DateAndTime + localTimeZone: (FixedTimeZone - localTimeZone: (TimeZone offset: 9 hours name: 'Early Test Countries' abbreviation: 'Test Ocean Early'). march31stLocal := Date year: 2016 month: 3 day: 31. march31stLocal start: (march31stLocal start asLocalAt: DateAndTime localTimeZone offset). DateAndTime + localTimeZone: (FixedTimeZone - localTimeZone: (TimeZone offset: -9 hours name: 'Late Test Countries' abbreviation: 'Test Ocean Late'). march31stOcean := Date year: 2016 month: 3 day: 31. march31stOcean start: (march31stOcean start asLocalAt: DateAndTime localTimeZone offset).] ensure: [DateAndTime localTimeZone: priorTz. DateAndTime automaticTimezone: priorPreference]. self deny: march31stLocal = march31stOcean; assert: march31stOcean > march31stLocal. self assert: march31stLocal makeUTC = march31stOcean makeUTC; deny: march31stOcean makeUTC > march31stLocal makeUTC; deny: march31stOcean makeUTC < march31stLocal makeUTC.! Item was added: + ClassTestCase subclass: #FixedTimeZoneTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Chronology-Tests'! Item was added: + ----- Method: FixedTimeZoneTest>>testAllForOffset (in category 'tests') ----- + testAllForOffset + + self assert: ((self classToBeTested allForOffset: 0 hours) collect: #abbreviation) = #('UTC' 'GMT'). + self assert: (self classToBeTested allForOffset: -14 hours) isEmpty.! Item was added: + ----- Method: FixedTimeZoneTest>>testAllTimeZones (in category 'tests') ----- + testAllTimeZones + + self assert: self classToBeTested allTimeZones notEmpty. + self assert: (self classToBeTested allTimeZones anySatisfy: [:ea | ea offset = 2 hours]).! Item was changed: ----- Method: ScheduleTest>>setUp (in category 'running') ----- setUp "Schedule is a type of Timespan representing repeated occurences of the same event. The beginning of the schedule is the first occurrence of the event. A schedule maintains an array of Durations. Each durations specify the offset to the next scheduled each. The duration of each occurence of the event is not specified. Nor are any other attributes such as name" restoredTimeZone := DateAndTime localTimeZone. localTimeZonePreferenceToRestore := DateAndTime automaticTimezone. + DateAndTime localTimeZone: (FixedTimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). - DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). "Create aSchedule with an event scheduled for 8:30pm every Saturday and Sunday for the year 2003. " "Create the first event occurring on the first Saturday at 8:30 pm: 1/4/03" firstEvent := DateAndTime year: 2003 month: 1 day: 4 hour: 20 minute: 30. "Create a schedule for one year starting with the first event" aSchedule := Schedule starting: firstEvent duration: 52 weeks. "Schedule the recurring events by scheduling the time in between each one. One day for Sat-Sun. 6 days for Sun-Sat" aSchedule schedule: { Duration days: 1. Duration days: 6 }. ! Item was changed: ----- Method: YearMonthWeekTest>>setUp (in category 'running') ----- setUp restoredStartDay := Week startDay. restoredTimeZone := DateAndTime localTimeZone. localTimeZonePreferenceToRestore := DateAndTime automaticTimezone. Week startDay: #Sunday. + DateAndTime localTimeZone: (FixedTimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). - DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). !

1 0

FFI: FFI-Kernel-mt.231.mcz
by commits＠source.squeak.org 16 Jun '23

16 Jun '23

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.231.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.231 Author: mt Time: 16 June 2023, 4:39:58.761813 pm UUID: 321ca604-4a55-a64b-bcd6-2643c59bf71a Ancestors: FFI-Kernel-mt.230 Revise FFI-Kernel-eem.227 by using a simple mutex to make #structTypeNamed: thread-safe. Note that there is still the preference #useTypePool to speed up calls to #externalType. This is only slightly related to type-safety as it introduces strong references even for types not used in any call-out signature. Also note that it is not problematic if two subsequent calls à la "MyStruct new" work with different temporary type objects as long as their information (e.g., byteAlignment, compiledSpec) is the same. =============== Diff against FFI-Kernel-mt.230 =============== Item was changed: ExternalObject subclass: #ExternalStructure instanceVariableNames: '' classVariableNames: 'LogAccessorSourceCode' poolDictionaries: 'ExternalTypePool FFIConstants' category: 'FFI-Kernel'! ExternalStructure class + instanceVariableNames: 'compiledSpec byteAlignment'! - instanceVariableNames: 'compiledSpec byteAlignment externalType'! !ExternalStructure commentStamp: 'eem 6/26/2019 15:26' prior: 0! An ExternalStructure is for representing external data that is - either a structure composed of different fields (a struct of C language) - or an alias for another type (like a typedef of C language) It reserves enough bytes of data for representing all the fields. The data is stored into the handle instance variable which can be of two different types: - ExternalAddress If the handle is an external address then the object described does not reside in the Smalltalk object memory. - ByteArray If the handle is a byte array then the object described resides in Smalltalk memory. Instance Variables (class side) byteAlignment: <Integer> compiledSpec: <WordArray> byteAlignment - the required alignment for the structure compiledSpec - the bit-field definiton of the structure in the ExternalType encoding understood by the VM's FFI call marshalling machinery. A specific structure is defined by subclassing ExternalStructure and specifying its #fields via a class side method. For example if we define a subclass: ExternalStructure subclass: #StructExample instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'garbage'. Then declare the fields like this: StructExample class compile: 'fields ^#( (name ''char*'') (color ''ulong'') )' classified: 'garbage'. It means that this type is composed of two different fields: - a string (accessed thru the field #name) - and an unsigned 32bit integer (accessed thru the field #color). It represents the following C type: struct StructExample {char *name; uint32_t color; }; The accessors for those fields can be generated automatically like this: StructExample defineFields. As can be verified in a Browser: StructExample browse. We see that name and color fields are stored sequentially in different zones of data. The total size of the structure can be verified with: StructExample byteSize = (Smalltalk wordSize + 4). An ExternalStructure can also be used for defining an alias. The fields definition must contain only 2 elements: an eventual accessor (or nil) and the type. For example, We can define a machine dependent 'unsigned long' like this: ExternalStructure subclass: #UnsignedLong instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'garbage'. Then set the fields like this: UnsignedLong class compile: 'fields ^(Smalltalk wordSize=4 or: [Smalltalk platformName=''Win64'']) ifTrue: [#(nil ''ulong'')] ifFalse: [#(nil ''ulonglong'')]' classified: 'garbage'. And verify the size on current platform: UnsignedLong byteSize. Then, the class names 'UnsignedLong' and 'StructExamples' acts as a type specification. They can be used for composing other types, and for defining prototype of external functions: LibraryExample>>initMyStruct: aStructExample name: name color: anInteger <cdecl: void 'init_my_struct'( StructExample * char * UnsignedLong )> self externalCallFailed ! ExternalStructure class + instanceVariableNames: 'compiledSpec byteAlignment'! - instanceVariableNames: 'compiledSpec byteAlignment externalType'! Item was removed: - ----- Method: ExternalStructure class>>addSelectorSilently:withMethod: (in category 'accessing method dictionary') ----- - addSelectorSilently: selector withMethod: compiledMethod - "Override to void the strong reference to the externalType" - self voidExternalType. - ^super addSelectorSilently: selector withMethod: compiledMethod! Item was changed: ----- Method: ExternalStructure class>>externalType (in category 'external type') ----- externalType + "Return an external type describing the receiver as a structure" + ^ExternalType structTypeNamed: self name! - "Answer an external type describing the receiver as a structure. - Keep a strong reference to it so that it doesn't get garbage collected - from StructTypes immediately." - ^externalType := ExternalType structTypeNamed: self name! Item was removed: - ----- Method: ExternalStructure class>>removeSelector: (in category 'accessing method dictionary') ----- - removeSelector: selector - "Override to void the strong reference to the externalType" - self voidExternalType. - ^super removeSelector: selector! Item was removed: - ----- Method: ExternalStructure class>>voidExternalType (in category 'private') ----- - voidExternalType - externalType := nil. - ExternalType voidStructTypeFor: self! Item was changed: Object subclass: #ExternalType instanceVariableNames: 'compiledSpec referentClass referencedType byteAlignment arrayClass' + classVariableNames: 'ArrayTypes AtomicTypeCodes AtomicTypes ExtraTypeChecks StructTypes StructTypesLock UseArrayClasses UseTypePool' - classVariableNames: 'ArrayTypes AtomicTypeCodes AtomicTypes ExtraTypeChecks StructTypes UseArrayClasses UseTypePool' poolDictionaries: 'ExternalTypePool FFIConstants' category: 'FFI-Kernel'! !ExternalType commentStamp: 'mt 6/5/2020 18:25' prior: 0! An external type represents the type of external objects. Instance variables: compiledSpec <WordArray> Compiled specification of the external type referentClass <Behavior | nil> Class type of argument required referencedType <ExternalType> Associated (non)pointer type with the receiver byteAlignment <Integer | nil> The desired alignment for a field of the external type within a structure. If nil it has yet to be computed. Compiled Spec: The compiled spec defines the type in terms which are understood by the VM. Each word is defined as: bits 0...15 - byte size of the entity bit 16 - structure flag (FFIFlagStructure) This flag is set if the following words define a structure bit 17 - pointer flag (FFIFlagPointer) This flag is set if the entity represents a pointer to another object bit 18 - atomic flag (FFIFlagAtomic) This flag is set if the entity represents an atomic type. If the flag is set the atomic type bits are valid. bits 19...23 - unused bits 24...27 - atomic type (FFITypeVoid ... FFITypeDoubleFloat) bits 28...31 - unused Note that all combinations of the flags FFIFlagPointer, FFIFlagAtomic, and FFIFlagStructure are invalid, EXCEPT from the following: FFIFlagPointer + FFIFlagAtomic: This defines a pointer to an atomic type (e.g., 'char*', 'int*'). The actual atomic type is represented in the atomic type bits. FFIFlagPointer + FFIFlagStructure: This defines a structure which is a typedef of a pointer type as in typedef void* VoidPointer; typedef Pixmap* PixmapPtr; It requires a byte size of four or eight (e.g. a 32-bit or 64-bit pointer) to work correctly. [Note: Other combinations may be allowed in the future] ! Item was changed: ----- Method: ExternalType class>>newTypeNamed: (in category 'instance creation') ----- newTypeNamed: aTypeName + "Create a new struct type or array type. Not needed for atomic types; see #initializeAtomicTypes." - "Create a new struct type or array type. Not needed for atomic types; see #initializeDefaultTypes." | structClass arraySpec | self assert: [aTypeName last ~~ $*] description: 'Pointer type will be created automatically'. self assert: [aTypeName first ~~ $*] description: 'Non-pointer type for alias-to-pointer types will be created automatically'. aTypeName last == $] ifTrue: [ "array type, e.g., char[50]" arraySpec := self parseArrayTypeName: aTypeName. arraySpec second ifNil: [arraySpec at: 2 put: (self newTypeNamed: arraySpec first)]. ^ self newTypeForContentType: arraySpec second size: arraySpec third]. structClass := (self environment classNamed: aTypeName) ifNotNil: [:class | (class includesBehavior: ExternalStructure) ifTrue: [class]]. ^ (structClass isNil or: [structClass isSkipped "i.e., not yet ready, see ExternalTypeAlias"]) ifTrue: [self newTypeForUnknownNamed: aTypeName] ifFalse: [self newTypeForStructureClass: structClass]! Item was changed: ----- Method: ExternalType class>>structTypeNamed: (in category 'instance lookup') ----- structTypeNamed: typeName + "Thread-safe. Answers the external type for the struct named typeName. If there is no type yet, create a new one but only if typeName can be matched to an existing class in the system already. If you still need a type even if there is no such class present, use #newTypeNamed: to create a type with an unknown referent class." - "Answers the external type for the struct named typeName. If there is no type yet, create a new one but only if typeName can be matched to an existing class in the system already. If you still need a type even if there is no such class present, use #newTypeNamed: to create a type with an unknown referent class." + ^ (StructTypes at: typeName ifAbsent: [nil]) ifNil: [ + (StructTypesLock ifNil: [StructTypesLock := Mutex new]) + critical: [ "Make temporary type creation thread-safe for operations such as 'MyStruct new' called from different processes. Note that if you need better performance and/or strong type references, consider using that type either in a call-out signature (see ExternalLibraryFunction) or enable the preference #useTypePool." + (StructTypes at: typeName ifAbsent: [nil]) ifNil: [ + "Create struct types for existing struct classes on-the-fly." + StructTypes removeKey: typeName ifAbsent: []. + (self environment classNamed: typeName) + ifNotNil: [:cls | (cls includesBehavior: ExternalStructure) ifTrue: [ + self newTypeNamed: typeName]]] ]]! - ^ (StructTypes at: typeName ifAbsent: [nil]) - ifNil: [ "Create struct types for existing struct classes on-the-fly." - StructTypes removeKey: typeName ifAbsent: []. - (self environment classNamed: typeName) - ifNotNil: [:cls | (cls includesBehavior: ExternalStructure) ifTrue: [ - self newTypeNamed: typeName]]]! Item was changed: ----- Method: ExternalType class>>typeNamed: (in category 'instance lookup') ----- typeNamed: typeName + "Thread-safe. Answer a type object for the given typeName or nil if that name cannot be a type (yet). See commentary in #structTypeNamed:. + Supports pointer-type lookup for both atomic and structure types. - "Supports pointer-type lookup for both atomic and structure types. Examples: 'long', 'long*', 'long *' or 'MyStruct', 'MyStruct*', 'MyStruct *', 'IntPtr', '*IntPtr' " | isPointerType isNonPointerType isArrayType actualTypeName type | isArrayType := false. isNonPointerType := false. actualTypeName := typeName copyWithoutAll: ' '. (isPointerType := actualTypeName last == $*) "e.g. MyStruct*" ifTrue: [actualTypeName := actualTypeName allButLast]. actualTypeName last == $) "e.g. (char[])* -- pointer type for array type" ifTrue: [actualTypeName := (actualTypeName copyFrom: 2 to: actualTypeName size - 1)]. (isNonPointerType := actualTypeName first == $*) "e.g. *DoublePtr" ifTrue: [actualTypeName := actualTypeName allButFirst]. (isArrayType := actualTypeName last == $]) ifTrue: [ type := self arrayTypeNamed: actualTypeName ] ifFalse: [ (Symbol lookup: actualTypeName) ifNotNil: [:sym | actualTypeName := sym]. type := (self atomicTypeNamed: actualTypeName) ifNil: [self structTypeNamed: actualTypeName]]. ^ type ifNotNil: [ isPointerType ifTrue: [type asPointerType "e.g. int* MyStruct* "] ifFalse: [isNonPointerType ifTrue: [type asNonPointerType "e.g. *IntPtr *MyStructPtr "] ifFalse: [type "e.g. int IntPtr MyStruct MyStructPtr "]]]! Item was removed: - ----- Method: ExternalType class>>voidStructTypeFor: (in category 'housekeeping') ----- - voidStructTypeFor: anExternalStructureClass - (StructTypes associationAt: anExternalStructureClass name ifAbsent: [^self]) value: nil!

1 0

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