etoys-dev June 2010

etoys-dev@lists.squeakfoundation.org

22 participants
110 discussions

Etoys: Etoys-kfr.17.mcz
by commits＠source.squeak.org 06 Jun '10

06 Jun '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.17.mcz ==================== Summary ==================== Name: Etoys-kfr.17 Author: kfr Time: 6 June 2010, 4:19:33 pm UUID: 39000efb-d999-f342-864b-a5e94240e2af Ancestors: Etoys-kfr.16 Try to fix a problem caused in Etoys-kfr.12 with arrow deltas. All player gettermethods got categorized as variables =============== Diff against Etoys-kfr.14 =============== Item was changed: ----- Method: Player>>arrowDeltaFor: (in category 'misc') ----- arrowDeltaFor: aGetSelector "Answer the arrowDelta to use in conjunction with a readout for aGetSelector, which will be of the form 'getXXX'" + "(self slotInfoForGetter: aGetSelector) ifNotNilDo: [ :slotInfo | + ^slotInfo floatPrecision]." - (self slotInfoForGetter: aGetSelector) ifNotNilDo: [ :slotInfo | - ^slotInfo floatPrecision]. costume ifNotNil: [^ costume renderedMorph arrowDeltaFor: aGetSelector]. ^ 1! Item was changed: ----- Method: Player>>noteDecimalPlaces:forGetter: (in category 'misc') ----- noteDecimalPlaces: aNumber forGetter: aGetter "Note the given preference of decimal places for the given getter" + | | + "slotInfo _ self slotInfoAt: (Utilities inherentSelectorForGetter: aGetter). + slotInfo floatPrecision: (Utilities floatPrecisionForDecimalPlaces: aNumber)." - | slotInfo | - slotInfo _ self slotInfoAt: (Utilities inherentSelectorForGetter: aGetter). - slotInfo floatPrecision: (Utilities floatPrecisionForDecimalPlaces: aNumber). costume noteDecimalPlaces: aNumber forGetter: aGetter!

1 0

Etoys: Multilingual-Richo.11.mcz
by commits＠source.squeak.org 04 Jun '10

04 Jun '10

Ricardo Moran uploaded a new version of Multilingual to project Etoys: http://source.squeak.org/etoys/Multilingual-Richo.11.mcz ==================== Summary ==================== Name: Multilingual-Richo.11 Author: Richo Time: 4 June 2010, 8:31:43 am UUID: 7c742b0d-47d8-9b4c-956e-cd10efc24012 Ancestors: Multilingual-Richo.10 * Changing to korean locale wasn't installing the font because #isFontAvailable used to return true. The problem was that "TextStyle defaultFont fallbackFont fontArray" contained nil at korean's location. * I believe this was a problem of my image (I don't know how I got into that state) but I think this may be useful anyway. =============== Diff against Multilingual-Richo.10 =============== Item was changed: ----- Method: LanguageEnvironment>>isFontAvailable (in category 'fonts support') ----- isFontAvailable | encoding f | encoding := self leadingChar + 1. f _ TextStyle defaultFont. f isFontSet ifTrue: [ f fontArray at: encoding ifAbsent: [^ false]. ^ true ]. encoding = 1 ifTrue: [^ true]. + (f fallbackFont fontArray - f fallbackFont fontArray at: encoding + ifAbsent: [^ false]) isNil ifTrue: [^false]. - ifAbsent: [^ false]. ^ true !

1 0

Etoys: Multilingual-Richo.10.mcz
by commits＠source.squeak.org 04 Jun '10

04 Jun '10

Ricardo Moran uploaded a new version of Multilingual to project Etoys: http://source.squeak.org/etoys/Multilingual-Richo.10.mcz ==================== Summary ==================== Name: Multilingual-Richo.10 Author: Richo Time: 4 June 2010, 8:12:51 am UUID: 50916a7e-7fc6-2341-bedb-a769db363faf Ancestors: Multilingual-Richo.9 * Allows defining new sizes for TrueType fonts. =============== Diff against Multilingual-Richo.9 =============== Item was changed: ----- Method: TTCFont>>setupDefaultFallbackTextStyleTo: (in category 'friend') ----- setupDefaultFallbackTextStyleTo: aTextStyle | fonts f | + aTextStyle isNil ifTrue: [^self]. fonts _ aTextStyle fontArray. f _ fonts first. f familyName = self familyName ifTrue: [^ self]. 1 to: fonts size do: [:i | self height > (fonts at: i) height ifTrue: [f _ fonts at: i]. ]. self fallbackFont: f. self reset. !

1 0

Word Definition from WordNet
by Derek O'Connell 03 Jun '10

03 Jun '10

The attached cs is a quick fix-up to get menu option "definition of word" working again. What is the recommended way to package/distribute such a change?

5 10

Etoys Inbox: DrGeoII-Etoys-HilaireFernandes.7.mcz
by commits＠source.squeak.org 02 Jun '10

02 Jun '10

A new version of DrGeoII-Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/DrGeoII-Etoys-HilaireFernandes.7.mcz ==================== Summary ==================== Name: DrGeoII-Etoys-HilaireFernandes.7 Author: HilaireFernandes Time: 2 June 2010, 9:57:23 pm UUID: d246f960-6d3f-4daf-8982-bbce24a6ccf2 Ancestors: DrGeoII-Etoys-HilaireFernandes.6 Push DrGeo in Etoys Inbox ==================== Snapshot ==================== SystemOrganization addCategory: #'DrGeoII-Etoys'! ----- Method: DrGPointCostume>>getCurveAbscissa (in category '*DrGeoII-Etoys-scripting') ----- getCurveAbscissa (mathItem respondsTo: #abscissa) ifTrue: [^ mathItem exist ifTrue: [mathItem abscissa] ifFalse: [nil]] ifFalse: [^ nil]! ----- Method: DrGPointCostume>>getWorldX (in category '*DrGeoII-Etoys-scripting') ----- getWorldX ^mathItem point x! ----- Method: DrGPointCostume>>getWorldY (in category '*DrGeoII-Etoys-scripting') ----- getWorldY ^mathItem point y! ----- Method: DrGPointCostume>>setCurveAbscissa: (in category '*DrGeoII-Etoys-scripting') ----- setCurveAbscissa: aFloat (mathItem respondsTo: #abscissa:) ifTrue: [mathItem setCurveAbscissa: aFloat. self domain updateAllMathItems]! ----- Method: DrGPointCostume>>setWorldX: (in category '*DrGeoII-Etoys-scripting') ----- setWorldX: aFloat self domain moveEvent: mathItem at: aFloat @ mathItem point y ! ----- Method: DrGPointCostume>>setWorldY: (in category '*DrGeoII-Etoys-scripting') ----- setWorldY: aFloat self domain moveEvent: mathItem at: mathItem point x @ aFloat ! ----- Method: DrGValueCostume>>getMathItemValue (in category '*DrGeoII-Etoys-scripting') ----- getMathItemValue ^mathItem valueItem! ----- Method: DrGValueCostume>>setMathItemValue: (in category '*DrGeoII-Etoys-scripting') ----- setMathItemValue: aValue | freeValue | freeValue := self mathItem. freeValue class = DrGFreeValueItem ifTrue: [freeValue valueItem: aValue. self domain updateAllMathItems . self redraw]! ----- Method: DrGValueMorph classSide>>additionsToViewerCategoryDrGeo (in category '*DrGeoII-Etoys-flexiblevocabularies-scripting') ----- additionsToViewerCategoryDrGeo ^ #(drgeo ( (slot value 'The math item value' Number readWrite Player getMathItemValue Player setMathItemValue:) )) ! ----- Method: DrGValueMorph>>getMathItemValue (in category '*DrGeoII-Etoys-scripting') ----- getMathItemValue ^costume getMathItemValue! ----- Method: DrGValueMorph>>setMathItemValue: (in category '*DrGeoII-Etoys-scripting') ----- setMathItemValue: aValue costume setMathItemValue: aValue! ----- Method: Player>>getCurveAbscissa (in category '*DrGeoII-Etoys-slots') ----- getCurveAbscissa ^costume getCurveAbscissa! ----- Method: Player>>getMathItemValue (in category '*DrGeoII-Etoys-slots') ----- getMathItemValue ^costume getMathItemValue! ----- Method: Player>>getWorldX (in category '*DrGeoII-Etoys-slots') ----- getWorldX ^costume getWorldX! ----- Method: Player>>getWorldY (in category '*DrGeoII-Etoys-slots') ----- getWorldY ^costume getWorldY! ----- Method: Player>>setCurveAbscissa: (in category '*DrGeoII-Etoys-slots') ----- setCurveAbscissa: aFloat costume setCurveAbscissa: aFloat! ----- Method: Player>>setMathItemValue: (in category '*DrGeoII-Etoys-slots') ----- setMathItemValue: aValue ^ costume setMathItemValue: aValue! ----- Method: Player>>setWorldX: (in category '*DrGeoII-Etoys-slots') ----- setWorldX: aFloat costume setWorldX: aFloat! ----- Method: Player>>setWorldY: (in category '*DrGeoII-Etoys-slots') ----- setWorldY: aFloat costume setWorldY: aFloat! ----- Method: DrGPointMorph classSide>>additionsToViewerCategoryDrGeo (in category '*DrGeoII-Etoys-flexiblevocabularies-scripting') ----- additionsToViewerCategoryDrGeo ^ # (drgeo ( (slot curveAbscissa 'The abscissa of this point on the curve' Number readWrite Player getCurveAbscissa Player setCurveAbscissa:) (slot Xw 'The x coordinate in the DrGeoII world coordinate system' Number readWrite Player getWorldX Player setWorldX:) (slot Yw 'The y coordinate in the DrGeoII world coordinate system' Number readWrite Player getWorldY Player setWorldY:) ))! ----- Method: DrGPointMorph>>getCurveAbscissa (in category '*DrGeoII-Etoys-scripting') ----- getCurveAbscissa ^costume getCurveAbscissa! ----- Method: DrGPointMorph>>getWorldX (in category '*DrGeoII-Etoys-scripting') ----- getWorldX ^costume getWorldX! ----- Method: DrGPointMorph>>getWorldY (in category '*DrGeoII-Etoys-scripting') ----- getWorldY ^costume getWorldY! ----- Method: DrGPointMorph>>setCurveAbscissa: (in category '*DrGeoII-Etoys-scripting') ----- setCurveAbscissa: aFloat costume setCurveAbscissa: aFloat! ----- Method: DrGPointMorph>>setWorldX: (in category '*DrGeoII-Etoys-scripting') ----- setWorldX: aFloat costume setWorldX: aFloat! ----- Method: DrGPointMorph>>setWorldY: (in category '*DrGeoII-Etoys-scripting') ----- setWorldY: aFloat costume setWorldY: aFloat! ----- Method: DrGPointMorph>>x: (in category '*DrGeoII-Etoys-scripting') ----- x: aNumber | oldPosition newX | newX := costume drawable morphAbscissaToWorld: (self referencePlayfield cartesianOrigin x + aNumber). oldPosition := costume mathItem point. costume drawable view domain moveEvent: costume mathItem at: newX@oldPosition y! ----- Method: DrGPointMorph>>y: (in category '*DrGeoII-Etoys-scripting') ----- y: aNumber | oldPosition newY| newY := costume drawable morphOrdinateToWorld: (self referencePlayfield cartesianOrigin y - aNumber + 0). oldPosition := costume mathItem point. costume drawable app domain moveEvent: costume mathItem at: oldPosition x @ newY! BorderedMorph subclass: #DrGService instanceVariableNames: 'app area' classVariableNames: '' poolDictionaries: '' category: 'DrGeoII-Etoys'! ----- Method: DrGService classSide>>descriptionForPartsBin (in category 'parts bin') ----- descriptionForPartsBin ^ (DescriptionForPartsBin formalName: 'Dr. Geo' categoryList: #('Graphics' 'Tools' ) documentation: 'An interactive geometry canvas to draw dynamic geometric sketch. Open the Morph menu to get access to the construction tools and more.' translated globalReceiverSymbol: #DrGeo nativitySelector: #sample) sampleImageForm: DrGIcons angle! ----- Method: DrGService classSide>>in: (in category 'instance creation') ----- in: aDrgeo ^ self basicNew app: aDrgeo; initialize! ----- Method: DrGService classSide>>with: (in category 'instance creation') ----- with: aDrgeoModel ^ self basicNew initialize: aDrgeoModel! ----- Method: DrGService>>add:menuItemBtn:to: (in category 'menu') ----- add: btnSelector menuItemBtn: array to: menu menu add: array first target: self selector: #giveMeButton: argument: btnSelector. menu lastItem icon: (DrGIcons scaled16: array second); setBalloonText: array fourth ! ----- Method: DrGService>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: menu hand: aHandMorph "super addCustomMenuItems: menu hand: aHandMorph." | submenu | menu addLine. submenu := MenuMorph new. self addToolsMenuItems: submenu hand: aHandMorph. menu add: 'Dr. Geo tools' translated subMenu: submenu. submenu := MenuMorph new. self addGetButtonsMenuItems: submenu hand: aHandMorph. menu add: 'Give me Dr. Geo buttons' translated subMenu: submenu! ----- Method: DrGService>>addGetButtonsMenuItems:hand: (in category 'menu') ----- addGetButtonsMenuItems: menu hand: aHandMorph "from this menu we can ask for buttons to plug arround" self addPointBtnMenuItems: menu hand: aHandMorph. self addLineBtnMenuItems: menu hand: aHandMorph. self addTransformationBtnMenuItems: menu hand: aHandMorph. self addNumericBtnMenuItems: menu hand: aHandMorph. self addMacroBtnMenuItems: menu hand: aHandMorph. self addOtherBtnMenuItems: menu hand: aHandMorph.! ----- Method: DrGService>>addLineBtnMenuItems:hand: (in category 'menu') ----- addLineBtnMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self add: #lineBtn menuItemBtn: self drgeoPresenter lineButtonData to: subMenu. self add: #parallelBtn menuItemBtn: self drgeoPresenter parallelButtonData to: subMenu. self add: #perpendicularBtn menuItemBtn: self drgeoPresenter perpendicularButtonData to: subMenu. self add: #rayBtn menuItemBtn: self drgeoPresenter rayButtonData to: subMenu. self add: #segmentBtn menuItemBtn: self drgeoPresenter segmentButtonData to: subMenu. self add: #vectorBtn menuItemBtn: self drgeoPresenter vectorButtonData to: subMenu. self add: #circleBtn menuItemBtn: self drgeoPresenter circleButtonData to: subMenu. self add: #arcBtn menuItemBtn: self drgeoPresenter arcButtonData to: subMenu. self add: #polygonBtn menuItemBtn: self drgeoPresenter polygonButtonData to: subMenu. self add: #locusBtn menuItemBtn: self drgeoPresenter locusButtonData to: subMenu. menu add: ('Curves' translated) subMenu: subMenu! ----- Method: DrGService>>addLineMenuItems:hand: (in category 'menu') ----- addLineMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self addMenuItem: self drgeoPresenter lineButtonData to: subMenu. self addMenuItem: self drgeoPresenter parallelButtonData to: subMenu. self addMenuItem: self drgeoPresenter perpendicularButtonData to: subMenu. self addMenuItem: self drgeoPresenter rayButtonData to: subMenu. self addMenuItem: self drgeoPresenter segmentButtonData to: subMenu. self addMenuItem: self drgeoPresenter vectorButtonData to: subMenu. self addMenuItem: self drgeoPresenter circleButtonData to: subMenu. self addMenuItem: self drgeoPresenter arcButtonData to: subMenu. self addMenuItem: self drgeoPresenter polygonButtonData to: subMenu. self addMenuItem: self drgeoPresenter locusButtonData to: subMenu. menu add: 'Curves' translated subMenu: subMenu! ----- Method: DrGService>>addMacroBtnMenuItems:hand: (in category 'menu') ----- addMacroBtnMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self add: #macroBuildBtn menuItemBtn: self drgeoPresenter macroBuildButtonData to: subMenu. self add: #executeBtn menuItemBtn: self drgeoPresenter macroExecuteButtonData to: subMenu. menu add: 'Macro-construction' translated subMenu: subMenu! ----- Method: DrGService>>addMacroMenuItems:hand: (in category 'menu') ----- addMacroMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self addMenuItem: self drgeoPresenter macroBuildButtonData to: subMenu. self addMenuItem: self drgeoPresenter macroExecuteButtonData to: subMenu. self addMenuItem: self drgeoPresenter macroDeleteButtonData to: subMenu. menu add: 'Macro-construction' translated subMenu: subMenu! ----- Method: DrGService>>addMenuItem:to: (in category 'menu') ----- addMenuItem: array to: menu menu add: array first target: self drgeoPresenter selector: array third. menu lastItem setBalloonText: array fourth ! ----- Method: DrGService>>addNumericBtnMenuItems:hand: (in category 'menu') ----- addNumericBtnMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self add: #distanceBtn menuItemBtn: self drgeoPresenter distanceButtonData to: subMenu. self add: #angleBtn menuItemBtn: self drgeoPresenter angleButtonData to: subMenu. self add: #coordinatesBtn menuItemBtn: self drgeoPresenter coordinatesButtonData to: subMenu. self add: #scriptBtn menuItemBtn: self drgeoPresenter scriptButtonData to: subMenu. self add: #scriptEditBtn menuItemBtn: self drgeoPresenter scriptEditButtonData to: subMenu. menu add: 'Numerics' translated subMenu: subMenu! ----- Method: DrGService>>addNumericMenuItems:hand: (in category 'menu') ----- addNumericMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self addMenuItem: self drgeoPresenter distanceButtonData to: subMenu. self addMenuItem: self drgeoPresenter angleButtonData to: subMenu. self addMenuItem: self drgeoPresenter coordinatesButtonData to: subMenu. self addMenuItem: self drgeoPresenter scriptEditButtonData to: subMenu. self addMenuItem: self drgeoPresenter scriptButtonData to: subMenu. menu add: 'Numerics' translated subMenu: subMenu! ----- Method: DrGService>>addOtherBtnMenuItems:hand: (in category 'menu') ----- addOtherBtnMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self add: #undoBtn menuItemBtn: self drgeoPresenter undoButtonData to: subMenu. self add: #redoBtn menuItemBtn: self drgeoPresenter redoButtonData to: subMenu. self add: #eraserBtn menuItemBtn: self drgeoPresenter eraserButtonData to: subMenu. self add: #styleBtn menuItemBtn: self drgeoPresenter styleButtonData to: subMenu. self add: #propertyBtn menuItemBtn: self drgeoPresenter propertyButtonData to: subMenu. self add: #moveBtn menuItemBtn: self drgeoPresenter moveButtonData to: subMenu. self add: #gridBtn menuItemBtn: self drgeoPresenter gridButtonData to: subMenu. self add: #gridStuckBtn menuItemBtn: self drgeoPresenter gridStuckButtonData to: subMenu. self add: #viewerBtn menuItemBtn: self drgeoPresenter viewerButtonData to: subMenu. menu add: 'Other' translated subMenu: subMenu! ----- Method: DrGService>>addOtherMenuItems:hand: (in category 'menu') ----- addOtherMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self addMenuItem: self drgeoPresenter undoButtonData to: subMenu. self addMenuItem: self drgeoPresenter redoButtonData to: subMenu. self addMenuItem: self drgeoPresenter eraserButtonData to: subMenu. self addMenuItem: self drgeoPresenter styleButtonData to: subMenu. self addMenuItem: self drgeoPresenter propertyButtonData to: subMenu. self addMenuItem: self drgeoPresenter moveButtonData to: subMenu. subMenu addUpdating: #gridString target: self drgeoPresenter selector: #gridOnOff argumentList: #(); addUpdating: #griddedString target: self drgeoPresenter selector: #gridStuckOnOff argumentList: #(). self addMenuItem: self drgeoPresenter viewerButtonData to: subMenu. self addMenuItem: self drgeoPresenter multipleModeButtonData to: subMenu. subMenu addUpdating: #createMultipleString target: self drgeoPresenter selector: #createMultipleOnOff argumentList: #(); add: 'default position and scale' translated target: self area selector: #defaultScalePosition. menu add: 'Other' translated subMenu: subMenu! ----- Method: DrGService>>addPointBtnMenuItems:hand: (in category 'menu') ----- addPointBtnMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self add: #freePointBtn menuItemBtn: self drgeoPresenter freePointButtonData to: subMenu. self add: #middlePointBtn menuItemBtn: self drgeoPresenter middleButtonData to: subMenu. self add: #pointByCoordinatesBtn menuItemBtn: self drgeoPresenter pointByCoordinatesButtonData to: subMenu. menu add: 'Points' translated subMenu: subMenu! ----- Method: DrGService>>addPointMenuItems:hand: (in category 'menu') ----- addPointMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self addMenuItem: self drgeoPresenter freePointButtonData to: subMenu. self addMenuItem: self drgeoPresenter middleButtonData to: subMenu. self addMenuItem: self drgeoPresenter pointByCoordinatesButtonData to: subMenu. menu add: 'Points' translated subMenu: subMenu! ----- Method: DrGService>>addToolsMenuItems:hand: (in category 'menu') ----- addToolsMenuItems: menu hand: aHandMorph self addPointMenuItems: menu hand: aHandMorph. self addLineMenuItems: menu hand: aHandMorph. self addTransformationMenuItems: menu hand: aHandMorph. self addNumericMenuItems: menu hand: aHandMorph. self addMacroMenuItems: menu hand: aHandMorph. self addOtherMenuItems: menu hand: aHandMorph! ----- Method: DrGService>>addTransformationBtnMenuItems:hand: (in category 'menu') ----- addTransformationBtnMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self add: #symmetryBtn menuItemBtn: self drgeoPresenter symmetryButtonData to: subMenu. self add: #reflectionBtn menuItemBtn: self drgeoPresenter reflectionButtonData to: subMenu. self add: #translationBtn menuItemBtn: self drgeoPresenter translationButtonData to: subMenu. self add: #rotationBtn menuItemBtn: self drgeoPresenter rotationButtonData to: subMenu. self add: #homothetyBtn menuItemBtn: self drgeoPresenter homothetyButtonData to: subMenu. menu add: 'Transformations' translated subMenu: subMenu! ----- Method: DrGService>>addTransformationMenuItems:hand: (in category 'menu') ----- addTransformationMenuItems: menu hand: aHandMorph | subMenu | subMenu := MenuMorph new. self addMenuItem: self drgeoPresenter symmetryButtonData to: subMenu. self addMenuItem: self drgeoPresenter reflectionButtonData to: subMenu. self addMenuItem: self drgeoPresenter translationButtonData to: subMenu. self addMenuItem: self drgeoPresenter rotationButtonData to: subMenu. self addMenuItem: self drgeoPresenter homothetyButtonData to: subMenu. menu add: 'Transformations' translated subMenu: subMenu! ----- Method: DrGService>>angleBtn (in category 'button') ----- angleBtn ^ self buttonAtHand: self drgeoPresenter angleButtonData ! ----- Method: DrGService>>app (in category 'accessing') ----- app ^ app! ----- Method: DrGService>>app: (in category 'accessing') ----- app: anObject app := anObject! ----- Method: DrGService>>arcBtn (in category 'button') ----- arcBtn ^ self buttonAtHand: self drgeoPresenter arcButtonData ! ----- Method: DrGService>>area (in category 'accessing') ----- area ^ area! ----- Method: DrGService>>buttonAtHand: (in category 'button') ----- buttonAtHand: array " array first = button form array second = symbol callback array third = help string " ^ IconicButton new labelGraphic: (DrGIcons scaled24: array second); color: self colorButton; setBalloonText: array fourth translated; target: self drgeoPresenter; actionSelector: array third! ----- Method: DrGService>>circleBtn (in category 'button') ----- circleBtn ^ self buttonAtHand: self drgeoPresenter circleButtonData ! ----- Method: DrGService>>colorButton (in category 'button') ----- colorButton ^ Color green alpha: 0.2! ----- Method: DrGService>>coordinatesBtn (in category 'button') ----- coordinatesBtn ^ self buttonAtHand: self drgeoPresenter coordinatesButtonData ! ----- Method: DrGService>>distanceBtn (in category 'button') ----- distanceBtn ^ self buttonAtHand: self drgeoPresenter distanceButtonData ! ----- Method: DrGService>>drgeoPresenter (in category 'accessing') ----- drgeoPresenter ^ app presenter! ----- Method: DrGService>>editGroupBtn (in category 'button') ----- editGroupBtn ^ self buttonAtHand: self drgeoPresenter editGroupButtonData ! ----- Method: DrGService>>eraserBtn (in category 'button') ----- eraserBtn ^ self buttonAtHand: self drgeoPresenter eraserButtonData ! ----- Method: DrGService>>freePointBtn (in category 'button') ----- freePointBtn ^ self buttonAtHand: self drgeoPresenter freePointButtonData! ----- Method: DrGService>>giveMeButton: (in category 'button') ----- giveMeButton: aSymbol self currentHand attachMorph: (self perform: aSymbol)! ----- Method: DrGService>>gridBtn (in category 'button') ----- gridBtn ^ self buttonAtHand: self drgeoPresenter gridButtonData ! ----- Method: DrGService>>gridStuckBtn (in category 'button') ----- gridStuckBtn ^ self buttonAtHand: self drgeoPresenter gridStuckButtonData ! ----- Method: DrGService>>groupBtn (in category 'button') ----- groupBtn ^ self buttonAtHand: self drgeoPresenter groupButtonData ! ----- Method: DrGService>>homothetyBtn (in category 'button') ----- homothetyBtn ^ self buttonAtHand: self drgeoPresenter homothetyButtonData ! ----- Method: DrGService>>initialize (in category 'initialize-release') ----- initialize super initialize. self color: Color veryLightGray muchLighter . self borderWidth: 1. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. area := DrGDrawable newOn: app. self installTools! ----- Method: DrGService>>installTools (in category 'initialize-release') ----- installTools self addMorph: area fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@0 corner: -25@ -25)). self addMorph: self drgeoPresenter verticalWheel fullFrame: (LayoutFrame fractions: (1 @ 1 corner: 1 @ 1) offsets: (-25@ -120 corner: 0@ -20)). self addMorph: self drgeoPresenter horizontalWheel fullFrame: (LayoutFrame fractions: (1 @ 1 corner: 1 @ 1) offsets: (-120@ -25 corner: -20@0)). self addMorph: self drgeoPresenter zoomWheel fullFrame: (LayoutFrame fractions: (1 @ 0 corner: 1 @ 0) offsets: (-25@0 corner: 0@100)). area layoutChanged! ----- Method: DrGService>>isApplication (in category 'testing') ----- isApplication ^false! ----- Method: DrGService>>isService (in category 'testing') ----- isService ^true! ----- Method: DrGService>>lineBtn (in category 'button') ----- lineBtn ^ self buttonAtHand: self drgeoPresenter lineButtonData ! ----- Method: DrGService>>locusBtn (in category 'button') ----- locusBtn ^ self buttonAtHand: self drgeoPresenter locusButtonData ! ----- Method: DrGService>>macroBuildBtn (in category 'button') ----- macroBuildBtn ^ self buttonAtHand: self drgeoPresenter macroBuildButtonData ! ----- Method: DrGService>>macroDeleteBtn (in category 'button') ----- macroDeleteBtn ^ self buttonAtHand: self drgeoPresenter macroDeleteButtonData ! ----- Method: DrGService>>macroExecuteBtn (in category 'button') ----- macroExecuteBtn ^ self buttonAtHand: self drgeoPresenter macroExecuteButtonData ! ----- Method: DrGService>>middlePointBtn (in category 'button') ----- middlePointBtn ^ self buttonAtHand: self drgeoPresenter middleButtonData ! ----- Method: DrGService>>moveBtn (in category 'button') ----- moveBtn ^ self buttonAtHand: self drgeoPresenter moveButtonData ! ----- Method: DrGService>>multipleModeBtn (in category 'button') ----- multipleModeBtn ^ self buttonAtHand: self drgeoPresenter multipleModeButtonData ! ----- Method: DrGService>>parallelBtn (in category 'button') ----- parallelBtn ^ self buttonAtHand: self drgeoPresenter parallelButtonData ! ----- Method: DrGService>>perpendicularBtn (in category 'button') ----- perpendicularBtn ^ self buttonAtHand: self drgeoPresenter parallelButtonData! ----- Method: DrGService>>pointByCoordinatesBtn (in category 'button') ----- pointByCoordinatesBtn ^ self buttonAtHand: self drgeoPresenter pointByCoordinatesButtonData ! ----- Method: DrGService>>polygonBtn (in category 'button') ----- polygonBtn ^ self buttonAtHand: self drgeoPresenter polygonButtonData ! ----- Method: DrGService>>popupMenu (in category 'menu') ----- popupMenu "super addCustomMenuItems: menu hand: aHandMorph." | menu | menu := MenuMorph new title: 'Dr. Geo tools' translated. self addToolsMenuItems: menu hand: nil. menu addStayUpItem. menu popUpInWorld: World! ----- Method: DrGService>>propertyBtn (in category 'button') ----- propertyBtn ^ self buttonAtHand: self drgeoPresenter propertyButtonData ! ----- Method: DrGService>>rayBtn (in category 'button') ----- rayBtn ^ self buttonAtHand: self drgeoPresenter rayButtonData! ----- Method: DrGService>>redoBtn (in category 'button') ----- redoBtn ^ self buttonAtHand: self drgeoPresenter redoButtonData ! ----- Method: DrGService>>reflectionBtn (in category 'button') ----- reflectionBtn ^ self buttonAtHand: self drgeoPresenter reflectionButtonData ! ----- Method: DrGService>>rotationBtn (in category 'button') ----- rotationBtn ^ self buttonAtHand: self drgeoPresenter rotationButtonData ! ----- Method: DrGService>>scriptBtn (in category 'button') ----- scriptBtn ^ self buttonAtHand: self drgeoPresenter scriptButtonData ! ----- Method: DrGService>>scriptEditBtn (in category 'button') ----- scriptEditBtn ^ self buttonAtHand: self drgeoPresenter scriptEditButtonData ! ----- Method: DrGService>>segmentBtn (in category 'button') ----- segmentBtn ^ self buttonAtHand: self drgeoPresenter segmentButtonData ! ----- Method: DrGService>>styleBtn (in category 'button') ----- styleBtn ^ self buttonAtHand: self drgeoPresenter styleButtonData ! ----- Method: DrGService>>symmetryBtn (in category 'button') ----- symmetryBtn ^ self buttonAtHand: self drgeoPresenter symmetryButtonData ! ----- Method: DrGService>>translationBtn (in category 'button') ----- translationBtn ^ self buttonAtHand: self drgeoPresenter translationButtonData ! ----- Method: DrGService>>undoBtn (in category 'button') ----- undoBtn ^ self buttonAtHand: self drgeoPresenter undoButtonData ! ----- Method: DrGService>>vectorBtn (in category 'button') ----- vectorBtn ^ self buttonAtHand: self drgeoPresenter vectorButtonData ! ----- Method: DrGService>>viewerBtn (in category 'button') ----- viewerBtn ^ self buttonAtHand: self drgeoPresenter viewerButtonData !

1 0

Re: [etoys-dev] Etoys Inbox: Etoys-kfr.16.mcz
by karl ramberg 02 Jun '10

02 Jun '10

I sent this to the Inbox for testing and reviewing . I'm not sure if this is the right way to add a category. Karl On Wed, Jun 2, 2010 at 12:47 AM, <commits(a)source.squeak.org> wrote: > A new version of Etoys was added to project Etoys Inbox: > http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz > > ==================== Summary ==================== > > Name: Etoys-kfr.16 > Author: kfr > Time: 2 June 2010, 12:47:35 am > UUID: 52d4e13b-602e-2d44-aaeb-d0cac306756f > Ancestors: Etoys-kfr.14 > Backported From: Etoys-kfr.15 > > Makes a read only category 'world geometry' that is only visible to the > world. > > =============== Diff against Etoys-kfr.14 =============== > > Item was changed: > ----- Method: Player>>categoriesForWorld (in category 'slots-kernel') > ----- > categoriesForWorld > "Answer the list of categories given that the receiver is the Player > representing a World" > > | aList | > + aList _ #(color #'fill & border' scripting #'pen trails' #'world > geometry' playfield collections sound) asOrderedCollection. > - aList _ #(color #'fill & border' scripting #'pen trails' playfield > collections sound) asOrderedCollection. > aList add: #input. > Preferences eToyFriendly ifFalse: > [aList addAll: #(preferences #'as object' > display) ]. > > aList addAll: {ScriptingSystem nameForInstanceVariablesCategory. > ScriptingSystem nameForScriptsCategory}. > > ^ aList! > > Item was added: > + ----- Method: Morph class>>additionsToViewerCategoryWorldGeometry (in > category '*eToys-scripting') ----- > + additionsToViewerCategoryWorldGeometry > + "answer additions to the geometry viewer category" > + > + ^ #( #'world geometry' > + ( > + (slot length 'The length' Number readOnly Player > getLength Player unused ) > + (slot width 'The width' Number readOnly Player > getWidth Player unused ) > + (slot left 'The left edge' Number readOnly > Player getLeft Player unused ) > + (slot right 'The right edge' Number readOnly > Player getRight Player unused ) > + (slot top 'The top edge' Number readOnly Player > getTop Player unused ) > + (slot bottom 'The bottom edge' Number readOnly > Player getBottom Player unused ) > + > + > + ) > + ) > + > + > + ! > > Item was changed: > ----- Method: Morph>>filterViewerCategoryDictionary: (in category > '*Etoys-scripting') ----- > filterViewerCategoryDictionary: dict > "dict has keys of categories and values of priority. > You can remove categories here." > + > - > self wantsConnectionVocabulary > ifFalse: [ dict removeKey: #'connections to me' ifAbsent: > []. > dict removeKey: #connection ifAbsent: []]. > self wantsConnectorVocabulary > ifFalse: [ dict removeKey: #connector ifAbsent: [] ]. > self wantsEmbeddingsVocabulary > ifFalse: [dict removeKey: #embeddings ifAbsent: []]. > + self isWorldMorph ifFalse: > + [dict removeKey: #'world geometry' ifAbsent: []]. > - > Preferences eToyFriendly ifTrue: > [#(layout preferences display #'as object') do: > [:sym | dict removeKey: sym ifAbsent: []]. > > + self isWorldMorph ifFalse:[ > + dict removeKey: #preferences ifAbsent: []]. > - self isWorldMorph ifFalse: > - [dict removeKey: #preferences ifAbsent: []]. > dict removeKey: #display ifAbsent: []]! > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev >

2 2

How can I set the tick rate of a script from a script?
by Steve Thomas 02 Jun '10

02 Jun '10

Once again smalltalk will be fine, as I do not believe there are any tiles to do this. Thanks, Stephen

4 3

Etoys developer chat log
by Bert Freudenberg 02 Jun '10

02 Jun '10

Hi all, we just had a chat, few people around today (it's a holiday in the US): * Ricardo prefers the September release schedule * talked mostly about camera and movies * need replacement for the spam-ridden forums. help welcome. Full log below, as usual. And see you next Monday, same time: http://tinyurl.com/368xxgn - Bert - <Richo2> hi <Richo2> :) <bertf> ugh, I'm late -*- bertf apoligizes <bertf> apologizes, even ;) <bertf> hi Richo2 <Richo2> hi bert <bertf> anyone else here? <rockyBoland> I am <Richo2> hi rockyBoland <rockyBoland> hi <bertf> small group :) <bertf> Richo2: translation stuff is starting to look good :) <bertf> do you have an opinion abou the release schedule? <Richo2> thanks <Richo2> yes <Richo2> I think I prefer the second option <Richo2> just yesterday I added Andreas code <Richo2> for font support <bertf> Yes, saw that. <Richo2> and even though his code works fine, I'm worried of introducing a lot of new bugs <Richo2> having more time to found them and fix them is good <bertf> yes. we first need to switch over to using that code and then give it some time for testing <jecel> Would it be interesting to have the translation stuff in the basic Squeak? It would be nice if the GUI elements such as menus and buttons could be in local languages <bertf> Korakurider is working on getting the subversion repo into shape <bertf> jecel: definitely <bertf> I also tried http://www.squeaksource.com/WebCamMorph.html <bertf> copied the CameraPlugin from Scratch, works <bertf> (on Mac) <bertf> should work elsewhere too <bertf> rockyBoland: do you have some specific issue, or do you just want to listen in? <rockyBoland> mostly just listening in. I am considering using etoys to build a game for teaching GCD and LCM algorithms. --> matmo (~chatzilla(a)doconnel.force9.co.uk) has joined #etoys <matmo> hi all <Richo2> hi <bertf> ah, matmo <bertf> was just saying I tried WebCamMorph on Mac, works <matmo> great :-) <bertf> was surprised it drags in the plugin class. we don't use MC dependencies normally <bertf> and we do not have VM classes in the Etoys image <bertf> no VMMaker either <bertf> there is a bug when you rotate it <matmo> dependency removed <bertf> and duplicating it gives odd issues too :) <matmo> I had not thought of rotation or duplication yet but will check it out <bertf> maybe for easier testing we should make a project with the code? <bertf> we have some testers that are not familiar with Smalltalk tools <matmo> what issues have you got with duplication? <bertf> when closing one it stopped the other IIRC <bertf> I don't think we need to support duplicating it <matmo> projects, yes, there should be a some in a few days time (if squeakland upload works) <bertf> I thought the problems are specific to thomas' account <bertf> or do you have problems uploading too? --> karlram (~51aa9a20(a)skylab.immuexa.com) has joined #etoys <matmo> IIRC I tried an upload last week and failed (will check again). Also had problems saving. Will submit reports when I've had a chance to recheck it's not something I have done or doing. <bertf> karlram: hi <karlram> hi <matmo> hi <karlram> hi <matmo> the "movie" morph doesn't look like it has had much looove :-) <bertf> matmo: when more people have seen it maybe we can come up with a sensible list of tiles for it. <bertf> for now it seems you just threw everythin in ;) <bertf> the movie morph is one of the abandoned demos <matmo> sure. I've actually paired it down but any/all suggestions welcome <bertf> not much love indeed <bertf> well there are some unusual concepts, like the holder reference for storing frames <bertf> (in webcammorph) <matmo> what would you call storage for snapshots? <matmo> album <matmo> album? <karlram> there is also a internal video format <bertf> matmo: if possible, that should not be built-in <bertf> but rather you would write a script that gets a frame and puts it in a holder <bertf> that would be the "Etoys way" <bertf> though the idea of using moviemorph to hold frames might be interesting <matmo> I was thinking "convenience" and in that particular example taking multiple snapshots as fast as capturing <karlram> it would be nice if we could get project publishing work with videos <bertf> well, Etoys isn't really about "convenience", but about learning how stuff works ;) <matmo> the "manual mode" gives the script writer full control <bertf> yes. I think for a first iteration, that is all there should be <bertf> becasue it is impossible to remove features later <matmo> agree, I completely open to suggestions re use in learning context. I'm not in education so happily defer to others opinion <bertf> once we know how people would like to use it we can add convenience features, as needed <matmo> ok, so remove auto-capture? <bertf> well, hide at least <bertf> there are some tiles that are hidden in "etoy-friendly" mode <bertf> but if you are okay with removing it, that would be a good option for now too <bertf> makes code review simpler <matmo> ok, I'll take a look <bertf> do you have an idea about how to deal with the old cameramorph? <bertf> karlram: publishing movies doesn't work? <-- karlram (~51aa9a20(a)skylab.immuexa.com) has quit (Quit: CGI:IRC (EOF)) <bertf> oh. we lost karl <matmo> re camermorph, would it siffice to remove it from Objects tool? <bertf> Richo2: did you have anything else to chat about? <matmo> suffice <bertf> matmo: that's one option <rockyBoland> This chat room is obviously about etoys development. Is there a chat room or mailing list for etoys users? <bertf> it could also be rewritten to use CameraPlugin <Richo2> bertf: no, thanks <bertf> rockyBoland: not really <matmo> rewriting, yep, I planned to look at doing that <bertf> rockyBoland: most etoys users apparentyl don't liek chat rooms :) <matmo> many things, little time ;-) <bertf> it would allow older projects to work, if those should exist <rockyBoland> What about for people who want to develop projects using etoys? <matmo> ok, I will bump it up the list <bertf> rockyBoland: those are what I call "etoys users" <jecel> rockyBoland: this is a weekly developers meeting. The rest of the time this channel is very quiet and can certainly be used for general user questions <bertf> rockyBoland: but the better option is to write an email to the squeakland list <rockyBoland> Will do that. Sorry for interrupting your meeting. <bertf> no need to apoligize :) -*- bertf can't spell that word <jecel> Besides the list, there were also some online forums, right? I don't know how those are doing these days <bertf> attracting spam <bertf> we're considering to shut them down <bertf> replacing with google groups or yahoo groups or something like that <jecel> Ok, then the list is certainly the best place for users <bertf> needs to have a list gateway and forum view and spam protection <matmo> trying an upload to squeakland in a mo <bertf> ok <bertf> I'll call this meeting closed - everyone is welcome to stay around and chat of course. <bertf> the channel is open 24/7 :)

4 3

Etoys Inbox: Etoys-kfr.16.mcz
by commits＠source.squeak.org 02 Jun '10

02 Jun '10

A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz ==================== Summary ==================== Name: Etoys-kfr.16 Author: kfr Time: 2 June 2010, 12:47:35 am UUID: 52d4e13b-602e-2d44-aaeb-d0cac306756f Ancestors: Etoys-kfr.14 Backported From: Etoys-kfr.15 Makes a read only category 'world geometry' that is only visible to the world. =============== Diff against Etoys-kfr.14 =============== Item was changed: ----- Method: Player>>categoriesForWorld (in category 'slots-kernel') ----- categoriesForWorld "Answer the list of categories given that the receiver is the Player representing a World" | aList | + aList _ #(color #'fill & border' scripting #'pen trails' #'world geometry' playfield collections sound) asOrderedCollection. - aList _ #(color #'fill & border' scripting #'pen trails' playfield collections sound) asOrderedCollection. aList add: #input. Preferences eToyFriendly ifFalse: [aList addAll: #(preferences #'as object' display) ]. aList addAll: {ScriptingSystem nameForInstanceVariablesCategory. ScriptingSystem nameForScriptsCategory}. ^ aList! Item was added: + ----- Method: Morph class>>additionsToViewerCategoryWorldGeometry (in category '*eToys-scripting') ----- + additionsToViewerCategoryWorldGeometry + "answer additions to the geometry viewer category" + + ^ #( #'world geometry' + ( + (slot length 'The length' Number readOnly Player getLength Player unused ) + (slot width 'The width' Number readOnly Player getWidth Player unused ) + (slot left 'The left edge' Number readOnly Player getLeft Player unused ) + (slot right 'The right edge' Number readOnly Player getRight Player unused ) + (slot top 'The top edge' Number readOnly Player getTop Player unused ) + (slot bottom 'The bottom edge' Number readOnly Player getBottom Player unused ) + + + ) + ) + + + ! Item was changed: ----- Method: Morph>>filterViewerCategoryDictionary: (in category '*Etoys-scripting') ----- filterViewerCategoryDictionary: dict "dict has keys of categories and values of priority. You can remove categories here." + - self wantsConnectionVocabulary ifFalse: [ dict removeKey: #'connections to me' ifAbsent: []. dict removeKey: #connection ifAbsent: []]. self wantsConnectorVocabulary ifFalse: [ dict removeKey: #connector ifAbsent: [] ]. self wantsEmbeddingsVocabulary ifFalse: [dict removeKey: #embeddings ifAbsent: []]. + self isWorldMorph ifFalse: + [dict removeKey: #'world geometry' ifAbsent: []]. - Preferences eToyFriendly ifTrue: [#(layout preferences display #'as object') do: [:sym | dict removeKey: sym ifAbsent: []]. + self isWorldMorph ifFalse:[ + dict removeKey: #preferences ifAbsent: []]. - self isWorldMorph ifFalse: - [dict removeKey: #preferences ifAbsent: []]. dict removeKey: #display ifAbsent: []]!

1 0

Etoys: Morphic-KR.15.mcz
by commits＠source.squeak.org 01 Jun '10

01 Jun '10

korakurider uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-KR.15.mcz ==================== Summary ==================== Name: Morphic-KR.15 Author: KR Time: 1 June 2010, 5:01:32 pm UUID: 706a55a5-9d83-b04d-88da-14e90a2d29dc Ancestors: Morphic-KR.14 For SQ-562: Introduce index file for QuickGuides to translate and and control order of display of guide titles in index page. + the file "index.txt" is placed to where QG contents reside Format is like this: :NavBar|Navigator <--- categoryName|title of category PaintBrushes|Brushes <--- guideName|title of guide PaintColorPalette|Color Palette Order of guides in some category can be specified in this file. Titles for categories and guides can be translated. The file has to be UTF8 encoded. File name for each guide contents is assumed as <guideName>.sexp.data.gz. <guideName> should be named only with ascii characters for portability among various filename encodings. + Template of the index file can be generated by evaluating this: QuickGuideMorph buildDefaultIndex. QuickGuideMorph saveIndex. TODO: +wiki/html/sexp generation functionalities haven't been adopted to this change. +Buttons on index page are hard coded so aren't affected by translation. Changes from Morphic-KR.10; + terminology change: catalog->index; also name of file and related methods were changed + separator character is now "|" =============== Diff against Morphic-bf.12 =============== Item was added: + ----- Method: QuickGuideMorph>>loadPages (in category 'initialization') ----- + loadPages + | pageCount newPages page unusedPages | + pageCount := PagesForCategory inject: 0 into: [:arg :each | arg + (each size)]. + newPages _ OrderedCollection new: pageCount. + + page _ pages detect: [:p | (p hasProperty: #quickGuideHolder) and: [p knownName = 'index']] ifNone: [nil]. + page ifNil: [ + page _ QuickGuideHolderMorph new. + page guideName: 'index'. + page setProperty: #transitionSpec toValue: (Array with: 'silence' with: #none with: #none). + ]. + newPages add: page. + + Categories do: [:categoryRec | | catKey | + catKey := categoryRec first. + (PagesForCategory at: catKey) do: [: rec || guideName guideTitle | + guideName := rec first. + guideTitle := rec second. + page _ pages detect: [:p | (p hasProperty: #quickGuideHolder) and: [p knownName = guideName]] ifNone: [nil]. + page ifNil: [ + page _ QuickGuideHolderMorph new. + page guideName: guideName. + page guideNameInWords: guideTitle. + page setProperty: #transitionSpec toValue: (Array with: 'silence' with: #none with: #none). + ]. + newPages add: page. + ]. + ]. + + unusedPages _ pages reject: [:e | (newPages includes: e)]. + self newPages: (newPages, unusedPages) currentIndex: 1.! Item was added: + ----- Method: QuickGuideMorph classSide>>categoryTitleOf: (in category 'initialization') ----- + categoryTitleOf: catName + |catTitle| + Categories do: [:catRec | + (catRec first = catName ) + ifTrue: [ + catTitle := catRec second. + catTitle isNil ifTrue: [^catName] + ifFalse: [^catTitle]. + ]. + ]. + ^nil! Item was changed: BookMorph subclass: #QuickGuideMorph instanceVariableNames: 'control order' + classVariableNames: 'Categories Colors Descriptions HTMLJumpTo IndexPage IndexPageMimeString PagesForCategory Thumbnails' - classVariableNames: 'Colors Descriptions HTMLJumpTo IndexPage IndexPageMimeString Thumbnails' poolDictionaries: '' category: 'Morphic-Books'! !QuickGuideMorph commentStamp: 'tk 12/7/2007 15:15' prior: 0! A BookMorph that holds QuickGuides. World an AlignementMorph (the flap) an AlignementMorph a QuickGuideMorph (one page per guide, 54 pages. Page may be a stub if guide not in) a QuickGuideHolderMorph a BookMorph (4 pages) a PasteUpMorph (a page)! Item was changed: ----- Method: QuickGuideMorph>>showDescriptionMenu: (in category 'menu actions') ----- showDescriptionMenu: evt "The Jump To menu. Choose a guide to see next" | aMenu categories subMenu aWorld pos | aMenu _ MenuMorph new defaultTarget: self. aMenu addTitle: 'Quick Guides' translated. categories _ self class suggestedCategoryOrder. categories do: [:catName | subMenu _ self makeCategoryMenu: catName. + subMenu items ifNotEmpty: [ + aMenu add: (self class categoryTitleOf: catName) + subMenu: subMenu]]. - subMenu items ifNotEmpty: [aMenu add: catName translated subMenu: subMenu]]. aMenu add: 'Index' translated action: #goToIndex. aWorld _ aMenu currentWorld. pos _ aWorld primaryHand position - (aMenu fullBounds extent) + (-2@30). aMenu popUpAt: pos forHand: aWorld primaryHand in: aWorld. ! Item was added: + ----- Method: QuickGuideMorph classSide>>loadIndex (in category 'initialization') ----- + loadIndex + | st line rec categoryRec catKey catTitle guideName guideTitle| + Categories := OrderedCollection new. + PagesForCategory := Dictionary new. + st := FileStream readOnlyFileNamed: QuickGuideMorph guidePath, ( FileDirectory slash), 'index.txt'. + st text. + [st atEnd] whileFalse: [ + + line := (st upTo: Character linefeed) withoutTrailingBlanks. + (line first = $: ) ifTrue: [ "Category" + rec := line subStrings: '|'. + catKey := ((rec at: 1) subStrings: ':') at: 1. + rec size = 2 + ifTrue: [ catTitle := rec second] + ifFalse:[ catTitle := catKey]. + categoryRec := {catKey. catTitle}. + Categories add: categoryRec. + + PagesForCategory at: catKey put: OrderedCollection new. + ] ifFalse: [ + rec := line subStrings: '|'. + guideName := rec first. + rec size = 2 + ifTrue: [ + guideTitle := rec second] + ifFalse: [ + guideTitle := self getWordyName: guideName forCategory: catKey]. + (PagesForCategory at: catKey ) add: {guideName. guideTitle}. + ] + ].! Item was added: + ----- Method: QuickGuideMorph classSide>>getWordyName:forCategory: (in category 'initialization') ----- + getWordyName: guideName forCategory: guideCategory + "With guideName and category already filled in, make a name in words. Remove the cat name, and trailing digits. Separate words at capital letters. NavBarHowToUse3 -> 'How To Use' " + + | gn mm tt | + gn _ guideName allButFirst: guideCategory size. + gn _ gn withoutTrailingDigits. + mm _ gn size. + gn reversed doWithIndex: [:cc :ind | + ind < mm ifTrue: [ + cc isUppercase ifTrue: [ + tt _ mm + 1 - ind. + gn _ (gn copyFrom: 1 to: tt-1), ' ', (gn copyFrom: tt to: gn size)]. + cc == $- ifTrue: [ + tt _ mm + 1 - ind. + gn at: tt put: $ ]. "convert dash to space" + ]]. + ^ gn! Item was changed: ----- Method: QuickGuideMorph>>showMenuCategory: (in category 'menu actions') ----- showMenuCategory: catName "put up a menu with all guides in this category" | subMenu | subMenu _ self makeCategoryMenu: catName. + subMenu addTitle: (self class categoryTitleOf: catName). - subMenu addTitle: catName translated. subMenu popUpInWorld.! Item was changed: ----- Method: QuickGuideHolderMorph>>guideName: (in category 'accessing') ----- guideName: aString guideName _ aString. - self setGuideWordyName. self setNamePropertyTo: aString. ! Item was added: + ----- Method: QuickGuideMorph classSide>>defaultCatalog (in category 'initialization') ----- + defaultCatalog + | catalog | + catalog := Dictionary new. + self suggestedCategoryOrder + do: [:catKey| |articles| + articles := OrderedCollection new. + (self defaultOrderIn: catKey) + do: [:guideName | | guideTitle | + guideTitle := self getWordyName: guideName forCategory: catKey. + articles add: {guideName. guideTitle}. + ]. + catalog at: catKey put: articles. + ]. + ^catalog.! Item was added: + ----- Method: QuickGuideMorph classSide>>buildDefaultIndex (in category 'initialization') ----- + buildDefaultIndex + PagesForCategory := self defaultIndex. + Categories := OrderedCollection new. + self suggestedCategoryOrder + do: [:cat | |rec| + Categories add: {cat. cat}. + ]. + + ! Item was changed: ----- Method: QuickGuideMorph>>makeCategoryMenu: (in category 'menu actions') ----- makeCategoryMenu: catName "return a menu with all guides in this category. No title" | subMenu | subMenu _ MenuMorph new defaultTarget: self. + (PagesForCategory at: catName) + do: [:articleRec | + subMenu add: (articleRec second) + target: self + selector: #goToCardNamed: + argument: (articleRec first)]. - pages do: [:pp | - pp guideCategory = catName ifTrue: [ - subMenu add: pp guideNameInWords translated target: self - selector: #goToCardNamed: argument: pp guideName]]. ^ subMenu! Item was added: + ----- Method: QuickGuideMorph classSide>>defaultIndex (in category 'initialization') ----- + defaultIndex + | index | + index := Dictionary new. + self suggestedCategoryOrder + do: [:catKey| |articles| + articles := OrderedCollection new. + (self defaultOrderIn: catKey) + do: [:guideName | | guideTitle | + guideTitle := self getWordyName: guideName forCategory: catKey. + articles add: {guideName. guideTitle}. + ]. + index at: catKey put: articles. + ]. + ^index.! Item was added: + ----- Method: QuickGuideMorph classSide>>saveIndex (in category 'initialization') ----- + saveIndex + |stream | + stream := FileStream forceNewFileNamed: 'index.txt'. + stream lineEndConvention: #lf. + stream converter: UTF8TextConverter new. + [ + Categories + do: [:catRecord | + stream nextPut: $:. + stream nextPutAll: catRecord first. "category key" + (catRecord second ) = (catRecord first) + ifFalse:[ + stream nextPut: $|. + stream nextPutAll: catRecord second. "category title (translated)" + ]. + stream cr. + + (PagesForCategory at: (catRecord first)) + do: [:rec | + stream nextPutAll: rec first. "guideName" + stream nextPut: $|. + stream nextPutAll: rec second. "guide title (translated)" + stream cr. + ] + ] + ] ensure: [stream close].! Item was removed: - ----- Method: QuickGuideHolderMorph>>setGuideWordyName (in category 'initialization') ----- - setGuideWordyName - "With guideName and category already filled in, make a name in words. Remove the cat name, and trailing digits. Separate words at capital letters. NavBarHowToUse3 -> 'How To Use' " - - | gn mm tt | - guideCategory _ QuickGuideMorph categoryOf: guideName. - gn _ guideName allButFirst: guideCategory size. - gn _ gn withoutTrailingDigits. - mm _ gn size. - gn reversed doWithIndex: [:cc :ind | - ind < mm ifTrue: [ - cc isUppercase ifTrue: [ - tt _ mm + 1 - ind. - gn _ (gn copyFrom: 1 to: tt-1), ' ', (gn copyFrom: tt to: gn size)]. - cc == $- ifTrue: [ - tt _ mm + 1 - ind. - gn at: tt put: $ ]. "convert dash to space" - ]]. - ^ guideNameInWords _ gn translated!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev June 2010