Squeak-dev February 2015

squeak-dev@lists.squeakfoundation.org

45 participants
152 discussions

Speaking of rounded corners...
by Marcel Taeumel 26 Feb '15

26 Feb '15

I think that the CornerRounder is not appropriate. It's a hack like its class comment sais. ;-) What about using the methods from FormCanvas to draw rounded rectangles? The result would be nicer because we could play with anti-aliasing: <http://forum.world.st/file/n4807342/window-corners.png> BUT: Pharo dismissed that interface from canvas and I was wondering, how portable it is. Canvas does not have it. Only FormCanvas has it: frameAndFillRoundRect: aRectangle radius: cornerRadius fillStyle: fillStyle borderWidth: bw borderColor: bc frameRoundRect: aRectangle radius: radius width: borderWidth color: borderColor fillRoundRect: aRectangle radius: radius fillStyle: fillStyle At the moment, PluggableButtons round their corners _without_ the CornerRounder but by using the canvas interface to draw rounded rectangles. Is performance an issue? Well, the corner rounder is quite hacky... Best, Marcel P.S.: The anti-aliasing trick works like this and may be slow: aCanvas frameRoundRect: self bounds radius: 7 width: self borderWidth color: (self borderColor alpha: 0.5). aCanvas frameAndFillRoundRect: self bounds radius: 8 fillStyle: self fillStyle borderWidth: self borderWidth borderColor: self borderColor. aCanvas frameRoundRect: self bounds radius: 9 width: self borderWidth color: (self borderColor alpha: 0.3) -- View this message in context: http://forum.world.st/Speaking-of-rounded-corners-tp4807342.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

6 8

[Job] Smalltalk job opening, AG5 Berlin Germany
by Mathieu van Echtelt 26 Feb '15

26 Feb '15

Hi List, We've a Smalltalk job opening at our office in Berlin Germany, see job description: http://skills.ag5.com/job/software-developer-berlin-germany/ greetings, Mathieu van Echtelt -- AG5 software GmbH www.ag5.com tel: 0049 (0)30 81828464 mobile: 0049 (0)178-2016515 Kreuzbergstrasse 37/38, 10965 Berlin, Germany ---------------------------------------------------------------------------------- This message may contain information that is not intended for you. If you are not the addressee or if this message was sent to you by mistake, you are requested to inform the sender and delete the message. Any unauthorized use or dissemination of this message in whole or in part is strictly prohibited.

1 0

The Trunk: System-topa.704.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.704.mcz ==================== Summary ==================== Name: System-topa.704 Author: topa Time: 26 February 2015, 1:09:51.89 pm UUID: 9faa3cc5-0d63-401a-a2e0-342909710a93 Ancestors: System-eem.703 Retain scrollBar look now that the pref actually does something (as of Morphic-mt.758) =============== Diff against System-eem.703 =============== Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'misc') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (canRecordWhilePlaying false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (hiddenScrollBars false) (higherPerformance false) (honorDesktopCmdKeys true) (ignoreStyleIfOnlyBold true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (roundedWindowCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) + (gradientScrollBars true) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (smartUpdating true) (soundQuickStart false) (stopSoundWhenDone false) (soundEnabled true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (thoroughSenders true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonProprtiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "!

1 0

The Trunk: ReleaseBuilder-topa.116.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Tobias Pape uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-topa.116.mcz ==================== Summary ==================== Name: ReleaseBuilder-topa.116 Author: topa Time: 26 February 2015, 1:09:03.414 pm UUID: 8d8f67bb-60b9-4652-a14b-3b5b84119302 Ancestors: ReleaseBuilder-cmm.115 Retain scrollBar look now that the pref actually does something (as of Morphic-mt.758) =============== Diff against ReleaseBuilder-cmm.115 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') ----- setPreferences Workspace shouldStyle: false. SystemWindow reuseWindows: true. TextEditor autoEnclose: true ; autoIndent: false ; destructiveBackWord: false ; blinkingCursor: false ; dumbbellCursor: false. BalloonMorph setBalloonColorTo: (TranslucentColor r: 0.92 g: 0.92 b: 0.706 alpha: 0.75). Preferences installBrightWindowColors ; insertionPointColor: Color red ; enable: #scrollBarsWithoutMenuButton ; + enable: #gradientScrollBars ; enable: #swapMouseButtons ; enable: #annotationPanes ; disable: #showSplitterHandles ; enable: #showBoundsInHalo ; disable: #alternateHandlesLook ; disable: #roundedMenuCorners ; disable: #roundedWindowCorners ; enable: #traceMessages ; enable: #thoroughSenders ; enable: #diffsWithPrettyPrint ; disable: #alwaysShowVScrollbar ; enable: #alternativeBrowseIt. ProportionalSplitterMorph smartHorizontalSplitters: false ; smartVerticalSplitters: false. PluggableButtonMorph roundedButtonCorners: false. FillInTheBlankMorph roundedDialogCorners: false. Workspace shouldStyle: false. NetNameResolver enableIPv6: false. Browser listClassesHierarchically: true!

1 0

The Trunk: Morphic-topa.759.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.759.mcz ==================== Summary ==================== Name: Morphic-topa.759 Author: topa Time: 26 February 2015, 1:08:03.145 pm UUID: 8e04bded-d049-42f5-a03b-8a8a8b5e244b Ancestors: Morphic-mt.758 Retain scrollBar look now that the pref actually does something (as of Morphic-mt.758) =============== Diff against Morphic-mt.758 =============== Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. "Force SystemProgressMorph to be reset" SystemProgressMorph initialize; reset. "Initialize the key bindings and menus" Editor initialize. + "Retain scrollBar look now that the pref actually does something" + Preferences enable: #gradientScrollBars. + "apply the new icons" MenuIcons initializeIcons. TheWorldMainDockingBar updateInstances. '!

1 0

The Trunk: Kernel-topa.905.mcz
by commits＠source.squeak.org 26 Feb '15

26 Feb '15

Tobias Pape uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-topa.905.mcz ==================== Summary ==================== Name: Kernel-topa.905 Author: topa Time: 26 February 2015, 11:46:08.016 am UUID: ab4128de-7440-4a90-94c2-171a33b906c6 Ancestors: Kernel-ul.904 Add a convenience method to access arguments of a context. Also: increases compatibility. =============== Diff against Kernel-ul.904 =============== Item was added: + ----- Method: ContextPart>>arguments (in category 'accessing') ----- + arguments + + ^ Array new: self numArgs streamContents: [:args | + 1 to: self numArgs do: [: i | + args nextPut: (self tempAt: i)]]!

1 0

Squeak Oversight Board 2015
by Ron Teitelbaum 25 Feb '15

25 Feb '15

Hello everyone, I'm pleased to announce the Squeak Oversight Board for 2015. First I would like to thank everyone that participated, everyone that ran for a seat, but also everyone that voted! Without further ado here is your new Squeak Oversight Board for 2015, give a round of applause for: 1. Bert Freudenberg 2. Eliot Miranda 3. Tim Rowledge 4. Craig Latta 5. David T. Lewis 6. Chris Muller 7. Marcel Taeumel All the best, Ron Teitelbaum

9 12

Re: [squeak-dev] This forum seems very close to inactive (2 weeks since last message)
by Lawson English 25 Feb '15

25 Feb '15

Wow. This message and one other are the only ones I have received since 2/10/15 L On 2/24/15 9:16 AM, Martin Bähr wrote: > Excerpts from Lawson English's message of 2015-02-24 16:56:57 +0100: >> Is it just me or is this place a ghost town? > it must be you, because i got 120 messages in the past two weeks. > > greetings, martin. > -- Squeak from the very start (introduction to Squeak and Pharo Smalltalk for the (almost) complete and compleate beginner). https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all "Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it." - Brian Kernighan

3 4

The Inbox: Morphic-cmm.760.mcz
by commits＠source.squeak.org 25 Feb '15

25 Feb '15

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.760.mcz ==================== Summary ==================== Name: Morphic-cmm.760 Author: cmm Time: 25 February 2015, 11:10:50.52 am UUID: cb56fac4-692f-4ad9-8b44-066b81780f66 Ancestors: Morphic-cmm.759 - Remove attempt to advance past "logical" expressions when typing closers with Auto Enclose because it causes it to advance past multiple consecutive identical closers, undesirably. =============== Diff against Morphic-cmm.759 =============== Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys openers closers result typedChar | ((typedChar := aKeyboardEvent keyCharacter) == Character cr and: [ morph acceptOnCR ]) ifTrue: [ self closeTypeIn. ^ true ]. self clearParens. aKeyboardEvent keyValue = 13 ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. ^ self crWithIndent: aKeyboardEvent ]. ((honorCommandKeys := Preferences cmdKeysInText) and: [ typedChar = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. openers := '([{'. closers := ')]}'. (closers includes: typedChar) ifTrue: [ self blinkPrevParen: typedChar. self nextNonwhitespaceCharacter = typedChar ifTrue: + [ self moveCursor: [ : position | position + 1 ] forward: true select: false. - [ [self nextNonwhitespaceCharacter = typedChar] whileTrue: [self - moveCursor: [ : position | position + 1 ] - forward: true - select: false ]. ^ false ] ifFalse: [ result := self normalCharacter: aKeyboardEvent ] ] ifFalse: [ result := self normalCharacter: aKeyboardEvent ]. (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: [ self addString: (closers at: (openers indexOf: typedChar)) asString ; insertTypeAhead ; moveCursor: [ : position | position - 1 ] forward: false select: false ]. ^ result!

1 0

New Cog VMs available
by Eliot Miranda 25 Feb '15

25 Feb '15

Hi All, after a period of instability due to internal changes needed for the Spur 64-bit V I hope that these latest VMs will be more stable. ------------------------------------------------------------------------ CogVM source as per VMMaker.oscog-eem.1080/r3263 Mostly internal changes due to better inlining and type inferrence machinery in Slang. General: Fix a type declaration error uncovered by the new inlining. Simplify primitiveMakePoint. Include primitiveMethodXray Include freeMethod: in Cogit's api for method xray. Spur: Fix a typing bug in initializeOldSpaceFirstFree:. Newspeak: Move the Newspeak plugins to nsspursrc/plugins. Fix privacy violation checking for super sends. Fix some type warnings in Spur stack VMs. Slang: More improvement to type inferrence/propagation. Support ifTrue:ifFalse:. Better separate the passes in inferTypesForImplicitlyTypedVariablesAndMethods. Fix slip in nodeToCast:to:. Provide types for atan, et al. Avoid casting nil. Don't inline complex expressions that are bound to variables used in asserts. General: Add an option to control FailUnbalancedPrimitives and no longer burden the Stack VMs with the responsibility. Fix typing multiple assignments to a variable - promote the type to the largest integral type of all assignments (primitiveDecompressFromByteArray) - do /not/ promote a variable typed with integral type to a floating point type (transformColor:) On type compatibility of inlined expressions, insist on signed compatibility or accept an untyped actual. Improve the type inferrence machinery further to support pointer subtraction. Eliminate code duplication (determineTypeFor:in: now uses returnTypeForSend:, etc). Change the heuristic for inlining expressions to include a maximum usage count. Slang: Rescue translation of the non-64-bit Spur VMs by a) doing a better job of super expansions, handling expansions that are returning ifs as well as just returns correctly. b) transforming variable := expr ifTrue: [s1] ifFalse: [s2] into expr ifTrue: [variable := s1] ifFalse: [variable := s2] to allow inlining of s1 & s2. And take advantage of the better inlining in copyAndForward: General: Simplify primitiveDisplayString given isArray:. Refactor positive32BitIntegerFor: and signed32BitIntegerFor: in the realization that these reduce to essentially integerObjectOf: in 64-bit Spur. The idea is to inline if in 64-bit Spur but not if in the 32-bit VMs. Add notOption: processing to allow excluding noInlineSigned32BitIntegerFor: et al. Add hasSixtyFourBitImmediates to no longer assume that wordSize = 8 implies 64-bit immediates. Use positiveMachineIntegerFor: in place of positive32BitIntegerFor: in some plugins. Simplify two B3DAcceleratorPlugin prims given topRemappableOop and isArray: -- best, Eliot

1 1

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

Jump to page: