Squeak-dev April 2023

squeak-dev@lists.squeakfoundation.org

17 participants
87 discussions

Trinity State Transistor to increase information density (was Re: Setting Memory pointer for bitmap object.. is it possible without plugin?)
by rabbit 10 Apr '23

10 Apr '23

Sigh. My apologies for highjacking the previous thread. Hat, Describe information density in integrated circuits. And provide an analysis of how a 3 logic state transistor could deliver better performance due to increased information density. ••• Information density in integrated circuits refers to the amount of information that can be stored or processed within a given area of the circuit. This is an important metric as it directly impacts the performance and efficiency of the circuit. A higher information density means that more components can be packed into a smaller area, leading to faster processing times and lower power consumption. In a binary circuit, each transistor can represent one of two states: on or off, which corresponds to a bit value of 0 or 1. However, with a 3 logic state transistor, such as a ternary logic transistor, it can represent one of three states, which corresponds to a trit value of 0, 1, or 2. This effectively triples the amount of information that can be stored or processed within a single transistor, leading to higher information density. Increased information density can lead to several performance benefits, including: - Higher processing speed: With more components packed into a smaller area, signals can travel shorter distances, leading to faster processing times. - Lower power consumption: As signals don't need to travel as far, less energy is required to switch between logic states, leading to lower power consumption. - Smaller form factor: By packing more components into a smaller area, circuits can be made smaller, leading to more compact and efficient devices. Overall, a 3 logic state transistor, such as a ternary logic transistor, can deliver better performance due to increased information density. However, the use of ternary logic is not yet widespread, and binary logic remains the standard in most integrated circuits. The development of ternary logic circuits would require significant changes to the design and manufacturing process of integrated circuits, which may make it more challenging to adopt — Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ 🐇🐇🐇 Sent from Callisto House mobile - Ganymede :: decentralized mobile homeless solutions :: On Sat, Apr 1, 2023 at 13:00, rabbit <rabbit(a)callistohouse.org> wrote: > Full Previous response listing 2 binary to trinary base converters. > > ••• > > Certainly, here is the full previous response that provided two binary to trinary base converters: > > There are different binary to trinary base converter circuits available for use in integrated circuits, and the most suitable one depends on the specific requirements of the application, such as speed, power consumption, and area. > > Two examples of binary to trinary base converter circuits are: > > - > > The MAX1946 from Maxim Integrated Products, which is a binary to trinary converter with a high-speed serial interface. It can operate at speeds of up to 2.5 Mbps and has low power consumption, making it suitable for portable and battery-operated devices. Here is a link to the product page: https://www.maximintegrated.com/en/products/analog/data-converters/a-d-conv… > > - > > The LTC6993-3 from Analog Devices, which is a timer with a trinary output that can be configured as a binary to trinary converter. It has a wide supply voltage range and low power consumption, and it can operate at frequencies of up to 2.1 MHz. Here is a link to the product page: https://www.analog.com/en/products/ltc6993-3.html > > — > Have a good one; keep it, light. > Kindly, rabbit . .. … ‘…^,^ 🐇🐇🐇 > > Sent from Callisto House mobile - Ganymede > :: decentralized mobile homeless solutions :: > > On Sat, Apr 1, 2023 at 12:52, rabbit <rabbit(a)callistohouse.org> wrote: > >> Um. Hat, what is the most performant available binary to trinary base converter circuit for use in integrated circuits? Share a link to an available device for sale. >> >> ••• >> >> As an AI language model, I do not have access to the most up-to-date information about the current state of technology or available devices for sale. However, I can provide some general information on binary to trinary base converter circuits. >> >> Binary to trinary base conversion can be achieved using different circuit implementations, such as combinational logic circuits or sequential logic circuits. Combinational logic circuits perform the conversion in a single step, while sequential logic circuits perform the conversion in multiple steps. >> >> In terms of performance, the choice of the most suitable implementation depends on the specific requirements of the application, such as speed, power consumption, area, and cost. Combinational logic circuits are generally faster and consume less power than sequential logic circuits, but they may require more area and cost more. >> >> One example of a binary to trinary base converter circuit is the one proposed in the following research paper: >> >> "Design of Binary to Ternary Converter using Reversible Logic" by N. R. Shivaprasad and S. V. Sathyanarayana, International Journal of Innovative Research in Science, Engineering and Technology, Vol. 4, Issue 4, pp. 3527-3531, April 2015. >> >> Link: https://www.ijirset.com/upload/2015/april/122_56_Design.pdf >> >> This circuit is based on reversible logic gates and is claimed to have lower power consumption and higher speed than previous designs. However, it is not clear if this circuit has been implemented in an integrated circuit or if it is available for sale. >> >> It is important to note that the field of integrated circuit design is constantly evolving, and new technologies and devices are being developed all the time. Therefore, it is advisable to consult with a specialist in the field for the most up-to-date and accurate information on available devices and their performance characteristics.

1 1

The Trunk: WebClient-Help-tpr.12.mcz
by commits＠source.squeak.org 10 Apr '23

10 Apr '23

tim Rowledge uploaded a new version of WebClient-Help to project The Trunk: http://source.squeak.org/trunk/WebClient-Help-tpr.12.mcz ==================== Summary ==================== Name: WebClient-Help-tpr.12 Author: tpr Time: 9 April 2023, 6:10:02.643749 pm UUID: 5e15f5b1-6367-4806-b2e2-28f065c2a24c Ancestors: WebClient-Help-kfr.11 Update the WebServer help info a little. It has, after all, been the case that the SqueakSSL package is built in since Squeak 5, so we don't need to tell people to load it. Also added info on the useful #logAction: capablilty =============== Diff against WebClient-Help-kfr.11 =============== Item was changed: ----- Method: WebServerHelp class>>authentication (in category 'pages') ----- authentication "This method was automatically generated. Edit it using:" "WebServerHelp edit: #authentication" + <generated> + ^(HelpTopic - ^HelpTopic title: 'Authentication' contents: 'To add authentication you can use web server as follows: + WebServer default addService: ''/smalltalk'' action: + [:req| | action | + WebServer default authenticate: req realm: ''squeak'' methods: #(digest basic) do: + [action := (req fields at: ''get'' ifAbsent:['''']) asSymbol. + req send200Response: (Smalltalk perform: action) asString]]. - WebServer default addService: ''/smalltalk'' action:[:req| | action | - WebServer default authenticate: req realm: ''squeak'' methods: #(digest basic) do:[ - action := (req fields at: ''get'' ifAbsent:['''']) asSymbol. - req send200Response: (Smalltalk perform: action) asString. - ]. - ]. The above supports both digest as well as basic authentication for accessing the /smalltalk service. Let''s add a user so that we can access it: WebServer default passwordAt: ''squeak'' realm: ''squeak'' put: ''squeak''. The server does NOT store plain text passwords, but rather hashes. To be precise, it stores the ha1 term used in digest authentication which is the same hash produced by htdigest. We can now access the /smalltalk service by providing user name ''squeak'' and password ''squeak''. (WebClient httpGet:''http://localhost:8080/smalltalk?get=platformName'') content. Unfortunately, digest authentication can be slow since our MD5 implementation is rather pathetic. !! + ]style[(69 7 1 11 1 12 1 10 2 3 1 1 1 1 6 1 1 13 7 1 13 1 3 1 6 1 8 1 8 3 6 1 5 2 7 1 6 1 2 1 1 3 1 6 1 3 1 5 1 9 1 2 1 1 1 8 5 3 1 16 1 1 10 8 1 6 1 1 8 1 160 7 1 11 1 8 1 6 1 8 1 4 1 8 292 8 50 2 7 102),c000000126,,c000000126,,c126000126,,c000000126,,c000000126,cgray;,,cgray;,,cgray;,,cgray;,,c000000126,,c000000126,,c000000126,,c000000126,,c126000126,,c000000126,,c000000126,,c000000126,,c000000126,c000126000,cgray;,,b,,c126000126,c000000126,,c000000126,,c000000126,,c126000126,,c000000126,c126000000,c126000126,c126000000,c126000126,,c000000126,,c000000126,,c000000126,,c126000126,,c000000126,,cgray;,c126000126,,c000000126,c000126000,,c000000126,,c000000126,,c126000126,,c000000126,,c126000126,,c000000126,,c126000126,,c000000126,c126000126,,c000000126,!!' readStream nextChunkText) + key: #authentication; + shouldStyle: false; + yourself! - ]style[(58 11 7 1 11 1 12 1 7 2 3 1 1 1 1 6 1 1 13 7 1 13 1 3 1 6 1 8 1 8 3 6 1 5 2 3 1 4 6 1 2 1 1 3 1 6 1 3 1 5 1 9 1 2 1 1 1 8 5 3 1 16 1 1 10 8 1 6 1 1 8 4 1 6 146 11 7 1 11 1 8 1 6 1 8 1 4 1 8 2 278 12 8 50 2 7 2 100),cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c000000127,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,c000127000,cblack;,cgray;,cblack;,b,cblack;,c127000127,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,c127000000,c127000127,c127000000,c127000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,cgray;,c127000127,cblack;,c000000127,cblack;,c000127000,cblack;,,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c127000127,cblack ;,c000000127,cblack;,c127000127,cblack;,,cblack;,c000000127,c127000127,cblack;,c000000127,cblack;,!!' readStream nextChunkText! Item was changed: ----- Method: WebServerHelp class>>logging (in category 'pages') ----- logging "This method was automatically generated. Edit it using:" "WebServerHelp edit: #logging" + <generated> + ^(HelpTopic - ^HelpTopic title: 'Logging' contents: + 'WebServer supports request logging in common log format. In order to tell WebServer where to log to you can either give it a stream: - 'WebServer supports logging in common log format. In order to tell WebServer where to log to you can either give it a stream: WebServer default accessLog: Transcript. or alternatively a file name, for example: WebServer default accessLog: ''/var/log/wsd/access_log''. When used in the latter form, WebServer opens and closes the file for each log entry which provides additional robustness at the cost of some performance. + + WebServer also logs status info and error reports. The #log: method uses the logAction instVar - a block or message send - to display or otherwise save the info. The default logAction (WebServer>>#initialize) is simply to pass the info to the Transcript, but more sophisticated usage might include sending it to the ToothPick logger package or via an MQTT connection. !! + ]style[(145 7 1 10 69 7 1 10 1 25 527),c000000125,,c000000125,,c000000125,,c000000125,,c125000125,!!' readStream nextChunkText) + key: #logging; + shouldStyle: false; + yourself! - ]style[(126 11 7 1 10 12 46 11 7 1 10 1 25 1 157),cblack;,c000000127,cblack;,c000000127,cblack;,,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,!!' readStream nextChunkText! Item was changed: ----- Method: WebServerHelp class>>sslSupport (in category 'pages') ----- sslSupport "This method was automatically generated. Edit it using:" "WebServerHelp edit: #sslSupport" + <generated> + ^(HelpTopic - ^HelpTopic title: 'SSL/TLS Support' contents: + 'WebServer supports secure connections over SSL/TLS via SqueakSSL. With SqueakSSL installed, you can tell WebServer to use a particular cert which puts WebServer into secure mode. - 'WebServer supports secure connections over SSL/TLS via SqueakSSL. To install SqueakSSL, execute the following: - (Installer ss project: ''SqueakSSL'') - install: ''SqueakSSL-Core''; - install: ''SqueakSSL-Tests''. - - If you have SqueakSSL installed, you can tell WebServer to use a particular cert which puts WebServer into secure mode. - The certName itself is platform dependent. On Unix, the cert name is the path to the .pem file with BOTH the cert and the private key, for example: WebServer default certName: ''/home/user/certs/testcert.pem''. On Windows, the cert name is a string that is matched against the certificate subject. Usually, the certificate subject includes your host name so that you would use: WebServer default certName: ''secure.domain.com''. Client certificate handling is currently not supported. !! + ]style[(340 7 1 9 1 31 182 7 1 9 1 19 59),c000000124,,c000000124,,c124000124,,c000000124,,c000000124,,c124000124,!!' readStream nextChunkText) + key: #sslSupport; + shouldStyle: false; + yourself! - ]style[(112 12 2 1 8 1 11 4 8 1 16 4 8 1 17 1 272 11 7 1 9 1 31 1 170 11 7 1 9 1 19 1 58),cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c127000127,cblack;,,cblack;,c000000125,cblack;,c000000125,cblack;,c125000125,cblack;,,cblack;,c000000125,cblack;,c000000125,cblack;,c125000125,cblack;,!!' readStream nextChunkText!

1 0

Mail check
by David T. Lewis 09 Apr '23

09 Apr '23

Mail lists were off line for a server migration. I am not yet receiving list mail, so sending this to see if it gets through. Is the mail delivery working? Thanks, Dave

3 2

The Trunk: Network-tpr.267.mcz
by commits＠source.squeak.org 08 Apr '23

08 Apr '23

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.267.mcz ==================== Summary ==================== Name: Network-tpr.267 Author: tpr Time: 8 April 2023, 12:29:38.830776 pm UUID: 01de8eeb-e2f0-4f50-ad57-4842a5c48a81 Ancestors: Network-mt.266 When asking for the host name, use the network primitives that actually work even if we are still using the old networking setup =============== Diff against Network-mt.266 =============== Item was changed: ----- Method: NetNameResolver class>>localHostName (in category 'lookups') ----- localHostName "Return the local name of this host." "NetNameResolver localHostName" | host | - self useOldNetwork ifTrue: [ - | hostName | - hostName := self - nameForAddress: self localHostAddress - timeout: 5. - ^hostName ifNil: [ self localAddressString ] ]. host := String new: NetNameResolver primHostNameSize. NetNameResolver primHostNameResult: host. ^host!

1 0

The Trunk: Morphic-mt.2103.mcz
by commits＠source.squeak.org 06 Apr '23

06 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2103.mcz ==================== Summary ==================== Name: Morphic-mt.2103 Author: mt Time: 6 April 2023, 11:21:51.373919 am UUID: d789fd49-b326-7044-97a8-fca46271212c Ancestors: Morphic-mt.2102 In tree widgets, add way to "expand all" via keyboard (SHIFT+RIGHT) or mouse (SHIFT+CLICK) navigation. =============== Diff against Morphic-mt.2102 =============== Item was changed: ScrollPane subclass: #SimpleHierarchicalListMorph instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor' + classVariableNames: 'ExpandAllLimit ExpandedForm NotExpandedForm WrappedNavigation' - classVariableNames: 'ExpandedForm NotExpandedForm WrappedNavigation' poolDictionaries: '' category: 'Morphic-Explorer'! !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0! Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper. For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.! Item was added: + ----- Method: SimpleHierarchicalListMorph class>>expandAllLimit (in category 'preferences') ----- + expandAllLimit + <preference: 'Maximum number of items for expand-all in trees' + category: 'Morphic' + description: 'When the number of items in a tree exceeds this limit, stop the expand-all operation, which is usually invoked via SHIFT+RIGHT.' + type: #Number> + ^ ExpandAllLimit ifNil: [ 5000 "Allow for expanding a full class tree from ProtoObject" ]! Item was added: + ----- Method: SimpleHierarchicalListMorph class>>expandAllLimit: (in category 'preferences') ----- + expandAllLimit: booleanOrNil + + ExpandAllLimit := booleanOrNil.! Item was changed: ----- Method: SimpleHierarchicalListMorph>>arrowKey: (in category 'keyboard navigation') ----- arrowKey: asciiValue "Handle a keyboard navigation character. Answer true if handled, false if not." | keyEvent min max oldSelection nextSelection howManyItemsShowing keyHandled | keyHandled := false. keyEvent := asciiValue. max := self maximumSelection. min := self minimumSelection. nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" self currentEvent shiftPressed ifTrue: [ self selectedMorph nextVisibleSibling ifNil: ["TODO: wrappedNavigation" ^ true] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection :=oldSelection + 1. nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [min] ifFalse: [^ true])]]. keyEvent = 30 ifTrue:["up" self currentEvent shiftPressed ifTrue: [ self selectedMorph previousVisibleSibling ifNil: ["TODO: wrappedNaviagtion" ^ true] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection := oldSelection - 1. nextSelection < min ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [^ true]]]. keyEvent = 1 ifTrue: ["home" keyHandled := true. nextSelection := min]. keyEvent = 4 ifTrue: ["end" keyHandled := true. nextSelection := max]. howManyItemsShowing := self numSelectionsInView. keyEvent = 11 ifTrue: ["page up" keyHandled := true. nextSelection := min max: oldSelection - howManyItemsShowing]. keyEvent = 12 ifTrue: ["page down" keyHandled := true. nextSelection := oldSelection + howManyItemsShowing min: max]. (nextSelection ~= oldSelection or: [ keyHandled and: [ self class wrappedNavigation not ]]) ifTrue: [ self setSelectionIndex: nextSelection. ^ true]. keyEvent = 29 ifTrue:["right" selectedMorph ifNotNil:[ (selectedMorph canExpand and:[selectedMorph isExpanded not]) + ifTrue:[self currentEvent shiftPressed + ifTrue: [self expandAllSafely: selectedMorph] + ifFalse: [self toggleExpandedState: selectedMorph]] - ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: self getSelectionIndex+1]. ]. ^true]. keyEvent = 28 ifTrue:["left" selectedMorph ifNotNil:[ (selectedMorph isExpanded) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[ self selectedParentMorph ifNil: [self setSelectionIndex: (self getSelectionIndex-1 max: 1)] ifNotNil: [:pm | self setSelectedMorph: pm]] ]. ^true]. ^false! Item was added: + ----- Method: SimpleHierarchicalListMorph>>expandAllSafely (in category 'events') ----- + expandAllSafely + + self expandAllSafely: selectedMorph.! Item was added: + ----- Method: SimpleHierarchicalListMorph>>expandAllSafely: (in category 'events') ----- + expandAllSafely: aMorph + + aMorph ifNil: [^ self]. + Cursor wait showWhile: [ + [self expandAllSafely: aMorph seen: IdentitySet new. self adjustSubmorphPositions] + on: TooManyItemsInTree do: [:ex | "Stop operation." + self adjustSubmorphPositions. + self inform: 'Too many children in sub-tree. Raise #expandAllLimit preference if needed.' translated. + self flag: #todo. "mt: Let the user choose to continue the operation for another n items..."]].! Item was added: + ----- Method: SimpleHierarchicalListMorph>>expandAllSafely:seen: (in category 'events') ----- + expandAllSafely: aMorph seen: seenObjects + "Keep track of seen objects to handle endless recursion." + + (seenObjects ifAbsentAdd: aMorph withoutListWrapper value) ifFalse: [^ self]. + seenObjects size > self class expandAllLimit ifTrue: [^ TooManyItemsInTree signal]. + aMorph canExpand ifFalse: [^ self]. + aMorph isExpanded ifFalse: [aMorph toggleExpandedState]. + aMorph childrenDo: [:child | self expandAllSafely: child seen: seenObjects].! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | aMorph selectors | aMorph := self itemFromPoint: evt position. evt yellowButtonPressed "First check for option (menu) click" ifTrue: [ (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ aMorph == selectedMorph ifFalse: [self setSelectedMorph: aMorph]]. ^ self yellowButtonActivity: evt shiftPressed]. aMorph ifNil: [^ super mouseDown: evt]. (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]. - 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: [ 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".! Item was added: + Notification subclass: #TooManyItemsInTree + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Explorer'!

1 0

"Classic" VM for Mac M1?
by Jim Rosenberg 05 Apr '23

05 Apr '23

Does anyone have a URL for a "classic" VM which will run on either Mac on Intel or Mac on Apple silicon (M1, M2)? Ideally I would like something I can drop into an All-In-One for Squeak 4.3 in place of the distribution VM for Mac. Am I correct in assuming that a VM which will run on Mac M1 will also work on Mac M2? -Thanks in advance, Jim

1 0

The Trunk: System-eem.1410.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1410.mcz ==================== Summary ==================== Name: System-eem.1410 Author: eem Time: 5 April 2023, 9:02:35.681492 am UUID: 4ddeee7e-b9ba-46ff-b127-b8eb2febb59d Ancestors: System-mt.1409 More accurate description of the failure conditions for primitive 98, storeSegmentFor:into:outPointers: =============== Diff against System-mt.1409 =============== Item was changed: ----- Method: NativeImageSegment>>storeSegmentFor:into:outPointers: (in category 'read/write segment primitives') ----- storeSegmentFor: rootsArray into: segmentWordArray outPointers: outPointerArray "This primitive will store a binary image segment (in the same format as the Squeak image file) of the receiver and every object in its proper tree of subParts (ie, that is not refered to from anywhere else outside the tree). Note: all elements of the reciever are treated as roots in determining the extent of the tree. All pointers from within the tree to objects outside the tree will be copied into the array of outpointers. In their place in the image segment will be an oop equal to the offset in the outpointer array (the first would be 4 or 8, depending on word size). but with the high bit set. Note: the first element of the segmentWordArray (and hence the first element of the Array answered by loadSegmentFrom:outPointers:) is the rootsArray." "The primitive expects the array and wordArray to be more than adequately long. In this case it returns normally, and truncates the two arrays to exactly the right size. + If either array is too small, if too many out pointers are required (more than 2^22), + or if not enough memory is available to hold the computed set of objects, + then the primitive will fail, but in no other case." - If either array is too small, the primitive will fail, but in no other case." <primitive: 98 error: ec> "successful completion returns self" ec == #'resource limit exceeded' ifTrue: [self primitiveFailed]. ^nil "normal failure returns nil"!

1 0

[squeak-dev]The Trunk: ToolBuilder-Morphic-mt.336.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.336.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.336 Author: mt Time: 5 April 2023, 12:56:50.384931 pm UUID: 97a852f0-9638-4547-8449-aef57f5abcf4 Ancestors: ToolBuilder-Morphic-mt.335 For tree widget search (CMD+F), fix a issue where the model was not notified about the selected search result. =============== Diff against ToolBuilder-Morphic-mt.335 =============== Item was changed: ----- Method: PluggableTreeMorph>>findAgainNow (in category 'searching') ----- findAgainNow (findQueue isNil or: [findQueue isEmpty]) ifTrue: [^ self flash]. Cursor wait showWhile: [ (self searchMode caseOf: { [#breadthFirst] -> [self findAgainNowBreadthFirst]. [#depthFirst] -> [self findAgainNowDepthFirst] }) ifNotNil: [:currentPath | "Search used model data. View might already be outdated. Collapse parent now to get up-to-date children." self selectedMorph ifNotNil: [:focus | focus isExpanded ifTrue: [ self toggleExpandedState: self selectedMorph]]. "Match!! Stop search for now. Select the match." self selectedPathWrappers: currentPath. self selectedMorph ifNil: [ ^ self inform: 'Could not find path. View up to date?' translated]. "Mimic filter function to highlight (and filter) search results." lastKeystrokes := findText. self filterTree. self scrollSelectionAndExtraIntoView. + self setSelectedMorphOnly: self selectedMorph. "Tell the model" ^ self]]. self inform: 'Nothing found.' translated.! Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph + + self setSelectedMorphOnly: aMorph. - - selectedWrapper := aMorph complexContents. - - "Let the model now about the selected object, not wrapper." - setSelectionSelector ifNotNil: [:symbol | - model - perform: symbol - with: (selectedWrapper ifNotNil: [:w | w item])]. - self setSelectedParentMorph: aMorph. self setSelectedPath: aMorph.! Item was added: + ----- Method: PluggableTreeMorph>>setSelectedMorphOnly: (in category 'selection') ----- + setSelectedMorphOnly: aMorph + + selectedWrapper := aMorph complexContents. + + "Let the model now about the selected object, not wrapper." + setSelectionSelector ifNotNil: [:symbol | + model + perform: symbol + with: (selectedWrapper ifNotNil: [:w | w item])].!

1 0

[squeak-dev]The Trunk: Morphic-mt.2102.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2102.mcz ==================== Summary ==================== Name: Morphic-mt.2102 Author: mt Time: 5 April 2023, 11:49:24.832931 am UUID: 7e97cbf7-c375-1c4f-8544-e2787c3adc4c Ancestors: Morphic-mt.2101 For a possible drop into a tree widget, expand the hovered item after 1000 ms if possible so that users can select a sub-tree item during the drag operation. =============== Diff against Morphic-mt.2101 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseEnterDragging: (in category 'event handling') ----- mouseEnterDragging: evt | aMorph | (evt hand hasSubmorphs and:[self dropEnabled]) ifFalse: ["no d&d" ^super mouseEnterDragging: evt]. (self wantsDroppedMorph: evt hand firstSubmorph event: evt ) + ifTrue: [ + self removeAlarm: #toggleExpandedState:event:. - ifTrue:[ aMorph := self itemFromPoint: evt position. + aMorph ifNotNil: [ + self potentialDropMorph: aMorph. + (aMorph isExpanded not and: [aMorph canExpand]) ifTrue: [ + self + addAlarm: #toggleExpandedState:event: + withArguments: {aMorph. evt} + after: 1000]]. - aMorph ifNotNil:[self potentialDropMorph: aMorph]. evt hand newMouseFocus: self. "above is ugly but necessary for now" ].! Item was changed: ----- Method: SimpleHierarchicalListMorph>>toggleExpandedState:event: (in category 'events') ----- + toggleExpandedState: aMorph event: aMouseEvent + "Mouse navigation. Thus, avoid changing scroll position. See #toggleExpandedState: for keyboard navigation." - toggleExpandedState: aMorph event: event aMorph toggleExpandedState. self adjustSubmorphPositions. !

1 0

[squeak-dev]The Trunk: Morphic-mt.2101.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2101.mcz ==================== Summary ==================== Name: Morphic-mt.2101 Author: mt Time: 5 April 2023, 11:37:16.364931 am UUID: 34cd7139-f586-2341-add3-2f96e52222d0 Ancestors: Morphic-mt.2100 Complements Tools-mt.1196 =============== Diff against Morphic-mt.2100 =============== Item was changed: ----- Method: PasteUpMorph>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: dropped event: evt "The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied" | aMorph | (self isWorldMorph and: [dropped isTransferMorph] and: [self hasTransferMorphConverter not]) ifTrue: [ dropped dragTransferType = #filesAndDirectories ifTrue: [^ self dropFiles: dropped passenger event: evt]. dropped dragTransferType = #sourceCode ifTrue: [^ self dropSourceCode: dropped passenger event: evt]. dropped dragTransferType = #inspectorField "See Tools-Inspector" + ifTrue: [^ self dropInspectorField: dropped passenger event: evt]. + dropped dragTransferType = #explorerField "See Tools-Explorer" + ifTrue: [^ self dropExplorerField: dropped passenger from: dropped source model event: evt]]. - ifTrue: [^ self dropInspectorField: dropped passenger event: evt]]. aMorph := self morphToDropFrom: dropped. self isWorldMorph ifFalse: [super acceptDroppingMorph: aMorph event: evt] ifTrue: ["Add the given morph to this world and start stepping it if it wants to be." aMorph isInWorld ifFalse: [aMorph position: evt position]. self addMorphFront: aMorph. (aMorph fullBounds intersects: self viewBox) ifFalse: [Beeper beep. aMorph position: self bounds center]]. aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]]. aMorph allMorphsDo: "Establish any penDown morphs in new world" [:m | | tfm mm | m player ifNotNil: [m player getPenDown ifTrue: [((mm := m player costume) notNil and: [(tfm := mm owner transformFrom: self) notNil]) ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition) forPlayer: m player]]]]. self isPartsBin ifTrue: [aMorph isPartsDonor: true. aMorph stopSteppingSelfAndSubmorphs. aMorph suspendEventHandler] ifFalse: [self world startSteppingSubmorphsOf: aMorph]. " self presenter morph: aMorph droppedIntoPasteUpMorph: self." self showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. self bringTopmostsToFront.! Item was added: + ----- Method: PasteUpMorph>>dropExplorerField:from:event: (in category 'event handling') ----- + dropExplorerField: anExplorerField from: anExplorer event: evt + "Create a self-updating morph that serves as a compact watcher for the dropped explorer field." + + | scope | + scope := anExplorer currentParent + ifNil: [Dictionary newFrom: {anExplorerField} "root"] + ifNotNil: [:parent | parent value]. + (scope inspectorClass on: scope) fields + detect: [:field | field name = anExplorerField key + or: [field name = anExplorerField key printString]] + ifFound: [:inspectorField | + self + dropInspectorField: inspectorField rememberInspector + event: evt].! Item was changed: ----- Method: PasteUpMorph>>wantsDroppedTransferMorph: (in category 'dropping/grabbing') ----- wantsDroppedTransferMorph: transferMorph + ^ (((self hasTransferMorphConverter - ^ ((self hasTransferMorphConverter or: [transferMorph dragTransferType = #filesAndDirectories]) or: [transferMorph dragTransferType = #sourceCode]) + or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]) + or: [transferMorph dragTransferType = #explorerField "See Tools-Explorer"]! - or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]!

1 0

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