etoys-dev September 2010

etoys-dev@lists.squeakfoundation.org

23 participants
247 discussions

Background counts on Playfield and Holder?
by Cherry Withers 08 Sep '10

08 Sep '10

Hi Team, Just noticed that drawing the background on these objects increases the collection count to 1. It also considers the sketched background as another object within the Playfield or Holder. Just wondering what the the reasoning behind for this. Thanks, Cherry

3 3

Etoys: System-bf.36.mcz
by commits＠source.squeak.org 07 Sep '10

07 Sep '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.36.mcz ==================== Summary ==================== Name: System-bf.36 Author: bf Time: 7 September 2010, 11:45:16 pm UUID: 67c16399-12c4-4e1c-b2f5-09549f49b6d5 Ancestors: System-bf.35 Fix SQ-779: all shared flaps destroyed when switching projects. =============== Diff against System-bf.35 =============== Item was changed: ----- Method: Project>>finalEnterActions (in category 'menu messages') ----- finalEnterActions "Perform the final actions necessary as the receiver project is entered" | navigator armsLengthCmd navType thingsToUnhibernate | self projectParameters at: #projectsToBeDeleted ifPresent: [ :projectsToBeDeleted | self removeParameter: #projectsToBeDeleted. projectsToBeDeleted do: [ :each | Project deletingProject: each. each removeChangeSetIfPossible]]. Preferences preserveProjectLocale ifTrue: [Locale switchAndInstallFontToID: self localeID gently: true] ifFalse: [self localeID = LocaleID current ifFalse: [ + Locale previous: (Locale localeID: self localeID). + self localeChanged]]. - Locale previous: (Locale localeID: self localeID)]. - self localeChanged]. (self projectParameterAt: #oldProject ifAbsent: [false]) ifTrue: [(self isFlapIDEnabled: 'Sugar Navigator Flap' translated) ifTrue: [(world findA: SugarNavTab) ifNotNilDo: [:tab | tab hideNavBar. tab firstSubmorph putUpInitialBalloonHelpFor: {{#showNavBar. 'show the tool bar' translated. #bottomLeft. false}}]]] ifFalse: [(self isFlapIDEnabled: 'Sugar Navigator Flap' translated) ifFalse: [Flaps enableGlobalFlapWithID: 'Sugar Navigator Flap' translated]]. self removeParameter: #oldProject. thingsToUnhibernate _ world valueOfProperty: #thingsToUnhibernate ifAbsent: [#()]. thingsToUnhibernate do: [:each | each unhibernate]. world removeProperty: #thingsToUnhibernate. (self projectParameterAt: #substitutedFont) ifNotNil: [ self removeParameter: #substitutedFont. self world presenter allPlayersWithUniclasses do: [:uni | uni allScriptEditors do: [:scr | scr setProperty: #needsLayoutFixed toValue: true ]]. ]. navType _ ProjectNavigationMorph preferredNavigator. armsLengthCmd _ self parameterAt: #armsLengthCmd ifAbsent: [nil]. navigator _ world findA: navType. (Preferences classicNavigatorEnabled and: [Preferences showProjectNavigator and: [navigator isNil]]) ifTrue: [(navigator _ navType new addButtons) bottomLeft: world bottomLeft; openInWorld: world]. navigator notNil & armsLengthCmd notNil ifTrue: [navigator color: Color lightBlue]. armsLengthCmd ifNotNil: [armsLengthCmd openInWorld: world]. Smalltalk isMorphic ifTrue: [world reformulateUpdatingMenus. world hands do: [:h | h releaseCachedState]. world presenter positionStandardPlayer]. WorldState addDeferredUIMessage: [self startResourceLoading].!

1 0

Etoys: Etoys-bf.45.mcz
by commits＠source.squeak.org 07 Sep '10

07 Sep '10

Bert Freudenberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-bf.45.mcz ==================== Summary ==================== Name: Etoys-bf.45 Author: bf Time: 7 September 2010, 10:32:13 pm UUID: 623c3a58-cab1-4757-9990-7ec576925957 Ancestors: Etoys-bf.44 SQ-783: Add back TimesRepeatMorph =============== Diff against Etoys-bf.44 =============== Item was added: + CompoundTileMorph subclass: #TimesRepeatMorph + instanceVariableNames: 'numberOfTimesToRepeatPart whatToRepeatPart' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Scripting Tiles'! + + !TimesRepeatMorph commentStamp: '<historical>' prior: 0! + This class is not used anymore. We keep it to let old projects work. + If we added code to auto-convert old instances of this classs to TimesRepeatTile instances, we could delete it for good.! Item was added: + ----- Method: TimesRepeatMorph>>initialize (in category 'initialization') ----- + initialize + "Fully initialize the receiver." + + | dummyColumn timesRow timesRepeatColumn repeatRow separator repeatLabel placeHolder doLabel ephemerum | + submorphs _ EmptyArray. + bounds _ 0@0 corner: 50@40. + self color: Color orange muchLighter. + + self layoutPolicy: TableLayout new. + self "border, and layout properties in alphabetical order..." + borderColor: self color darker; + borderWidth: 2; + cellSpacing: #none; + cellPositioning: #topLeft; + hResizing: #spaceFill; + layoutInset: 0; + listDirection: #leftToRight; + rubberBandCells: true; + vResizing: #shrinkWrap; + wrapCentering: #none. + + self setNameTo: 'Repeat Complex'. + + dummyColumn _ AlignmentMorph newColumn. + dummyColumn cellInset: 0; layoutInset: 0. + dummyColumn width: 0. + dummyColumn cellPositioning: #leftCenter. + dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. + self addMorph: dummyColumn. + + timesRepeatColumn _ AlignmentMorph newColumn. + timesRepeatColumn setNameTo: 'Times Repeat'. + + timesRepeatColumn cellPositioning: #topLeft. + timesRepeatColumn hResizing: #spaceFill. + timesRepeatColumn vResizing: #shrinkWrap. + timesRepeatColumn layoutInset: 0. + timesRepeatColumn borderWidth: 0. + timesRepeatColumn color: Color orange muchLighter. + + timesRow _ AlignmentMorph newRow color: color; layoutInset: 0. + timesRow minCellSize: (2@16). + timesRow setNameTo: 'Times'. + repeatLabel _ StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont. + timesRow addMorphBack: repeatLabel. + timesRow vResizing: #shrinkWrap. + timesRow addMorphBack: (Morph new color: color; extent: 6@5). "spacer" + + numberOfTimesToRepeatPart := TilePadMorph new setType: #Number. + numberOfTimesToRepeatPart hResizing: #shrinkWrap; color: Color transparent. + numberOfTimesToRepeatPart addMorphBack: (TileMorph new addArrows; setLiteral: 2). + numberOfTimesToRepeatPart borderWidth: 0; layoutInset: (1@0). + + timesRow addMorphBack: numberOfTimesToRepeatPart. + timesRow addMorphBack: (StringMorph contents: ' times ' font: Preferences standardEToysFont). + timesRow addMorphBack: AlignmentMorph newVariableTransparentSpacer. + timesRepeatColumn addMorphBack: timesRow. + + separator _ AlignmentMorph newRow color: Color transparent. + separator vResizing: #rigid; hResizing: #spaceFill; height: 2. + separator borderWidth: 0. + timesRepeatColumn addMorphBack: separator. + + repeatRow _ AlignmentMorph newRow color: color; layoutInset: 0. + repeatRow minCellSize: (2@16). + repeatRow setNameTo: 'Repeat '. + placeHolder _ Morph new. + placeHolder beTransparent; extent: (8@0). + repeatRow addMorphBack: placeHolder. + repeatRow vResizing: #shrinkWrap. + doLabel _ StringMorph contents: 'Do' font: Preferences standardEToysFont. + repeatRow addMorphBack: doLabel. + repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" + repeatRow addMorphBack: (whatToRepeatPart _ ScriptEditorMorph new borderWidth: 0; layoutInset: 0). + + whatToRepeatPart hResizing: #spaceFill. + whatToRepeatPart vResizing: #shrinkWrap. + whatToRepeatPart color: Color transparent. + whatToRepeatPart setNameTo: 'Script to repeat'. + whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent. + + timesRepeatColumn addMorphBack: repeatRow. + + self addMorphBack: timesRepeatColumn. + self bounds: self fullBounds. + + ephemerum delete! Item was added: + ----- Method: TimesRepeatMorph>>labelMorphs (in category 'access') ----- + labelMorphs + + | w | + w := WriteStream on: (Array new: 3). + w nextPut: self submorphs second submorphs first submorphs first. + w nextPut: self submorphs second submorphs first submorphs fourth. + w nextPut: self submorphs second submorphs third submorphs second. + ^ w contents. + ! Item was added: + ----- Method: TimesRepeatMorph>>parseNodeWith: (in category 'code generation') ----- + parseNodeWith: encoder + + | rec selector arg | + rec _ numberOfTimesToRepeatPart submorphs + ifEmpty: + [encoder encodeLiteral: 0] + ifNotEmpty: + [numberOfTimesToRepeatPart parseNodeWith: encoder]. + selector _ #timesRepeat:. + arg _ self blockNode: whatToRepeatPart with: encoder. + ^ MessageNode new + receiver: rec + selector: selector + arguments: (Array with: arg) + precedence: (selector precedence) + from: encoder + sourceRange: nil. + ! Item was added: + ----- Method: TimesRepeatMorph>>sexpWith: (in category 'code generation') ----- + sexpWith: dictionary + + | n elements e | + n _ SExpElement keyword: #loop. + n attributeAt: #type put: 'repeat'. + elements _ WriteStream on: (Array new: 3). + e _ SExpElement keyword: #initial. + e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). + elements nextPut: e. + e _ SExpElement keyword: #increment. + e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '1'; yourself)). + elements nextPut: e. + + e _ SExpElement keyword: #test. + numberOfTimesToRepeatPart submorphs + ifEmpty: + [e elements: (Array with: ((SExpElement keyword: #literal) attributeAt: #value put: '0'; yourself))] + ifNotEmpty: + [e elements: (Array with: (numberOfTimesToRepeatPart sexpWith: dictionary))]. + + elements nextPut: e. + + elements nextPut: (self sexpBlockFor: whatToRepeatPart with: dictionary). + n elements: elements contents. + ^ n. + + ! Item was added: + ----- Method: TimesRepeatMorph>>storeCodeOn:indent: (in category 'code generation') ----- + storeCodeOn: aStream indent: tabCount + "Store code representing the receiver on the stream, obeying the tab state." + + aStream nextPutAll: '(('. + numberOfTimesToRepeatPart submorphs + ifEmpty: + [aStream nextPutAll: '0'] + ifNotEmpty: + [numberOfTimesToRepeatPart storeCodeOn: aStream indent: tabCount + 2]. + aStream nextPutAll: ' ) asInteger max: 0) timesRepeat:'. + tabCount + 1 timesRepeat: [aStream tab]. + aStream nextPutAll: '['; cr. + self storeCodeBlockFor: whatToRepeatPart on: aStream indent: tabCount + 2. + aStream nextPut: $]. + ! Item was added: + ----- Method: TimesRepeatMorph>>targetPartFor: (in category 'initialization') ----- + targetPartFor: aMorph + "Return the row into which the given morph should be inserted." + + | centerY | + centerY _ aMorph fullBounds center y. + {numberOfTimesToRepeatPart, whatToRepeatPart} do: [:m | + (centerY <= m bounds bottom) ifTrue: [^ m]]. + ^ noPart + !

1 0

Re: [etoys-dev] [squeak-dev] Re: Mantis status meanings
by Casey Ransberger 07 Sep '10

07 Sep '10

CC'd Etoys list. I was waiting for someone to say this. If people aren't using mantis, could it be that mantis is ill-suited to the current process? Maybe we don't need a bug database (I cringe, but it could be true.) Maybe we need a different tool, though. How is Jira working out for the Etoys crowd? FWIW, I think it's worth archiving mantis (if not just write-locking it somehow) if we did decide to put a bullet in it. On Sep 6, 2010, at 9:26 PM, Andreas Raab <andreas.raab(a)gmx.de> wrote: > On 9/6/2010 8:32 PM, Sean P. DeNigris wrote: >> Ken Causey wrote: >>> ...Mantis is... purely optional and few Core Developers use it. >> [shocked] Okay, problem solved. The "Bug Reporting" link on >> http://www.squeak.org/Community/ goes right to Mantis, so I always assumed >> that's how things were done. Maybe a more appropriate note would be on that >> page... something along the lines of "We currently use Mantis for issue >> tracking... got ya!" ;-) > > The reality is that Mantis is completely overloaded with old crap. And we lack the man power to keep it current (if you're willing to help you're more than welcome). I think that what we should probably do is to just close all bugs older than two years to get a handle on it. Or perhaps close 'em all and start over. The real problem with bug trackers is that if they're not kept current all the time they tend to simply overflow. > >> My only outstanding question is: should I not bother entering things in >> Mantis and just upload to the inbox and be done with it? That would be >> simpler, obviously, but what's the most helpful? > > At this point, the most effective approach is likely to just upload to the inbox. Since uploads are posted here we see them (we don't see bugs on Mantis that are posted, fixed, etc. - one of the major shortcomings). If the fix looks all right you've got a chance it'll be in. And if you provide a test, you got a *good* chance it'll go in. > > Cheers, > - Andreas >

2 1

Etoys: Monticello-bf.400.mcz
by commits＠source.squeak.org 07 Sep '10

07 Sep '10

Bert Freudenberg uploaded a new version of Monticello to project Etoys: http://source.squeak.org/etoys/Monticello-bf.400.mcz ==================== Summary ==================== Name: Monticello-bf.400 Author: bf Time: 7 September 2010, 9:51:49 pm UUID: a7b2b800-bfec-4e1d-a297-b13de5c3bc6c Ancestors: Monticello-bf.398, Monticello-bf.399 Merge latest from Squeak trunk =============== Diff against Monticello-bf.398 =============== Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! SystemOrganization addCategory: #'Monticello-Patching'! SystemOrganization addCategory: #'Monticello-Repositories'! SystemOrganization addCategory: #'Monticello-Storing'! SystemOrganization addCategory: #'Monticello-UI'! SystemOrganization addCategory: #'Monticello-Versioning'! + SystemOrganization addCategory: #'Monticello-Mocks'! Item was added: + Object subclass: #MCMenuSpec + instanceVariableNames: 'entry target selector' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-UI'! + + !MCMenuSpec commentStamp: 'tfel 6/12/2010 14:57' prior: 0! + A MCMenuSpec holds information to add menu entries to the monticello browser menus from external classes. + Required is the entry string (#entry), the call target and the selector be called. + An external class may use the MCWorkingCopyBrowser class>>addMenuSpec: method to add it's own menu entry to the monticello browser context menu. + + Note that MCMenuSpecs are compared via their menu entry string and if multiple MCMenuSpecs are added to the MCWorkingCopyBrowser, the last one takes precedence.! Item was added: + ----- Method: MCMenuSpec>>= (in category 'comparing') ----- + = aMCMenuSpec + + ^ self class == aMCMenuSpec class and: [self entry = aMCMenuSpec entry].! Item was added: + ----- Method: MCMenuSpec>>entry (in category 'accessing') ----- + entry + + ^entry! Item was added: + ----- Method: MCMenuSpec>>entry: (in category 'accessing') ----- + entry: anObject + + entry := anObject! Item was added: + ----- Method: MCMenuSpec>>hash (in category 'comparing') ----- + hash + + ^ self entry hash! Item was added: + ----- Method: MCMenuSpec>>selector (in category 'accessing') ----- + selector + + ^selector! Item was added: + ----- Method: MCMenuSpec>>selector: (in category 'accessing') ----- + selector: anObject + + selector := anObject! Item was added: + ----- Method: MCMenuSpec>>target (in category 'accessing') ----- + target + + ^target! Item was added: + ----- Method: MCMenuSpec>>target: (in category 'accessing') ----- + target: anObject + + target := anObject! Item was added: + Object subclass: #MCPatchMessage + instanceVariableNames: 'stream' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Versioning'! Item was added: + ----- Method: MCPatchMessage>>addDefinition: (in category 'patch operations') ----- + addDefinition: aDefinition + stream nextPutAll: 'A'; tab; nextPutAll: aDefinition summary; cr! Item was added: + ----- Method: MCPatchMessage>>message (in category 'accessing') ----- + message + ^stream contents + ! Item was added: + ----- Method: MCPatchMessage>>modifyDefinition:to: (in category 'patch operations') ----- + modifyDefinition: oldDefinition to: newDefinition + stream nextPutAll: 'M'; tab; nextPutAll: newDefinition summary; cr! Item was added: + ----- Method: MCPatchMessage>>patch: (in category 'accessing') ----- + patch: aPatch + stream ifNil: [stream := WriteStream on: (String new: 100)]. + aPatch operations asSortedCollection + do: [:op | op applyTo: self]! Item was added: + ----- Method: MCPatchMessage>>removeDefinition: (in category 'patch operations') ----- + removeDefinition: aDefinition + stream nextPutAll: 'D'; tab; nextPutAll: aDefinition summary; cr! Item was changed: Notification subclass: #MCVersionNameAndMessageRequest + instanceVariableNames: 'suggestion initialMessage' - instanceVariableNames: 'suggestion' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Versioning'! Item was changed: ----- Method: MCVersionNameAndMessageRequest>>defaultAction (in category 'as yet unclassified') ----- defaultAction ^ MCSaveVersionDialog new versionName: suggestion; + logMessage: initialMessage; showModally! Item was added: + ----- Method: MCVersionNameAndMessageRequest>>initialMessage (in category 'as yet unclassified') ----- + initialMessage + ^ initialMessage! Item was added: + ----- Method: MCVersionNameAndMessageRequest>>initialMessage: (in category 'as yet unclassified') ----- + initialMessage: aString + initialMessage := aString! Item was changed: ----- Method: MCWorkingCopy>>newVersion (in category 'operations') ----- newVersion + ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName + initialMessage: self patchMessageSuggestion) ifNotNil: + [:pair | + self newVersionWithName: pair first + message: (self patchMessageStripped: pair last)]. - ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName) ifNotNil: - [:pair | - self newVersionWithName: pair first message: pair last]. ! Item was added: + ----- Method: MCWorkingCopy>>patchMessageChanges (in category 'operations') ----- + patchMessageChanges + | changes parentInfo parentSnapshot | + parentInfo := self ancestors + ifEmpty: [nil] + ifNotEmpty: [self ancestors first]. + parentSnapshot := self findSnapshotWithVersionInfo: parentInfo. + changes := package snapshot patchRelativeToBase: parentSnapshot. + ^ (MCPatchMessage new patch: changes) message! Item was added: + ----- Method: MCWorkingCopy>>patchMessageChangesDelimiter (in category 'operations') ----- + patchMessageChangesDelimiter + ^'=== text below is ignored ==='! Item was added: + ----- Method: MCWorkingCopy>>patchMessageChangesHeader (in category 'operations') ----- + patchMessageChangesHeader + ^ancestry summary, String cr, + 'Added, Modified, Deleted', + (self ancestors ifEmpty: [''] ifNotEmpty: [' vs. ', self ancestors first name]), ':'! Item was added: + ----- Method: MCWorkingCopy>>patchMessageDefault (in category 'operations') ----- + patchMessageDefault + ^ 'empty log message'! Item was added: + ----- Method: MCWorkingCopy>>patchMessageStripped: (in category 'operations') ----- + patchMessageStripped: aString + | pos | + pos := aString findString: self patchMessageChangesDelimiter. + ^ (pos > 0 + ifTrue: [aString first: pos - 1] + ifFalse: [aString]) withBlanksTrimmed! Item was added: + ----- Method: MCWorkingCopy>>patchMessageSuggestion (in category 'operations') ----- + patchMessageSuggestion + ^ self patchMessageDefault, String cr, String cr, + self patchMessageChangesDelimiter, String cr, + self patchMessageChangesHeader, String cr, + self patchMessageChanges! Item was removed: - ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion: (in category 'private') ----- - requestVersionNameAndMessageWithSuggestion: aString - ^ (MCVersionNameAndMessageRequest new suggestedName: aString) signal! Item was added: + ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion:initialMessage: (in category 'private') ----- + requestVersionNameAndMessageWithSuggestion: nameString initialMessage: msgString + ^ (MCVersionNameAndMessageRequest new + suggestedName: nameString; + initialMessage: msgString + ) signal! Item was changed: MCTool subclass: #MCWorkingCopyBrowser instanceVariableNames: 'workingCopy workingCopyWrapper repository defaults' + classVariableNames: 'CheckForNewerVersionsBeforeSave ExternalMenuEntries' - classVariableNames: 'CheckForNewerVersionsBeforeSave' poolDictionaries: '' category: 'Monticello-UI'! Item was added: + ----- Method: MCWorkingCopyBrowser class>>addMenuSpec: (in category 'hooks') ----- + addMenuSpec: aMCMenuSpec + "Register a context menu entry in the monticello browser from an external package. + The MCWorkingCopyBrowser model is passed as argument." + self externalMenuEntries + remove: aMCMenuSpec + ifAbsent: ["Remove any previous entry with description string"]; + add: aMCMenuSpec.! Item was added: + ----- Method: MCWorkingCopyBrowser class>>externalMenuEntries (in category 'hooks') ----- + externalMenuEntries + + ExternalMenuEntries ifNil: [ExternalMenuEntries := Set new]. + ^ ExternalMenuEntries! Item was added: + ----- Method: MCWorkingCopyBrowser>>insertExternalMenuEntries: (in category 'morphic ui') ----- + insertExternalMenuEntries: aMenu + + self class externalMenuEntries ifNotEmpty: [ + aMenu addLine. + self class externalMenuEntries do: [:each | + aMenu + add: each entry + target: each target + selector: each selector + argument: self]].! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. + self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

Etoys: Morphic-bf.43.mcz
by commits＠source.squeak.org 07 Sep '10

07 Sep '10

Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.43.mcz ==================== Summary ==================== Name: Morphic-bf.43 Author: bf Time: 7 September 2010, 3:25:23 pm UUID: 7984d1e7-786d-411c-8a47-6e91ba9065cb Ancestors: Morphic-bf.42 SQ-788: showing space keystroke as <space> broke old projects (reverting Morphic-kfr.18) =============== Diff against Morphic-bf.42 =============== Item was changed: ----- Method: KeyboardEvent>>printKeyStringOn: (in category 'printing') ----- printKeyStringOn: aStream "Print a readable string representing the receiver on a given stream" | kc inBrackets firstBracket keyString | kc := self keyCharacter. inBrackets := false. firstBracket := [ inBrackets ifFalse: [ aStream nextPut: $<. inBrackets := true ]]. self controlKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Ctrl-' ]. self commandKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Cmd-' ]. (buttons anyMask: 32) ifTrue: [ firstBracket value. aStream nextPutAll: 'Opt-' ]. (self shiftPressed and: [ keyValue between: 1 and: 31 ]) ifTrue: [ firstBracket value. aStream nextPutAll: 'Shift-' ]. (self controlKeyPressed and: [ keyValue <= 26 ]) ifTrue: [aStream nextPut: (keyValue + $a asciiValue - 1) asCharacter] ifFalse: [keyString := (kc caseOf: { + [ Character space ] -> [ ' ' ]. - [ Character space ] -> [ 'space' ]. [ Character tab ] -> [ 'tab' ]. [ Character cr ] -> [ 'cr' ]. [ Character lf ] -> [ 'lf' ]. [ Character enter ] -> [ 'enter' ]. [ Character backspace ] -> [ 'backspace' ]. [ Character delete ] -> [ 'delete' ]. [ Character escape ] -> [ 'escape' ]. [ Character arrowDown ] -> [ 'down' ]. [ Character arrowUp ] -> [ 'up' ]. [ Character arrowLeft ] -> [ 'left' ]. [ Character arrowRight ] -> [ 'right' ]. [ Character end ] -> [ 'end' ]. [ Character home ] -> [ 'home' ]. [ Character pageDown ] -> [ 'pageDown' ]. [ Character pageUp ] -> [ 'pageUp' ]. [ Character euro ] -> [ 'euro' ]. [ Character insert ] -> [ 'insert' ]. } otherwise: [ String with: kc ]). keyString size > 1 ifTrue: [ firstBracket value ]. aStream nextPutAll: keyString]. inBrackets ifTrue: [aStream nextPut: $> ]!

1 0

Etoys: System-bf.35.mcz
by commits＠source.squeak.org 07 Sep '10

07 Sep '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.35.mcz ==================== Summary ==================== Name: System-bf.35 Author: bf Time: 7 September 2010, 3:16:54 pm UUID: 61819c1b-ba21-4312-a705-6f30fd713428 Ancestors: System-bf.34 Hide preference panel buttons in user mode. =============== Diff against System-bf.34 =============== Item was changed: ----- Method: PreferencesPanel>>addHelpItemsTo: (in category 'find') ----- addHelpItemsTo: panelPage "Add the items appropriate the the ? page of the receiver" | aButton aTextMorph aMorph firstTextMorph | panelPage hResizing: #shrinkWrap; vResizing: #shrinkWrap. firstTextMorph _ TextMorph new contents: 'Search Preferences for:' translated. "firstTextMorph beAllFont: ((TextStyle default fontOfSize: 13) emphasized: 1)." panelPage addMorphBack: firstTextMorph lock. panelPage addTransparentSpacerOfSize: 0@10. aMorph _ RectangleMorph new clipSubmorphs: true; beTransparent; borderWidth: 2; borderColor: Color black; extent: 250 @ 36. aMorph vResizing: #rigid; hResizing: #rigid. aTextMorph _ PluggableTextMorph new on: self text: #searchString accept: #setSearchStringTo: readSelection: nil menu: nil. " aTextMorph hResizing: #rigid." aTextMorph borderWidth: 0. aTextMorph font: ((TextStyle default fontOfSize: 21) emphasized: 1); setTextColor: Color red. aMorph addMorphBack: aTextMorph. aTextMorph acceptOnCR: true. aTextMorph position: (aTextMorph position + (6@5)). aMorph clipLayoutCells: true. aTextMorph extent: 240 @ 25. panelPage addMorphBack: aMorph. aTextMorph setBalloonText: 'Type what you want to search for here, then hit the "Search" button, or else hit RETURN or ENTER' translated. aTextMorph setTextMorphToSelectAllOnMouseEnter. aTextMorph hideScrollBarsIndefinitely. panelPage addTransparentSpacerOfSize: 0@10. aButton _ SimpleButtonMorph new target: self; color: Color transparent; actionSelector: #initiateSearch:; arguments: {aTextMorph}; label: 'Search' translated. panelPage addMorphBack: aButton. aButton setBalloonText: 'Type what you want to search for in the box above, then click here (or hit RETURN or ENTER) to start the search; results will appear in the "search results" category.' translated. panelPage addTransparentSpacerOfSize: 0@30. + + Preferences eToyFriendly ifFalse: [ panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Restore all Default Preference Settings' translated; target: Preferences; actionSelector: #chooseInitialSettings; setBalloonText: 'Click here to reset all the preferences to their standard default values.' translated ; yourself). panelPage addTransparentSpacerOfSize: 0@14. panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Save Current Settings as my Personal Preferences' translated; target: Preferences; actionSelector: #savePersonalPreferences; setBalloonText: 'Click here to save the current constellation of Preferences settings as your personal defaults; you can get them all reinstalled with a single gesture by clicking the "Restore my Personal Preferences".' translated; yourself). panelPage addTransparentSpacerOfSize: 0@14. panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Restore my Personal Preferences' translated; target: Preferences; actionSelector: #restorePersonalPreferences; setBalloonText: 'Click here to reset all the preferences to their values in your Personal Preferences.' translated; yourself). panelPage addTransparentSpacerOfSize: 0@30. panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Save Current Settings to Disk' translated; target: Preferences; actionSelector: #storePreferencesToDisk; setBalloonText: 'Click here to save the current constellation of Preferences settings to a file; you can get them all reinstalled with a single gesture by clicking "Restore Settings From Disk".' translated; yourself). panelPage addTransparentSpacerOfSize: 0@14. panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Restore Settings from Disk' translated; target: Preferences; actionSelector: #restorePreferencesFromDisk; setBalloonText: 'Click here to load all the preferences from their saved values on disk.' translated; yourself). panelPage addTransparentSpacerOfSize: 0@30. panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Inspect Parameters' translated; target: Preferences; actionSelector: #inspectParameters; setBalloonText: 'Click here to view all the values stored in the system Parameters dictionary' translated; yourself). - panelPage addTransparentSpacerOfSize: 0@10. panelPage addMorphBack: (Preferences themeChoiceButtonOfColor: Color transparent font: TextStyle defaultFont). panelPage addTransparentSpacerOfSize: 0@10. + ]. + panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Help!!' translated; target: Preferences; actionSelector: #giveHelpWithPreferences; setBalloonText: 'Click here to get some hints on use of this Preferences Panel' translated; yourself). panelPage wrapCentering: #center. !

1 0

Re: [etoys-dev] [JIRA] Created: (SQ-788) Fix SQ-650 to display <space> when space character is "last keystroke" breaks previous projects
by Bert Freudenberg 07 Sep '10

07 Sep '10

On 07.09.2010, at 06:19, Stephen Thomas (JIRA) wrote: > Fix Sq-650 which displays "<space>" instead of " " breaks previous projects where the user tests for " ". I can't see an easy way to fix up old projects on the fly, so it's either revert to old behavior or break old projects. It's still time to revert. You be the judge, it was your enhancement request in the first place :) Thanks for testing! - Bert -

2 1

Fwd: Vote for the best Smalltalk book of the last 5 years...
by Bert Freudenberg 07 Sep '10

07 Sep '10

Begin forwarded message: > From: Stéphane Ducasse <stephane.ducasse(a)inria.fr> > Date: 6. September 2010 17:06:20 MESZ > To: ESUG Mailing list <esug-list(a)lists.esug.org> > Subject: [Esug-list] Vote for the best Smalltalk book of the last 5 years... > > Dear Smalltalkers > > this year ESUG would like to reward effort made in book publications. Since we want to push new books but that it takes time to write books we will > take into account a window of 5 years. So you are requested to vote for the best book of the last 5 years. > > http://www.surveymonkey.com/s/Q2LKKDT > > the deadline is until wednesday 15 september at noon > > Stef on the behalf of the ESUG board. > _______________________________________________ > Esug-list mailing list > Esug-list(a)lists.esug.org > http://lists.esug.org/mailman/listinfo/esug-list_lists.esug.org - Bert -

1 0

4.1 Release Notes Questions
by Steve Thomas 07 Sep '10

07 Sep '10

Can someone provide more details on the following items from the release notes: - control-right click to resize objects" - can store preferences - how do I do this? Is this simply that the "Save Personal Preferences now works and didn't before? Also found the following items in Tracker not mentioned in Release notes for which more details (where to find/how to use) would be appreciated): - Add getter/setter for SoundPlayer reverb<http://tracker.squeakland.org/browse/SQ-606> - menu option "definition of word"<http://tracker.squeakland.org/browse/SQ-709> - where do I find this? - Copying text out of lists does not work<http://tracker.squeakland.org/browse/SQ-691> - Overlaps-any has some offset<http://tracker.squeakland.org/browse/SQ-605> - Not sure how overlaps any works, is this related to overlapping siblings? - Sound Recorder does not have a "save" scripting tile<http://tracker.squeakland.org/browse/SQ-673> - this had a fix for adding save tiles to the the Sound Recorder, but it is NOT in Etoys 4.1 (.cs with fix is in SQ-643<http://tracker.squeakland.org/browse/SQ-643>, the file in works in 4.0 but not in 4.1 beta) Also the Release Notes state: "also need proper attributions" For this I am putting the name(s) of the developers associated with tickets I find in tracker. Thanks, Stephen

2 1

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev September 2010