Packages September 2020

packages@lists.squeakfoundation.org

1 participants
56 discussions

The Trunk: Tools-mt.990.mcz
by commits＠source.squeak.org 29 Sep '20

29 Sep '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.990.mcz ==================== Summary ==================== Name: Tools-mt.990 Author: mt Time: 29 September 2020, 10:20:33.276444 am UUID: e7da396b-a8ec-7a44-8f15-5ba7d0d30b37 Ancestors: Tools-mt.989 In debuggers, forward model-wake-up call to update inspectors. This fixes the bug where a 'nil' receiver had no fields in the receiver inspector. For example, try debug-it on any expression in the workspace to trigger that bug. Note that the underlying challenge is that the inspectors in debuggers are not stepping. Field updates are triggered manually via #updateInspectors. An inspector's initial object is 'nil'. So, "changing" that to 'nil' will not update the field list in inspectors bc. it is considered redundant and will be ignored there. While stepping is not required to produce the initial field list, the model-wake-up call will usually trigger that initial update in a stand-alone inspector. That's why I think that it is not necessary to change anything in the inspector code but only here in the debugger. =============== Diff against Tools-mt.989 =============== Item was added: + ----- Method: Debugger>>modelWakeUpIn: (in category 'user interface') ----- + modelWakeUpIn: aWindow + + super modelWakeUpIn: aWindow. + self updateInspectors.!

1 0

The Trunk: Tools-mt.989.mcz
by commits＠source.squeak.org 29 Sep '20

29 Sep '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.989.mcz ==================== Summary ==================== Name: Tools-mt.989 Author: mt Time: 29 September 2020, 10:06:06.429444 am UUID: 5730f8ac-96c7-6c41-be31-f2c51310ad53 Ancestors: Tools-ct.988 In debuggers, unify run-until/to logic, which also skips unnecessary UI updates to speed up "run to here" again. =============== Diff against Tools-ct.988 =============== Item was added: + ----- Method: Debugger>>doStepUntil: (in category 'context stack menu') ----- + doStepUntil: condition + "Step until the given condition evaluates to other than false, reporting an error it if does not evaluate to true. + + If shift is pressed when the expression is supplied, don't update the UI. If shift is pressed while stepping, stop stepping. Using a user interrupt to break out would be more natural but Squeak currently doesn't provide a UserInterrupt exception. It should do." + + | currentContext newContext value lastUpdate updateUI breakOnShift | + self okToChange ifFalse: [^ self]. + self checkContextSelection. + currentContext := newContext := self selectedContext. + lastUpdate := Time millisecondClockValue. + updateUI := breakOnShift := Sensor shiftPressed not. + + Cursor execute showWhile: [[ + newContext == currentContext + and: [currentContext willReturn not + and: [(value := condition value) == false]] ] whileTrue: [ + + self + handleLabelUpdatesIn: [newContext := interruptedProcess completeStep: currentContext] + whenExecuting: currentContext. + newContext == currentContext ifTrue: [ + newContext := interruptedProcess stepToSendOrReturn. + self resetContext: newContext changeContents: false]. + + Time millisecondClockValue - lastUpdate > 250 "ms" ifTrue: [ + updateUI ifTrue: [ + self changed: #contentsSelection. + Project current world displayWorldSafely]. + breakOnShift + ifTrue: [Sensor shiftPressed ifTrue: [ + self changed: #contentsSelection. + self updateInspectors. + ^self]] + ifFalse: [Sensor shiftPressed ifFalse: [breakOnShift := true]]. + lastUpdate := Time millisecondClockValue] ]]. + + self contextStackIndex > 1 + ifTrue: [self resetContext: newContext] + ifFalse: + [newContext == currentContext + ifTrue: [self changed: #contentsSelection; updateInspectors] + ifFalse: [self resetContext: newContext]]. + + ^ value + ! Item was changed: ----- Method: Debugger>>runToSelection: (in category 'code pane menu') ----- runToSelection: selectionInterval + - | currentContext | self pc first >= selectionInterval first ifTrue: [ ^self ]. + self doStepUntil: [ self pc first >= selectionInterval first ].! - currentContext := self selectedContext. - [ currentContext == self selectedContext and: [ self pc first < selectionInterval first ] ] whileTrue: [ self doStep ].! Item was changed: ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- runUntil + "Step until an expression evaluates to other than false, reporting an error if it doesn't evaluate to true. Remember the expression in an inst var." + + | expression receiver context method value | - "Step until an expression evaluates to other than false, reporting an error if it doesn't evaluate to true. - Remember the expression in an inst var. If shift is pressed when the expression is supplied, don't update the UI. - If shift is pressed while stepping, stop stepping. Using a user interrupt to break out would be more natural - but Squeak currently doesn't provide a UserInterrupt expection. It should do." - | expression receiver context method value lastUpdate updateUI breakOnShift | expression := UIManager default request: 'run until expression is true (shift to disable ui update; shift to break).' initialAnswer: (untilExpression ifNil: 'boolean expression'). (expression isNil or: [expression isEmpty]) ifTrue: [^self]. - updateUI := breakOnShift := Sensor shiftPressed not. untilExpression := expression. context := self selectedContext. receiver := context receiver. method := receiver class evaluatorClass new compiledMethodFor: untilExpression in: context to: receiver notifying: nil ifFail: [^ #failedDoit]. + value := self doStepUntil: [method valueWithReceiver: receiver arguments: {context}]. + - lastUpdate := Time millisecondClockValue. - Cursor execute showWhile: - [[self selectedContext == context - and: [context willReturn not - and: [(value := method valueWithReceiver: receiver arguments: {context}) == false]]] whileTrue: - [interruptedProcess completeStep: self selectedContext. - self selectedContext == context ifTrue: - [self resetContext: interruptedProcess stepToSendOrReturn changeContents: false]. - Time millisecondClockValue - lastUpdate > 50 ifTrue: - [updateUI ifTrue: - [self changed: #contentsSelection. - Project current world displayWorldSafely]. - breakOnShift - ifTrue: [Sensor shiftPressed ifTrue: - [self changed: #contentsSelection. - self updateInspectors. - ^self]] - ifFalse: [Sensor shiftPressed ifFalse: [breakOnShift := true]]. - lastUpdate := Time millisecondClockValue]]]. - self changed: #contentsSelection. - self updateInspectors. (value ~~ false and: [value ~~ true]) ifTrue: [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!']!

1 0

The Trunk: Tools-ct.988.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.988.mcz ==================== Summary ==================== Name: Tools-ct.988 Author: ct Time: 25 September 2020, 4:56:31.616748 pm UUID: 31bde789-95f1-2745-90b1-4b8ff66adcbb Ancestors: Tools-ct.987 Hotfix for regression introduced in Tools-ct.987 (merge error). Please apologize any inconveniences! =============== Diff against Tools-ct.987 =============== Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController "Accept new method source of the selected context." | selector classOfMethod category ctxt newMethod | contextStackIndex = 0 ifTrue: [^ false]. "First, handle some edge cases" selector := self selectedClass newParser parseSelector: aText. "selector isDoIt ifTrue: [ currentCompiledMethod := self compileDoIt: aText]." self flag: #todo. "ct: Recompile doIt method *without* creating method litters!! See Compiler>>#evaluateCue:ifFail:." selector = self selectedMessageName ifFalse: [ "Different message compiled, delegating to super" ^ super contents: aText notifying: aController]. self selectedContext isExecutingBlock ifTrue: [ "If we are in a block context, we need to rewind the stack before ." | home | home := self selectedContext activeHome. home ifNil: [ self inform: 'Method for block not found on stack, can''t edit and continue' translated. ^ false]. (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs translated) ifFalse: [ ^ false]. self resetContext: home changeContents: false. "N.B. Only reset the contents if the compilation succeeds. If contents would be reset when compilation fails, both compiler error message and modifications were lost." ^ (self contents: aText notifying: aController) ifTrue: [self contentsChanged]; yourself]. classOfMethod := self selectedClass. category := self selectedMessageCategoryName. "Do the actual compilation" selector := classOfMethod compile: aText classified: category notifying: aController. selector ifNil: [^ false]. "compilation cancelled" "Update views" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. newMethod isQuick ifTrue: [ self cutBackExecutionToSenderContext]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs translated] ifTrue: [ newMethod isQuick ifFalse: [ interruptedProcess restartTopWith: newMethod. + interruptedProcess stepToSendOrReturn]. - self stepToStatement]. contextVariablesInspector object: nil]. self resetContext: ctxt. Project current addDeferredUIMessage: [ self changed: #contentsSelection]. ^ true!

1 0

The Trunk: EToys-eem.402.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.402.mcz ==================== Summary ==================== Name: EToys-eem.402 Author: eem Time: 27 September 2020, 5:43:02.068038 pm UUID: bbda2475-d7bb-4381-b306-0eab22b9ddad Ancestors: EToys-eem.401 CameraInterface: document camera:getParam:. Provide a utility for evaluating a block with grabbed frames. =============== Diff against EToys-eem.401 =============== Item was added: + ----- Method: CameraInterface class>>camera:framesDo:while: (in category 'utilities') ----- + camera: cameraNum framesDo: aBlock while: whileBlock + "Evaluate aBlock every time a frame becomes available. Answer a tuple of frames per second and number of 16ms delays per second. + Be destructive; use only one bitmap, overwriting its contents with each successive frame. + It is the sender's responsibility to open and close the camera." + | form bitmap delay start duration frameCount delayCount | + form := Form + extent: (self frameExtent: cameraNum) + depth: 32. + bitmap := form bits. + delay := Delay forMilliseconds: (1000 / 60) asInteger. "60 fps is fast" + start := Time utcMicrosecondClock. + frameCount := delayCount := 0. + [[(self camera: cameraNum getParam: 1) <= 0] whileTrue: + [delay wait. delayCount := delayCount + 1]. + self getFrameForCamera: cameraNum into: bitmap. + frameCount := frameCount + 1. + aBlock value: form. + whileBlock value] whileTrue. + ^{ frameCount * 1.0e6 / (duration := Time utcMicrosecondClock - start). + delayCount * 1.0e6 / duration } + + "| cameraNum | + self openCamera: (cameraNum := 1) width: 640 height: 480. + self waitForCameraStart: cameraNum. + [self camera: cameraNum framesDo: [:bitmap| bitmap display] while: [Sensor noButtonPressed]] ensure: + [self closeCamera: cameraNum]"! Item was changed: ----- Method: CameraInterface class>>camera:getParam: (in category 'camera ops') ----- camera: cameraNum getParam: paramNum + "Answer the given parameter for the given camera. + param 1 is the frame count, the number of frames grabbed since the last send of getFrameForCamera:into: + param 2 is the size of the bitmap in bytes required for an image" - "Answer the given parameter for the given camera." + <primitive: 'primGetParam' module: 'CameraPlugin' error: ec> + ^nil - <primitive: 'primGetParam' module: 'CameraPlugin'> - ^ nil !

1 0

The Trunk: Morphic-eem.1686.mcz
by commits＠source.squeak.org 26 Sep '20

26 Sep '20

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1686.mcz ==================== Summary ==================== Name: Morphic-eem.1686 Author: eem Time: 25 September 2020, 7:14:07.295188 pm UUID: 203a1355-2c2d-4600-a378-868b5c5fff82 Ancestors: Morphic-eem.1685 Make TextEditor>>starteArray[Put:] robust when used on uninitialized or stale instances. =============== Diff against Morphic-eem.1685 =============== Item was changed: ----- Method: TextEditor>>stateArray (in category 'initialize-release') ----- stateArray + ^[ {ChangeText. - ^ {ChangeText. FindText. history ifNil: [TextEditorCommandHistory new]. "Convert old instances" self markIndex to: self pointIndex - 1. self startOfTyping. emphasisHere. + lastParenLocation}] + on: MessageNotUnderstood + do: [:ex| ex resume: nil]! - lastParenLocation}! Item was changed: ----- Method: TextEditor>>stateArrayPut: (in category 'initialize-release') ----- stateArrayPut: stateArray - | sel | ChangeText := stateArray at: 1. FindText := stateArray at: 2. history := stateArray at: 3. + (stateArray at: 4) ifNotNil: [:sel| self selectFrom: sel first to: sel last]. - sel := stateArray at: 4. - self selectFrom: sel first to: sel last. beginTypeInIndex := stateArray at: 5. emphasisHere := stateArray at: 6. lastParenLocation := stateArray at: 7!

1 0

The Trunk: NetworkTests-eem.59.mcz
by commits＠source.squeak.org 25 Sep '20

25 Sep '20

Eliot Miranda uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-eem.59.mcz ==================== Summary ==================== Name: NetworkTests-eem.59 Author: eem Time: 25 September 2020, 1:20:02.115435 pm UUID: 6c005829-7edf-4318-bbb9-bf452903461a Ancestors: NetworkTests-pre.58 SocketTest: use teh facilities in Network-eem.242 to use the crrect address family when looking up a name for a socket to connect/accept to. Hence get rid of the sqConnectToAddressSize: Address family not supported by protocol family error message from the SocketPlugin when running the SocketTest tests. =============== Diff against NetworkTests-pre.58 =============== Item was added: + ----- Method: SocketTest>>listenerAddressForFamily: (in category 'fixtures') ----- + listenerAddressForFamily: addressFamily + ^NetNameResolver addressForName: 'localhost' family: addressFamily! Item was changed: ----- Method: SocketTest>>testClientConnect (in category 'tests') ----- testClientConnect "Tests a client socket connection" clientSocket := Socket newTCP. + clientSocket connectTo: (self listenerAddressForFamily: clientSocket addressFamily) port: self listenerPort. - clientSocket connectTo: self listenerAddress port: self listenerPort. clientSocket waitForConnectionFor: 2. + self assert: clientSocket isConnected! - self assert: clientSocket isConnected. - ! Item was changed: ----- Method: SocketTest>>testLocalAddress (in category 'tests') ----- testLocalAddress "Tests the various localAddress values for sockets" self testServerAccept. + self assert: listenerSocket localAddress equals: (self listenerAddressForFamily: listenerSocket addressFamily). + self assert: clientSocket localAddress equals: (self listenerAddressForFamily: clientSocket addressFamily). + self assert: serverSocket localAddress equals: (self listenerAddressForFamily: serverSocket addressFamily)! - self assert: listenerSocket localAddress = self listenerAddress. - self assert: clientSocket localAddress = self listenerAddress. - self assert: serverSocket localAddress = self listenerAddress. - !

1 0

The Trunk: Network-eem.242.mcz
by commits＠source.squeak.org 25 Sep '20

25 Sep '20

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.242.mcz ==================== Summary ==================== Name: Network-eem.242 Author: eem Time: 25 September 2020, 1:16:43.056168 pm UUID: 555fce79-4be7-49f4-a0d6-b976a406942e Ancestors: Network-eem.241 Sockets: Add an inst var to Socket to remember the address family (INET4 vs INET6) for a new-style socket. Add family-specific lookup facilities to NetNameResolver. =============== Diff against Network-eem.241 =============== Item was added: + ----- Method: NetNameResolver class>>addressForName:family: (in category 'lookups') ----- + addressForName: hostName family: addressFamily + "NetNameResolver addressForName: 'squeak.org' family: SocketAddressInformation addressFamilyINET4" + "NetNameResolver addressForName: 'localhost' family: SocketAddressInformation addressFamilyINET6" + "NetNameResolver addressForName: '127.0.0.1' family: SocketAddressInformation addressFamilyINET6" + | addresses | + self useOldNetwork ifTrue: + [^self oldAddressForName: hostName]. + addresses := self addressesForName: hostName family: addressFamily. + ^addresses + ifEmpty: [nil] + ifNotEmpty: [addresses first socketAddress]! Item was changed: ----- Method: NetNameResolver class>>addressesForName: (in category 'lookup') ----- addressesForName: hostName "NetNameResolver addressesForName: 'impara.de' " + ^SocketAddressInformation - | addresses | - addresses := SocketAddressInformation forHost: hostName service: '' flags: 0 addressFamily: 0 socketType: SocketAddressInformation socketTypeStream + protocol: SocketAddressInformation protocolTCP! - protocol: SocketAddressInformation protocolTCP. - ^addresses! Item was added: + ----- Method: NetNameResolver class>>addressesForName:family: (in category 'lookup') ----- + addressesForName: hostName family: addressFamily + "NetNameResolver + addressesForName: 'squeak.org' + family: SocketAddressInformation addressFamilyINET4" + "NetNameResolver + addressesForName: 'impara.de' + family: SocketAddressInformation addressFamilyINET6" + + ^SocketAddressInformation + forHost: hostName + service: '' + flags: 0 + addressFamily: addressFamily + socketType: SocketAddressInformation socketTypeStream + protocol: SocketAddressInformation protocolTCP! Item was changed: Object subclass: #Socket + instanceVariableNames: 'semaphore socketHandle readSemaphore writeSemaphore family' - instanceVariableNames: 'semaphore socketHandle readSemaphore writeSemaphore' classVariableNames: 'Connected DeadServer DefaultReceiveBufferSize DefaultSendBufferSize InvalidSocket MaximumReadSemaphoreWaitTimeout OtherEndClosed Registry TCPSocketType ThisEndClosed UDPSocketType Unconnected WaitingForConnection' poolDictionaries: '' category: 'Network-Kernel'! !Socket commentStamp: 'gk 12/13/2005 00:43' prior: 0! A Socket represents a network connection point. Current sockets are designed to support the TCP/IP and UDP protocols. Sockets are the lowest level of networking object in Squeak and are not normally used directly. SocketStream is a higher level object wrapping a Socket in a stream like protocol. ProtocolClient and subclasses are in turn wrappers around a SocketStream to provide support for specific network protocols such as POP, NNTP, HTTP, and FTP.! Item was added: + ----- Method: Socket>>addressFamily (in category 'accessing') ----- + addressFamily + ^family! Item was changed: ----- Method: Socket>>initialize:family: (in category 'initialize-destroy') ----- + initialize: socketType family: addressFamily - initialize: socketType family: family "Initialize a new socket handle. If socket creation fails, socketHandle will be set to nil." + family := addressFamily. NetNameResolver useOldNetwork ifTrue: [ ^self initialize: socketType ]. self initializeSocketHandleUsing: [ :semaIndex :readSemaIndex :writeSemaIndex | self primSocketCreateNetwork: family type: socketType receiveBufferSize: DefaultReceiveBufferSize sendBufSize: DefaultSendBufferSize semaIndex: semaIndex readSemaIndex: readSemaIndex writeSemaIndex: writeSemaIndex ]! Item was changed: ----- Method: Socket>>waitForDataIfClosed: (in category 'waiting') ----- waitForDataIfClosed: closedBlock "Wait indefinitely for data to arrive. This method will block until data is available or the socket is closed." + [socketHandle ifNil: [^closedBlock value ]. + (self primSocketReceiveDataAvailable: socketHandle) ifTrue: [ ^self ]. + self isConnected ifFalse: [ ^closedBlock value ]. + "ul 8/13/2014 21:16 + Providing a maximum for the time for waiting is a workaround for a VM bug which + causes sockets waiting for data forever in some rare cases, because the semaphore + doesn't get signaled. Replace the ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" + part with ""wait"" when the bug is fixed." + readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout ] repeat! - socketHandle ifNil: [ ^closedBlock value ]. - [ - (self primSocketReceiveDataAvailable: socketHandle) ifTrue: [ ^self ]. - self isConnected ifFalse: [ ^closedBlock value ]. - "ul 8/13/2014 21:16 - Providing a maximum for the time for waiting is a workaround for a VM bug which - causes sockets waiting for data forever in some rare cases, because the semaphore - doesn't get signaled. Replace the ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" - part with ""wait"" when the bug is fixed." - readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout ] repeat!

1 0

The Trunk: Graphics-pre.439.mcz
by commits＠source.squeak.org 25 Sep '20

25 Sep '20

Patrick Rein uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-pre.439.mcz ==================== Summary ==================== Name: Graphics-pre.439 Author: pre Time: 25 September 2020, 9:48:35.481674 am UUID: e6d3328b-645a-e846-a3a9-c3c61b479c23 Ancestors: Graphics-tonyg.438 Adds code to handle the case in which a text anchor attribute is used on more than the SoH character AND another SoH character is within the range where the text anchor was applied. Without this, the first morph would be put at the location of the second SoH character. =============== Diff against Graphics-tonyg.438 =============== Item was changed: ----- Method: CharacterScanner>>embeddedObject (in category 'stop conditions') ----- embeddedObject + | previousAttributes newAttributes | pendingKernX := 0. + "If a text anchor was already at the previous index, it was already dealt with" + previousAttributes := lastIndex > 1 ifTrue: [text attributesAt: lastIndex - 1] ifFalse: [#()]. + newAttributes := (text attributesAt: lastIndex) copyWithoutAll: previousAttributes. + (newAttributes reject: [:each | each anchoredMorph isNil]) - ((text attributesAt: lastIndex) reject: [:each | each anchoredMorph isNil]) ifNotEmpty: [:attributes | (self placeEmbeddedObjectsFrom: attributes) ifTrue: [^ true]]. self setFont. "Note: if ever several objects are embedded on same character, only indent lastIndex once" lastIndex := lastIndex + 1. + ^ false! - ^false!

1 0

The Trunk: MorphicTests-pre.66.mcz
by commits＠source.squeak.org 25 Sep '20

25 Sep '20

Patrick Rein uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-pre.66.mcz ==================== Summary ==================== Name: MorphicTests-pre.66 Author: pre Time: 25 September 2020, 9:44:57.768674 am UUID: 4785ae25-ad3c-ad4b-8341-0f3f4a4f3f1d Ancestors: MorphicTests-mt.65 Adds a test case for layouting morphs in text in case the TextAnchor attribute is applied to more than the SoH character (which is unusual but valid). =============== Diff against MorphicTests-mt.65 =============== Item was added: + ----- Method: TextAnchorTest>>testTwoTextAnchorsOneWithNestedInterval (in category 'tests') ----- + testTwoTextAnchorsOneWithNestedInterval + + | anchorAttribute2 anchoredMorph2 | + anchoredMorph2 := RectangleMorph new. + anchoredMorph height: 40. + anchoredMorph2 height: 40. + anchorAttribute2 := TextAnchor new anchoredMorph: anchoredMorph2. + text := Text streamContents: [:stream | + stream + nextPutAll: 'contrived '; + nextPutAll: Character startOfHeader asString asText; + nextPutAll: ' whose morph is in the center.'; + nextPutAll: Character startOfHeader asString asText; + nextPutAll: 'and some more text!!']. + text addAttribute: anchorAttribute from: 11 to: 61. + text addAttribute: anchorAttribute2 from: 42 to: 48. + textMorph hResizing: #shrinkWrap. + self prepareTextMorph. + + self assert: textMorph paragraph lines first lineHeight < 50. + self assert: anchoredMorph right < anchoredMorph2 left!

1 0

The Trunk: System-topa.1174.mcz
by commits＠source.squeak.org 24 Sep '20

24 Sep '20

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.1174.mcz ==================== Summary ==================== Name: System-topa.1174 Author: topa Time: 24 September 2020, 11:14:16.007835 pm UUID: 8f692d9f-4973-4aac-b181-9a2643089f8a Ancestors: System-eem.1173 Make it so that Theme fonts are looked up on usage, not on theme creation. =============== Diff against System-eem.1173 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: aUserInterfaceTheme "Set-up fonts." aUserInterfaceTheme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode]! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode)! Item was changed: ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') ----- addDarkSyntaxHighlighting: aUserInterfaceTheme "self createDark apply." + | normal bold italic underlined | normal := TextEmphasis normal. bold:=TextEmphasis bold. italic:=TextEmphasis italic. underlined := TextEmphasis underlined. - | normal bold italic underlined darkMap | normal := TextEmphasis normal. bold:=TextEmphasis bold. italic:=TextEmphasis italic. underlined := TextEmphasis underlined. darkMap := StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9. aUserInterfaceTheme set: #color for: #TextAction to: self dbBlue; set: #default for: #SHTextStylerST80 to: {self dbForeground}; set: #invalid for: #SHTextStylerST80 to: {self dbInvalid}; set: #excessCode for: #SHTextStylerST80 to: {self dbInvalid twiceDarker}; "Descriptive text for humans, italicized." set: #comment for: #SHTextStylerST80 to: {self dbComment. italic}; set: #unfinishedComment for: #SHTextStylerST80 to: {self dbComment darker. italic}; set: #'$' for: #SHTextStylerST80 to: {self dbConstant}; set: #character for: #SHTextStylerST80 to: {self dbConstant}; set: #integer for: #SHTextStylerST80 to: {self dbConstant}; set: #number for: #SHTextStylerST80 to: {self dbConstant}; set: #- for: #SHTextStylerST80 to: {self dbForeground. bold}; set: #= for: #SHTextStylerST80 to: {self dbForeground. bold}; set: #symbol for: #SHTextStylerST80 to: {self dbBedrock}; set: #stringSymbol for: #SHTextStylerST80 to: {self dbBedrock}; set: #literalArray for: #SHTextStylerST80 to: {self dbForeground}; set: #string for: #SHTextStylerST80 to: {self dbConstant}; set: #unfinishedString for: #SHTextStylerST80 to: {self dbConstant darker}; set: #assignment for: #SHTextStylerST80 to: {nil. bold}; set: #ansiAssignment for: #SHTextStylerST80 to: {nil. bold}; set: #literal for: #SHTextStylerST80 to: {nil. bold}; set: #keyword for: #SHTextStylerST80 to: {self dbMessage}; set: #binary for: #SHTextStylerST80 to: {self dbForeground. bold}; set: #unary for: #SHTextStylerST80 to: {self dbMessage}; set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbMessage darker. {underlined. bold}}; set: #incompleteBinary for: #SHTextStylerST80 to: {self dbMessage darker. underlined}; set: #incompleteUnary for: #SHTextStylerST80 to: {self dbMessage darker. underlined}; set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbInvalid}; set: #undefinedBinary for: #SHTextStylerST80 to: {self dbInvalid}; set: #undefinedUnary for: #SHTextStylerST80 to: {self dbInvalid}; "Delineate the selector (good for new users), and make the method look like a mini-document with a title." set: #patternKeyword for: #SHTextStylerST80 to: {self dbMessage lighter. {bold. underlined}}; set: #patternBinary for: #SHTextStylerST80 to: {nil. bold}; set: #patternUnary for: #SHTextStylerST80 to: {self dbMessage lighter. {bold. underlined}}; set: #self for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #super for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #true for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #false for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #nil for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #thisContext for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #return for: #SHTextStylerST80 to: {self dbForeground. bold}; + set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. ""}; + set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. ""}; - set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"}; - set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"}; set: #blockPatternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter}; set: #blockArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter}; set: #argument for: #SHTextStylerST80 to: {self dbSelection twiceLighter}; set: #blockArgColon for: #SHTextStylerST80 to: {self dbBedrock}; set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #leftParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; set: #rightParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; set: #blockStart for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #blockStart1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #blockEnd1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #blockStart2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockEnd2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockStart3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockEnd3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockStart4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockEnd4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockStart6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockEnd6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockStart7 for: #SHTextStylerST80 to: {Color yellow}; set: #blockEnd7 for: #SHTextStylerST80 to: {Color yellow}; set: #arrayStart for: #SHTextStylerST80 to: {self dbBedrock}; set: #arrayEnd for: #SHTextStylerST80 to: {self dbBedrock}; set: #arrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayStart for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; set: #leftBrace for: #SHTextStylerST80 to: {self dbForeground}; set: #rightBrace for: #SHTextStylerST80 to: {self dbForeground}; set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbForeground}; set: #statementSeparator for: #SHTextStylerST80 to: {self dbForeground}; set: #externalCallType for: #SHTextStylerST80 to: {self dbForeground}; set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbForeground}; set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbForeground}; set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbForeground}; set: #methodTempBar for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockTempBar for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockArgsBar for: #SHTextStylerST80 to: {self dbBedrock}; set: #primitive for: #SHTextStylerST80 to: {self dbGreen lighter. bold}; set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #module for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #blockTempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #instVar for: #SHTextStylerST80 to: {self dbYellow. normal }; set: #workspaceVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbInvalid}; set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbGray. underlined}; set: #tempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #patternTempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #poolConstant for: #SHTextStylerST80 to: {self dbConstant }; set: #classVar for: #SHTextStylerST80 to: {self dbReference}; set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal}. "And the text differ" aUserInterfaceTheme set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self dbRed }; set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self dbBlue }; set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.! Item was changed: ----- Method: MonokaiTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: ----- Method: SolarizedTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: ----- Method: SolarizedTheme class>>addLightFonts: (in category 'instance creation') ----- addLightFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode).! Item was changed: ----- Method: SqueakTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFixedFont to: [TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 12 emphasis: 0]; + set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode]. - set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFixedFont to: (TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 12 emphasis: 0); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode). ! Item was changed: ----- Method: TrimTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: + (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "new: Tim Johnson (tcj)"'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2020