etoys-dev June 2010

etoys-dev@lists.squeakfoundation.org

22 participants
110 discussions

DrGeo artifact in Etoys inbox
by Hilaire Fernandes 15 Jun '10

15 Jun '10

Hello, I have pushed DrGeo artifact in Etoys Inbox. There are two packages DrGeoII-Core and DrGeoII-Etoys to load in this order. Please check and report issues. To check for working translation, install in Etoys locale the DrGeoII.mo files : http://svn.gna.org/viewcvs/istoa/trunk/artefacts/drgeo/locale/?rev=130 (This link should work in a couple of hours, once the website is update from its crontab) Hilaire

4 11

Etoys Inbox: DrGeoII-Core-HilaireFernandes.16.mcz
by commits＠source.squeak.org 15 Jun '10

15 Jun '10

A new version of DrGeoII-Core was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/DrGeoII-Core-HilaireFernandes.16.mcz ==================== Summary ==================== Name: DrGeoII-Core-HilaireFernandes.16 Author: HilaireFernandes Time: 15 June 2010, 10:40:51.881 pm UUID: a6dc1f0e-5d02-4105-afde-5de204b9b665 Ancestors: DrGeoII-Core-HilaireFernandes.15 Fix in the create multiple mode Fix in the parallel and perpendicular creation mode. =============== Diff against DrGeoII-Core-HilaireFernandes.15 =============== Item was changed: ----- Method: DrGBuildTool>>reset (in category 'updating') ----- reset super reset. self stopBlinking. + self builder reset. + selectedCostumes := OrderedCollection new! - self builder reset! Item was changed: ----- Method: DrGParallelBuilder>>isWanted: (in category 'testing') ----- isWanted: aMathItemCollection aMathItemCollection ifEmpty: [^false]. + ^ (aMathItemCollection first isPointItem and: [pointA isNil]) + or: [aMathItemCollection first isDirectionItem and: [direction isNil]] - ^ (aMathItemCollection first isPointItem - and: [aMathItemCollection first ~= pointA]) - or: [aMathItemCollection first isDirectionItem - and: [aMathItemCollection first ~= direction]] ! Item was changed: ----- Method: DrGeoDomain>>addModelItemsToWindowMenu: (in category 'user interface') ----- addModelItemsToWindowMenu: aMenu aMenu addLine. aMenu add: 'About Dr. Geo II...' target: self selector: #inform: + argument: 'Copyright 1996-2010 Hilaire Fernandes'! - argument: 'Copyright 1996-2009 Hilaire Fernandes'! Item was removed: - ----- Method: DrGeoDomain>>updateDirtyMathItems (in category 'deprecated') ----- - updateDirtyMathItems - factory updateDirtyMathItems. - self triggerEvent: #updatedDirtyItems!

1 0

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

15 Jun '10

Bert Freudenberg uploaded a new version of DrGeoII-Etoys to project Etoys: http://source.squeak.org/etoys/DrGeoII-Etoys-HilaireFernandes.10.mcz ==================== Summary ==================== Name: DrGeoII-Etoys-HilaireFernandes.10 Author: HilaireFernandes Time: 15 June 2010, 10:04:33 pm UUID: 5090e77c-7504-49f6-b89e-4a8146ee63da Ancestors: DrGeoII-Etoys-HilaireFernandes.9 Fix =============== Diff against DrGeoII-Etoys-HilaireFernandes.7 =============== Item was changed: + ----- Method: DrGService classSide>>descriptionForPartsBin (in category '*DrGeoII-Etoys-parts bin') ----- - ----- 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.' translatedNoop - 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! Item was removed: - ----- Method: DrGService>>isApplication (in category 'testing') ----- - isApplication - ^false! Item was removed: - ----- Method: DrGService>>macroExecuteBtn (in category 'button') ----- - macroExecuteBtn - ^ self buttonAtHand: self drgeoPresenter macroExecuteButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>scriptBtn (in category 'button') ----- - scriptBtn - ^ self buttonAtHand: self drgeoPresenter scriptButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>homothetyBtn (in category 'button') ----- - homothetyBtn - ^ self buttonAtHand: self drgeoPresenter homothetyButtonData ! Item was removed: - ----- Method: DrGService>>reflectionBtn (in category 'button') ----- - reflectionBtn - ^ self buttonAtHand: self drgeoPresenter reflectionButtonData ! Item was removed: - ----- Method: DrGService>>macroBuildBtn (in category 'button') ----- - macroBuildBtn - ^ self buttonAtHand: self drgeoPresenter macroBuildButtonData ! Item was removed: - ----- Method: DrGService>>arcBtn (in category 'button') ----- - arcBtn - ^ self buttonAtHand: self drgeoPresenter arcButtonData ! Item was removed: - ----- Method: DrGService>>multipleModeBtn (in category 'button') ----- - multipleModeBtn - ^ self buttonAtHand: self drgeoPresenter multipleModeButtonData ! Item was removed: - BorderedMorph subclass: #DrGService - instanceVariableNames: 'app area' - classVariableNames: '' - poolDictionaries: '' - category: 'DrGeoII-Etoys'! Item was removed: - ----- Method: DrGService>>polygonBtn (in category 'button') ----- - polygonBtn - ^ self buttonAtHand: self drgeoPresenter polygonButtonData ! Item was removed: - ----- Method: DrGService>>giveMeButton: (in category 'button') ----- - giveMeButton: aSymbol - self currentHand attachMorph: (self perform: aSymbol)! Item was removed: - ----- Method: DrGService>>area (in category 'accessing') ----- - area - ^ area! Item was removed: - ----- Method: DrGService>>lineBtn (in category 'button') ----- - lineBtn - ^ self buttonAtHand: self drgeoPresenter lineButtonData ! Item was removed: - ----- Method: DrGService>>pointByCoordinatesBtn (in category 'button') ----- - pointByCoordinatesBtn - ^ self buttonAtHand: self drgeoPresenter pointByCoordinatesButtonData ! Item was removed: - ----- Method: DrGService>>groupBtn (in category 'button') ----- - groupBtn - ^ self buttonAtHand: self drgeoPresenter groupButtonData ! Item was removed: - ----- Method: DrGService>>editGroupBtn (in category 'button') ----- - editGroupBtn - ^ self buttonAtHand: self drgeoPresenter editGroupButtonData ! Item was removed: - ----- Method: DrGService>>isService (in category 'testing') ----- - isService - ^true! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>viewerBtn (in category 'button') ----- - viewerBtn - ^ self buttonAtHand: self drgeoPresenter viewerButtonData ! Item was removed: - ----- Method: DrGService>>scriptEditBtn (in category 'button') ----- - scriptEditBtn - ^ self buttonAtHand: self drgeoPresenter scriptEditButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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 - ! Item was removed: - ----- Method: DrGService>>macroDeleteBtn (in category 'button') ----- - macroDeleteBtn - ^ self buttonAtHand: self drgeoPresenter macroDeleteButtonData ! Item was removed: - ----- Method: DrGService>>coordinatesBtn (in category 'button') ----- - coordinatesBtn - ^ self buttonAtHand: self drgeoPresenter coordinatesButtonData ! Item was removed: - ----- Method: DrGService>>propertyBtn (in category 'button') ----- - propertyBtn - ^ self buttonAtHand: self drgeoPresenter propertyButtonData ! Item was removed: - ----- Method: DrGService>>app: (in category 'accessing') ----- - app: anObject - app := anObject! Item was removed: - ----- Method: DrGService>>drgeoPresenter (in category 'accessing') ----- - drgeoPresenter - ^ app presenter! Item was removed: - ----- Method: DrGService>>redoBtn (in category 'button') ----- - redoBtn - ^ self buttonAtHand: self drgeoPresenter redoButtonData ! Item was removed: - ----- Method: DrGService>>gridStuckBtn (in category 'button') ----- - gridStuckBtn - ^ self buttonAtHand: self drgeoPresenter gridStuckButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService classSide>>with: (in category 'instance creation') ----- - with: aDrgeoModel - ^ self basicNew initialize: aDrgeoModel! Item was removed: - ----- Method: DrGService>>rotationBtn (in category 'button') ----- - rotationBtn - ^ self buttonAtHand: self drgeoPresenter rotationButtonData ! Item was removed: - ----- Method: DrGService>>moveBtn (in category 'button') ----- - moveBtn - ^ self buttonAtHand: self drgeoPresenter moveButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>angleBtn (in category 'button') ----- - angleBtn - ^ self buttonAtHand: self drgeoPresenter angleButtonData ! Item was removed: - ----- Method: DrGService>>undoBtn (in category 'button') ----- - undoBtn - ^ self buttonAtHand: self drgeoPresenter undoButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>styleBtn (in category 'button') ----- - styleBtn - ^ self buttonAtHand: self drgeoPresenter styleButtonData ! Item was removed: - ----- Method: DrGService>>gridBtn (in category 'button') ----- - gridBtn - ^ self buttonAtHand: self drgeoPresenter gridButtonData ! Item was removed: - ----- Method: DrGService>>distanceBtn (in category 'button') ----- - distanceBtn - ^ self buttonAtHand: self drgeoPresenter distanceButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>perpendicularBtn (in category 'button') ----- - perpendicularBtn - ^ self buttonAtHand: self drgeoPresenter parallelButtonData! Item was removed: - ----- Method: DrGService>>app (in category 'accessing') ----- - app - ^ app! Item was removed: - ----- 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 - ! Item was removed: - ----- Method: DrGService>>vectorBtn (in category 'button') ----- - vectorBtn - ^ self buttonAtHand: self drgeoPresenter vectorButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>eraserBtn (in category 'button') ----- - eraserBtn - ^ self buttonAtHand: self drgeoPresenter eraserButtonData ! Item was removed: - ----- Method: DrGService>>segmentBtn (in category 'button') ----- - segmentBtn - ^ self buttonAtHand: self drgeoPresenter segmentButtonData ! Item was removed: - ----- 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.! Item was removed: - ----- Method: DrGService classSide>>in: (in category 'instance creation') ----- - in: aDrgeo - ^ self basicNew app: aDrgeo; - initialize! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>locusBtn (in category 'button') ----- - locusBtn - ^ self buttonAtHand: self drgeoPresenter locusButtonData ! Item was removed: - ----- Method: DrGService>>circleBtn (in category 'button') ----- - circleBtn - ^ self buttonAtHand: self drgeoPresenter circleButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>freePointBtn (in category 'button') ----- - freePointBtn - ^ self buttonAtHand: self drgeoPresenter freePointButtonData! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>translationBtn (in category 'button') ----- - translationBtn - ^ self buttonAtHand: self drgeoPresenter translationButtonData ! Item was removed: - ----- Method: DrGService>>symmetryBtn (in category 'button') ----- - symmetryBtn - ^ self buttonAtHand: self drgeoPresenter symmetryButtonData ! Item was removed: - ----- Method: DrGService>>parallelBtn (in category 'button') ----- - parallelBtn - ^ self buttonAtHand: self drgeoPresenter parallelButtonData ! Item was removed: - ----- Method: DrGService>>middlePointBtn (in category 'button') ----- - middlePointBtn - ^ self buttonAtHand: self drgeoPresenter middleButtonData ! Item was removed: - ----- Method: DrGService>>rayBtn (in category 'button') ----- - rayBtn - ^ self buttonAtHand: self drgeoPresenter rayButtonData! Item was removed: - ----- Method: DrGService>>colorButton (in category 'button') ----- - colorButton - ^ Color green alpha: 0.2!

1 0

Etoys: DrGeoII-Core-HilaireFernandes.15.mcz
by commits＠source.squeak.org 15 Jun '10

15 Jun '10

Bert Freudenberg uploaded a new version of DrGeoII-Core to project Etoys: http://source.squeak.org/etoys/DrGeoII-Core-HilaireFernandes.15.mcz ==================== Summary ==================== Name: DrGeoII-Core-HilaireFernandes.15 Author: HilaireFernandes Time: 15 June 2010, 10:03:05 pm UUID: 06473fd7-8f9a-4d02-b8fa-eec0b384bbcc Ancestors: DrGeoII-Core-HilaireFernandes.14 Small fixes =============== Diff against DrGeoII-Core-HilaireFernandes.12 =============== Item was added: + ----- 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! Item was changed: ----- Method: DrGeo classSide>>new (in category 'instance creation') ----- new "instanciate a standard DrGeo application" + ^ DrGDefault isEtoys + ifFalse: [self in: DrGeoDomain new] + ifTrue: [DrGeo sample openInWorld]! - ^ self in: DrGeoDomain new! Item was added: + ----- Method: DrGService>>gridBtn (in category 'button') ----- + gridBtn + ^ self buttonAtHand: self drgeoPresenter gridButtonData ! Item was added: + ----- Method: DrGService>>circleBtn (in category 'button') ----- + circleBtn + ^ self buttonAtHand: self drgeoPresenter circleButtonData ! Item was added: + ----- Method: DrGService>>styleBtn (in category 'button') ----- + styleBtn + ^ self buttonAtHand: self drgeoPresenter styleButtonData ! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>multipleModeBtn (in category 'button') ----- + multipleModeBtn + ^ self buttonAtHand: self drgeoPresenter multipleModeButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>reflectionBtn (in category 'button') ----- + reflectionBtn + ^ self buttonAtHand: self drgeoPresenter reflectionButtonData ! Item was added: + ----- Method: DrGService>>moveBtn (in category 'button') ----- + moveBtn + ^ self buttonAtHand: self drgeoPresenter moveButtonData ! Item was added: + ----- Method: DrGService>>arcBtn (in category 'button') ----- + arcBtn + ^ self buttonAtHand: self drgeoPresenter arcButtonData ! Item was added: + ----- Method: DrGService>>middlePointBtn (in category 'button') ----- + middlePointBtn + ^ self buttonAtHand: self drgeoPresenter middleButtonData ! Item was added: + ----- Method: DrGService>>macroBuildBtn (in category 'button') ----- + macroBuildBtn + ^ self buttonAtHand: self drgeoPresenter macroBuildButtonData ! Item was added: + ----- Method: DrGService>>coordinatesBtn (in category 'button') ----- + coordinatesBtn + ^ self buttonAtHand: self drgeoPresenter coordinatesButtonData ! Item was added: + ----- 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.! Item was added: + ----- Method: DrGService>>area (in category 'accessing') ----- + area + ^ area! Item was added: + ----- Method: DrGService>>homothetyBtn (in category 'button') ----- + homothetyBtn + ^ self buttonAtHand: self drgeoPresenter homothetyButtonData ! Item was added: + ----- Method: DrGService>>perpendicularBtn (in category 'button') ----- + perpendicularBtn + ^ self buttonAtHand: self drgeoPresenter parallelButtonData! Item was added: + ----- Method: DrGService>>giveMeButton: (in category 'button') ----- + giveMeButton: aSymbol + self currentHand attachMorph: (self perform: aSymbol)! Item was added: + ----- Method: DrGService>>gridStuckBtn (in category 'button') ----- + gridStuckBtn + ^ self buttonAtHand: self drgeoPresenter gridStuckButtonData ! Item was added: + ----- 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! Item was changed: Object subclass: #DrGeo instanceVariableNames: 'view domain costumes presenter' classVariableNames: '' poolDictionaries: '' category: 'DrGeoII-Core-App'! + !DrGeo commentStamp: 'HilaireFernandes 6/15/2010 21:29' prior: 0! + The application model. It is encapsulating our sub model: geometry model, tree model and script model. + Two viewers are proposed: + - a service is basicaly a canvas with wheel morphs, it can be embedded in bookmorph ,... + - a polymorph window with a friendly graphic user interface! - !DrGeo commentStamp: '<historical>' prior: 0! - The application model. It is encapsulating our sub model: geometry model, tree model and script model! Item was added: + ----- Method: DrGService>>macroDeleteBtn (in category 'button') ----- + macroDeleteBtn + ^ self buttonAtHand: self drgeoPresenter macroDeleteButtonData ! Item was added: + ----- Method: DrGService>>pointByCoordinatesBtn (in category 'button') ----- + pointByCoordinatesBtn + ^ self buttonAtHand: self drgeoPresenter pointByCoordinatesButtonData ! Item was added: + ----- Method: DrGService>>translationBtn (in category 'button') ----- + translationBtn + ^ self buttonAtHand: self drgeoPresenter translationButtonData ! Item was added: + ----- Method: DrGService>>lineBtn (in category 'button') ----- + lineBtn + ^ self buttonAtHand: self drgeoPresenter lineButtonData ! Item was added: + ----- Method: DrGService>>symmetryBtn (in category 'button') ----- + symmetryBtn + ^ self buttonAtHand: self drgeoPresenter symmetryButtonData ! Item was added: + ----- Method: DrGService>>rayBtn (in category 'button') ----- + rayBtn + ^ self buttonAtHand: self drgeoPresenter rayButtonData! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>app: (in category 'accessing') ----- + app: anObject + app := anObject! Item was added: + ----- Method: DrGService>>viewerBtn (in category 'button') ----- + viewerBtn + ^ self buttonAtHand: self drgeoPresenter viewerButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>redoBtn (in category 'button') ----- + redoBtn + ^ self buttonAtHand: self drgeoPresenter redoButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>eraserBtn (in category 'button') ----- + eraserBtn + ^ self buttonAtHand: self drgeoPresenter eraserButtonData ! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>scriptEditBtn (in category 'button') ----- + scriptEditBtn + ^ self buttonAtHand: self drgeoPresenter scriptEditButtonData ! Item was added: + ----- Method: DrGService>>angleBtn (in category 'button') ----- + angleBtn + ^ self buttonAtHand: self drgeoPresenter angleButtonData ! Item was added: + ----- Method: DrGService>>isService (in category 'testing') ----- + isService + ^true! Item was added: + ----- 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! Item was added: + ----- Method: DrGService classSide>>with: (in category 'instance creation') ----- + with: aDrgeoModel + ^ self basicNew initialize: aDrgeoModel! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>segmentBtn (in category 'button') ----- + segmentBtn + ^ self buttonAtHand: self drgeoPresenter segmentButtonData ! Item was added: + ----- Method: DrGService>>polygonBtn (in category 'button') ----- + polygonBtn + ^ self buttonAtHand: self drgeoPresenter polygonButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>editGroupBtn (in category 'button') ----- + editGroupBtn + ^ self buttonAtHand: self drgeoPresenter editGroupButtonData ! Item was added: + ----- Method: DrGService classSide>>in: (in category 'instance creation') ----- + in: aDrgeo + ^ self basicNew app: aDrgeo; + initialize! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>colorButton (in category 'button') ----- + colorButton + ^ Color green alpha: 0.2! Item was added: + ----- Method: DrGService>>undoBtn (in category 'button') ----- + undoBtn + ^ self buttonAtHand: self drgeoPresenter undoButtonData ! Item was added: + ----- Method: DrGService>>scriptBtn (in category 'button') ----- + scriptBtn + ^ self buttonAtHand: self drgeoPresenter scriptButtonData ! Item was added: + ----- Method: DrGService>>macroExecuteBtn (in category 'button') ----- + macroExecuteBtn + ^ self buttonAtHand: self drgeoPresenter macroExecuteButtonData ! Item was added: + ----- 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 + ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>groupBtn (in category 'button') ----- + groupBtn + ^ self buttonAtHand: self drgeoPresenter groupButtonData ! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- 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 + ! Item was added: + ----- Method: DrGService>>propertyBtn (in category 'button') ----- + propertyBtn + ^ self buttonAtHand: self drgeoPresenter propertyButtonData ! Item was added: + ----- Method: DrGService>>rotationBtn (in category 'button') ----- + rotationBtn + ^ self buttonAtHand: self drgeoPresenter rotationButtonData ! Item was added: + ----- Method: DrGService>>distanceBtn (in category 'button') ----- + distanceBtn + ^ self buttonAtHand: self drgeoPresenter distanceButtonData ! Item was added: + BorderedMorph subclass: #DrGService + instanceVariableNames: 'app area' + classVariableNames: '' + poolDictionaries: '' + category: 'DrGeoII-Core-App'! Item was added: + ----- Method: DrGService>>parallelBtn (in category 'button') ----- + parallelBtn + ^ self buttonAtHand: self drgeoPresenter parallelButtonData ! Item was added: + ----- Method: DrGService>>vectorBtn (in category 'button') ----- + vectorBtn + ^ self buttonAtHand: self drgeoPresenter vectorButtonData ! Item was added: + ----- Method: DrGService>>app (in category 'accessing') ----- + app + ^ app! Item was added: + ----- Method: DrGService>>locusBtn (in category 'button') ----- + locusBtn + ^ self buttonAtHand: self drgeoPresenter locusButtonData ! Item was added: + ----- Method: DrGService>>drgeoPresenter (in category 'accessing') ----- + drgeoPresenter + ^ app presenter! Item was added: + ----- Method: DrGService>>freePointBtn (in category 'button') ----- + freePointBtn + ^ self buttonAtHand: self drgeoPresenter freePointButtonData! Item was added: + ----- Method: DrGService>>isApplication (in category 'testing') ----- + isApplication + ^false! Item was removed: - ----- Method: DrGMathItem>>parentMovedEvent (in category 'deprecated') ----- - parentMovedEvent - "One of my parent has moved, mark myself as dirty and notify my dependants. - I will be updated later in a top-down iteration over the dirty item" - dirty := true. - self triggerEvent: #movedMathItem! Item was removed: - ----- Method: DrGMathItem>>releaseParentEvents (in category 'deprecated') ----- - releaseParentEvents - parents ifNotNil: - [parents do: - [:parent| - parent removeActionsWithReceiver: self]]! Item was removed: - ----- Method: DrGMathItem>>registerParentEvents (in category 'deprecated') ----- - registerParentEvents - parents ifNotNil: - [parents do: - [:parent| - parent - when: #movedMathItem - send: #parentMovedEvent - to: self]]! Item was removed: - ----- Method: DrGMathItemCostume>>dirtyMathItemNotification (in category 'deprecated') ----- - dirtyMathItemNotification - dirty := true! Item was removed: - ----- Method: DrGCompositeCostume>>isDirty (in category 'testing') ----- - isDirty - subCostumes do: [:aCostume | - aCostume isDirty ifTrue: [^true]]. - ^super isDirty! Item was removed: - ----- Method: DrGMathItem>>dirty (in category 'deprecated') ----- - dirty - ^dirty! Item was removed: - ----- Method: DrGMathItemFactory>>updateDirtyMathItems (in category 'deprecated') ----- - updateDirtyMathItems - "check for dirty mathItem and update as necessary" - pool do: [:aMathItem | - aMathItem dirty ifTrue: [aMathItem update]]! Item was removed: - ----- Method: DrGeo 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! Item was removed: - ----- Method: DrGMathItemCostume>>isDirty (in category 'deprecated') ----- - isDirty - ^dirty!

1 0

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

15 Jun '10

A new version of DrGeoII-Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/DrGeoII-Etoys-HilaireFernandes.10.mcz ==================== Summary ==================== Name: DrGeoII-Etoys-HilaireFernandes.10 Author: HilaireFernandes Time: 15 June 2010, 10:04:33 pm UUID: 5090e77c-7504-49f6-b89e-4a8146ee63da Ancestors: DrGeoII-Etoys-HilaireFernandes.9 Fix =============== Diff against DrGeoII-Etoys-HilaireFernandes.7 =============== Item was changed: + ----- Method: DrGService classSide>>descriptionForPartsBin (in category '*DrGeoII-Etoys-parts bin') ----- - ----- 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.' translatedNoop - 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! Item was removed: - ----- Method: DrGService>>isApplication (in category 'testing') ----- - isApplication - ^false! Item was removed: - ----- Method: DrGService>>macroExecuteBtn (in category 'button') ----- - macroExecuteBtn - ^ self buttonAtHand: self drgeoPresenter macroExecuteButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>scriptBtn (in category 'button') ----- - scriptBtn - ^ self buttonAtHand: self drgeoPresenter scriptButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>homothetyBtn (in category 'button') ----- - homothetyBtn - ^ self buttonAtHand: self drgeoPresenter homothetyButtonData ! Item was removed: - ----- Method: DrGService>>reflectionBtn (in category 'button') ----- - reflectionBtn - ^ self buttonAtHand: self drgeoPresenter reflectionButtonData ! Item was removed: - ----- Method: DrGService>>macroBuildBtn (in category 'button') ----- - macroBuildBtn - ^ self buttonAtHand: self drgeoPresenter macroBuildButtonData ! Item was removed: - ----- Method: DrGService>>arcBtn (in category 'button') ----- - arcBtn - ^ self buttonAtHand: self drgeoPresenter arcButtonData ! Item was removed: - ----- Method: DrGService>>multipleModeBtn (in category 'button') ----- - multipleModeBtn - ^ self buttonAtHand: self drgeoPresenter multipleModeButtonData ! Item was removed: - BorderedMorph subclass: #DrGService - instanceVariableNames: 'app area' - classVariableNames: '' - poolDictionaries: '' - category: 'DrGeoII-Etoys'! Item was removed: - ----- Method: DrGService>>polygonBtn (in category 'button') ----- - polygonBtn - ^ self buttonAtHand: self drgeoPresenter polygonButtonData ! Item was removed: - ----- Method: DrGService>>giveMeButton: (in category 'button') ----- - giveMeButton: aSymbol - self currentHand attachMorph: (self perform: aSymbol)! Item was removed: - ----- Method: DrGService>>area (in category 'accessing') ----- - area - ^ area! Item was removed: - ----- Method: DrGService>>lineBtn (in category 'button') ----- - lineBtn - ^ self buttonAtHand: self drgeoPresenter lineButtonData ! Item was removed: - ----- Method: DrGService>>pointByCoordinatesBtn (in category 'button') ----- - pointByCoordinatesBtn - ^ self buttonAtHand: self drgeoPresenter pointByCoordinatesButtonData ! Item was removed: - ----- Method: DrGService>>groupBtn (in category 'button') ----- - groupBtn - ^ self buttonAtHand: self drgeoPresenter groupButtonData ! Item was removed: - ----- Method: DrGService>>editGroupBtn (in category 'button') ----- - editGroupBtn - ^ self buttonAtHand: self drgeoPresenter editGroupButtonData ! Item was removed: - ----- Method: DrGService>>isService (in category 'testing') ----- - isService - ^true! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>viewerBtn (in category 'button') ----- - viewerBtn - ^ self buttonAtHand: self drgeoPresenter viewerButtonData ! Item was removed: - ----- Method: DrGService>>scriptEditBtn (in category 'button') ----- - scriptEditBtn - ^ self buttonAtHand: self drgeoPresenter scriptEditButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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 - ! Item was removed: - ----- Method: DrGService>>macroDeleteBtn (in category 'button') ----- - macroDeleteBtn - ^ self buttonAtHand: self drgeoPresenter macroDeleteButtonData ! Item was removed: - ----- Method: DrGService>>coordinatesBtn (in category 'button') ----- - coordinatesBtn - ^ self buttonAtHand: self drgeoPresenter coordinatesButtonData ! Item was removed: - ----- Method: DrGService>>propertyBtn (in category 'button') ----- - propertyBtn - ^ self buttonAtHand: self drgeoPresenter propertyButtonData ! Item was removed: - ----- Method: DrGService>>app: (in category 'accessing') ----- - app: anObject - app := anObject! Item was removed: - ----- Method: DrGService>>drgeoPresenter (in category 'accessing') ----- - drgeoPresenter - ^ app presenter! Item was removed: - ----- Method: DrGService>>redoBtn (in category 'button') ----- - redoBtn - ^ self buttonAtHand: self drgeoPresenter redoButtonData ! Item was removed: - ----- Method: DrGService>>gridStuckBtn (in category 'button') ----- - gridStuckBtn - ^ self buttonAtHand: self drgeoPresenter gridStuckButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService classSide>>with: (in category 'instance creation') ----- - with: aDrgeoModel - ^ self basicNew initialize: aDrgeoModel! Item was removed: - ----- Method: DrGService>>rotationBtn (in category 'button') ----- - rotationBtn - ^ self buttonAtHand: self drgeoPresenter rotationButtonData ! Item was removed: - ----- Method: DrGService>>moveBtn (in category 'button') ----- - moveBtn - ^ self buttonAtHand: self drgeoPresenter moveButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>angleBtn (in category 'button') ----- - angleBtn - ^ self buttonAtHand: self drgeoPresenter angleButtonData ! Item was removed: - ----- Method: DrGService>>undoBtn (in category 'button') ----- - undoBtn - ^ self buttonAtHand: self drgeoPresenter undoButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>styleBtn (in category 'button') ----- - styleBtn - ^ self buttonAtHand: self drgeoPresenter styleButtonData ! Item was removed: - ----- Method: DrGService>>gridBtn (in category 'button') ----- - gridBtn - ^ self buttonAtHand: self drgeoPresenter gridButtonData ! Item was removed: - ----- Method: DrGService>>distanceBtn (in category 'button') ----- - distanceBtn - ^ self buttonAtHand: self drgeoPresenter distanceButtonData ! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>perpendicularBtn (in category 'button') ----- - perpendicularBtn - ^ self buttonAtHand: self drgeoPresenter parallelButtonData! Item was removed: - ----- Method: DrGService>>app (in category 'accessing') ----- - app - ^ app! Item was removed: - ----- 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 - ! Item was removed: - ----- Method: DrGService>>vectorBtn (in category 'button') ----- - vectorBtn - ^ self buttonAtHand: self drgeoPresenter vectorButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>eraserBtn (in category 'button') ----- - eraserBtn - ^ self buttonAtHand: self drgeoPresenter eraserButtonData ! Item was removed: - ----- Method: DrGService>>segmentBtn (in category 'button') ----- - segmentBtn - ^ self buttonAtHand: self drgeoPresenter segmentButtonData ! Item was removed: - ----- 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.! Item was removed: - ----- Method: DrGService classSide>>in: (in category 'instance creation') ----- - in: aDrgeo - ^ self basicNew app: aDrgeo; - initialize! Item was removed: - ----- 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! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>locusBtn (in category 'button') ----- - locusBtn - ^ self buttonAtHand: self drgeoPresenter locusButtonData ! Item was removed: - ----- Method: DrGService>>circleBtn (in category 'button') ----- - circleBtn - ^ self buttonAtHand: self drgeoPresenter circleButtonData ! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>freePointBtn (in category 'button') ----- - freePointBtn - ^ self buttonAtHand: self drgeoPresenter freePointButtonData! Item was removed: - ----- 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! Item was removed: - ----- Method: DrGService>>translationBtn (in category 'button') ----- - translationBtn - ^ self buttonAtHand: self drgeoPresenter translationButtonData ! Item was removed: - ----- Method: DrGService>>symmetryBtn (in category 'button') ----- - symmetryBtn - ^ self buttonAtHand: self drgeoPresenter symmetryButtonData ! Item was removed: - ----- Method: DrGService>>parallelBtn (in category 'button') ----- - parallelBtn - ^ self buttonAtHand: self drgeoPresenter parallelButtonData ! Item was removed: - ----- Method: DrGService>>middlePointBtn (in category 'button') ----- - middlePointBtn - ^ self buttonAtHand: self drgeoPresenter middleButtonData ! Item was removed: - ----- Method: DrGService>>rayBtn (in category 'button') ----- - rayBtn - ^ self buttonAtHand: self drgeoPresenter rayButtonData! Item was removed: - ----- Method: DrGService>>colorButton (in category 'button') ----- - colorButton - ^ Color green alpha: 0.2!

1 0

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

15 Jun '10

A new version of DrGeoII-Core was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/DrGeoII-Core-HilaireFernandes.15.mcz ==================== Summary ==================== Name: DrGeoII-Core-HilaireFernandes.15 Author: HilaireFernandes Time: 15 June 2010, 10:03:05 pm UUID: 06473fd7-8f9a-4d02-b8fa-eec0b384bbcc Ancestors: DrGeoII-Core-HilaireFernandes.14 Small fixes =============== Diff against DrGeoII-Core-HilaireFernandes.12 =============== Item was added: + ----- 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! Item was changed: ----- Method: DrGeo classSide>>new (in category 'instance creation') ----- new "instanciate a standard DrGeo application" + ^ DrGDefault isEtoys + ifFalse: [self in: DrGeoDomain new] + ifTrue: [DrGeo sample openInWorld]! - ^ self in: DrGeoDomain new! Item was added: + ----- Method: DrGService>>gridBtn (in category 'button') ----- + gridBtn + ^ self buttonAtHand: self drgeoPresenter gridButtonData ! Item was added: + ----- Method: DrGService>>circleBtn (in category 'button') ----- + circleBtn + ^ self buttonAtHand: self drgeoPresenter circleButtonData ! Item was added: + ----- Method: DrGService>>styleBtn (in category 'button') ----- + styleBtn + ^ self buttonAtHand: self drgeoPresenter styleButtonData ! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>multipleModeBtn (in category 'button') ----- + multipleModeBtn + ^ self buttonAtHand: self drgeoPresenter multipleModeButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>reflectionBtn (in category 'button') ----- + reflectionBtn + ^ self buttonAtHand: self drgeoPresenter reflectionButtonData ! Item was added: + ----- Method: DrGService>>moveBtn (in category 'button') ----- + moveBtn + ^ self buttonAtHand: self drgeoPresenter moveButtonData ! Item was added: + ----- Method: DrGService>>arcBtn (in category 'button') ----- + arcBtn + ^ self buttonAtHand: self drgeoPresenter arcButtonData ! Item was added: + ----- Method: DrGService>>middlePointBtn (in category 'button') ----- + middlePointBtn + ^ self buttonAtHand: self drgeoPresenter middleButtonData ! Item was added: + ----- Method: DrGService>>macroBuildBtn (in category 'button') ----- + macroBuildBtn + ^ self buttonAtHand: self drgeoPresenter macroBuildButtonData ! Item was added: + ----- Method: DrGService>>coordinatesBtn (in category 'button') ----- + coordinatesBtn + ^ self buttonAtHand: self drgeoPresenter coordinatesButtonData ! Item was added: + ----- 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.! Item was added: + ----- Method: DrGService>>area (in category 'accessing') ----- + area + ^ area! Item was added: + ----- Method: DrGService>>homothetyBtn (in category 'button') ----- + homothetyBtn + ^ self buttonAtHand: self drgeoPresenter homothetyButtonData ! Item was added: + ----- Method: DrGService>>perpendicularBtn (in category 'button') ----- + perpendicularBtn + ^ self buttonAtHand: self drgeoPresenter parallelButtonData! Item was added: + ----- Method: DrGService>>giveMeButton: (in category 'button') ----- + giveMeButton: aSymbol + self currentHand attachMorph: (self perform: aSymbol)! Item was added: + ----- Method: DrGService>>gridStuckBtn (in category 'button') ----- + gridStuckBtn + ^ self buttonAtHand: self drgeoPresenter gridStuckButtonData ! Item was added: + ----- 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! Item was changed: Object subclass: #DrGeo instanceVariableNames: 'view domain costumes presenter' classVariableNames: '' poolDictionaries: '' category: 'DrGeoII-Core-App'! + !DrGeo commentStamp: 'HilaireFernandes 6/15/2010 21:29' prior: 0! + The application model. It is encapsulating our sub model: geometry model, tree model and script model. + Two viewers are proposed: + - a service is basicaly a canvas with wheel morphs, it can be embedded in bookmorph ,... + - a polymorph window with a friendly graphic user interface! - !DrGeo commentStamp: '<historical>' prior: 0! - The application model. It is encapsulating our sub model: geometry model, tree model and script model! Item was added: + ----- Method: DrGService>>macroDeleteBtn (in category 'button') ----- + macroDeleteBtn + ^ self buttonAtHand: self drgeoPresenter macroDeleteButtonData ! Item was added: + ----- Method: DrGService>>pointByCoordinatesBtn (in category 'button') ----- + pointByCoordinatesBtn + ^ self buttonAtHand: self drgeoPresenter pointByCoordinatesButtonData ! Item was added: + ----- Method: DrGService>>translationBtn (in category 'button') ----- + translationBtn + ^ self buttonAtHand: self drgeoPresenter translationButtonData ! Item was added: + ----- Method: DrGService>>lineBtn (in category 'button') ----- + lineBtn + ^ self buttonAtHand: self drgeoPresenter lineButtonData ! Item was added: + ----- Method: DrGService>>symmetryBtn (in category 'button') ----- + symmetryBtn + ^ self buttonAtHand: self drgeoPresenter symmetryButtonData ! Item was added: + ----- Method: DrGService>>rayBtn (in category 'button') ----- + rayBtn + ^ self buttonAtHand: self drgeoPresenter rayButtonData! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>app: (in category 'accessing') ----- + app: anObject + app := anObject! Item was added: + ----- Method: DrGService>>viewerBtn (in category 'button') ----- + viewerBtn + ^ self buttonAtHand: self drgeoPresenter viewerButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>redoBtn (in category 'button') ----- + redoBtn + ^ self buttonAtHand: self drgeoPresenter redoButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>eraserBtn (in category 'button') ----- + eraserBtn + ^ self buttonAtHand: self drgeoPresenter eraserButtonData ! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>scriptEditBtn (in category 'button') ----- + scriptEditBtn + ^ self buttonAtHand: self drgeoPresenter scriptEditButtonData ! Item was added: + ----- Method: DrGService>>angleBtn (in category 'button') ----- + angleBtn + ^ self buttonAtHand: self drgeoPresenter angleButtonData ! Item was added: + ----- Method: DrGService>>isService (in category 'testing') ----- + isService + ^true! Item was added: + ----- 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! Item was added: + ----- Method: DrGService classSide>>with: (in category 'instance creation') ----- + with: aDrgeoModel + ^ self basicNew initialize: aDrgeoModel! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>segmentBtn (in category 'button') ----- + segmentBtn + ^ self buttonAtHand: self drgeoPresenter segmentButtonData ! Item was added: + ----- Method: DrGService>>polygonBtn (in category 'button') ----- + polygonBtn + ^ self buttonAtHand: self drgeoPresenter polygonButtonData ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>editGroupBtn (in category 'button') ----- + editGroupBtn + ^ self buttonAtHand: self drgeoPresenter editGroupButtonData ! Item was added: + ----- Method: DrGService classSide>>in: (in category 'instance creation') ----- + in: aDrgeo + ^ self basicNew app: aDrgeo; + initialize! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>colorButton (in category 'button') ----- + colorButton + ^ Color green alpha: 0.2! Item was added: + ----- Method: DrGService>>undoBtn (in category 'button') ----- + undoBtn + ^ self buttonAtHand: self drgeoPresenter undoButtonData ! Item was added: + ----- Method: DrGService>>scriptBtn (in category 'button') ----- + scriptBtn + ^ self buttonAtHand: self drgeoPresenter scriptButtonData ! Item was added: + ----- Method: DrGService>>macroExecuteBtn (in category 'button') ----- + macroExecuteBtn + ^ self buttonAtHand: self drgeoPresenter macroExecuteButtonData ! Item was added: + ----- 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 + ! Item was added: + ----- 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! Item was added: + ----- Method: DrGService>>groupBtn (in category 'button') ----- + groupBtn + ^ self buttonAtHand: self drgeoPresenter groupButtonData ! Item was added: + ----- 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! Item was added: + ----- 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! Item was added: + ----- 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 + ! Item was added: + ----- Method: DrGService>>propertyBtn (in category 'button') ----- + propertyBtn + ^ self buttonAtHand: self drgeoPresenter propertyButtonData ! Item was added: + ----- Method: DrGService>>rotationBtn (in category 'button') ----- + rotationBtn + ^ self buttonAtHand: self drgeoPresenter rotationButtonData ! Item was added: + ----- Method: DrGService>>distanceBtn (in category 'button') ----- + distanceBtn + ^ self buttonAtHand: self drgeoPresenter distanceButtonData ! Item was added: + BorderedMorph subclass: #DrGService + instanceVariableNames: 'app area' + classVariableNames: '' + poolDictionaries: '' + category: 'DrGeoII-Core-App'! Item was added: + ----- Method: DrGService>>parallelBtn (in category 'button') ----- + parallelBtn + ^ self buttonAtHand: self drgeoPresenter parallelButtonData ! Item was added: + ----- Method: DrGService>>vectorBtn (in category 'button') ----- + vectorBtn + ^ self buttonAtHand: self drgeoPresenter vectorButtonData ! Item was added: + ----- Method: DrGService>>app (in category 'accessing') ----- + app + ^ app! Item was added: + ----- Method: DrGService>>locusBtn (in category 'button') ----- + locusBtn + ^ self buttonAtHand: self drgeoPresenter locusButtonData ! Item was added: + ----- Method: DrGService>>drgeoPresenter (in category 'accessing') ----- + drgeoPresenter + ^ app presenter! Item was added: + ----- Method: DrGService>>freePointBtn (in category 'button') ----- + freePointBtn + ^ self buttonAtHand: self drgeoPresenter freePointButtonData! Item was added: + ----- Method: DrGService>>isApplication (in category 'testing') ----- + isApplication + ^false! Item was removed: - ----- Method: DrGMathItem>>parentMovedEvent (in category 'deprecated') ----- - parentMovedEvent - "One of my parent has moved, mark myself as dirty and notify my dependants. - I will be updated later in a top-down iteration over the dirty item" - dirty := true. - self triggerEvent: #movedMathItem! Item was removed: - ----- Method: DrGMathItem>>releaseParentEvents (in category 'deprecated') ----- - releaseParentEvents - parents ifNotNil: - [parents do: - [:parent| - parent removeActionsWithReceiver: self]]! Item was removed: - ----- Method: DrGMathItem>>registerParentEvents (in category 'deprecated') ----- - registerParentEvents - parents ifNotNil: - [parents do: - [:parent| - parent - when: #movedMathItem - send: #parentMovedEvent - to: self]]! Item was removed: - ----- Method: DrGMathItemCostume>>dirtyMathItemNotification (in category 'deprecated') ----- - dirtyMathItemNotification - dirty := true! Item was removed: - ----- Method: DrGCompositeCostume>>isDirty (in category 'testing') ----- - isDirty - subCostumes do: [:aCostume | - aCostume isDirty ifTrue: [^true]]. - ^super isDirty! Item was removed: - ----- Method: DrGMathItem>>dirty (in category 'deprecated') ----- - dirty - ^dirty! Item was removed: - ----- Method: DrGMathItemFactory>>updateDirtyMathItems (in category 'deprecated') ----- - updateDirtyMathItems - "check for dirty mathItem and update as necessary" - pool do: [:aMathItem | - aMathItem dirty ifTrue: [aMathItem update]]! Item was removed: - ----- Method: DrGeo 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! Item was removed: - ----- Method: DrGMathItemCostume>>isDirty (in category 'deprecated') ----- - isDirty - ^dirty!

1 0

Re: is it possible to download etoys older versions? (Korakurider)
by Bruno Sperb 15 Jun '10

15 Jun '10

Ok, thanks a lot. Got it, and have installed in Windows Vista. Apparently it works alrigth. Just needed the 3.8-05 in my computer to be able to work with the kids, produce some material, etc. all the best, bruno Em 15/06/2010 10:45, etoys-dev-request(a)squeakland.org escreveu: > Send etoys-dev mailing list submissions to > etoys-dev(a)squeakland.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://lists.squeakland.org/mailman/listinfo/etoys-dev > or, via email, send a message with subject or body 'help' to > etoys-dev-request(a)squeakland.org > > You can reach the person managing the list at > etoys-dev-owner(a)squeakland.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of etoys-dev digest..." > > > Today's Topics: > > 1. Video - Etoys on iPad (Bert Freudenberg) > 2. Re: is it possible to download etoys older versions? (Korakurider) > 3. Re: Video - Etoys on iPad (Korakurider) > 4. Re: Video - Etoys on iPad (Derek O'Connell) > 5. Re: DrGeo artifact in Etoys inbox (Hilaire Fernandes) > 6. Re: DrGeo artifact in Etoys inbox (karl ramberg) > 7. Re: DrGeo artifact in Etoys inbox (Bert Freudenberg) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Tue, 15 Jun 2010 03:32:00 +0200 > From: Bert Freudenberg<bert(a)freudenbergs.de> > Subject: [etoys-dev] Video - Etoys on iPad > To: etoys dev<etoys-dev(a)squeakland.org> > Message-ID:<3F422E5F-F8DA-403A-AA0F-69716D008D54(a)freudenbergs.de> > Content-Type: text/plain; charset=us-ascii > > http://www.youtube.com/watch?v=gYrp31fH-Jk > > - Bert - > > > > > ------------------------------ > > Message: 2 > Date: Tue, 15 Jun 2010 12:26:59 +0900 > From: Korakurider<korakurider(a)gmail.com> > Subject: Re: [etoys-dev] is it possible to download etoys older > versions? > To: Bruno Sperb<brunosperb(a)yahoo.com.br> > Cc: etoys-dev(a)squeakland.org > Message-ID: > <AANLkTilpCHcH9ytAo45ZbJxgvOfOh65VosCLzKOsjj2g(a)mail.gmail.com> > Content-Type: text/plain; charset=ISO-8859-1 > > Hi Bruno. > > Which platform do you use? If it is windows, the installer is archived at > http://etoys.squeak.org/svn/tags/tinlizzie/installerVise/3.8-05/SqueakPlugi… > > But the 3.8-05 is really old version and I don't know if it really > works on your new box with newer windows. > Which version of Windows do you use? > > I would suggest you to use the latest Etoys package if possible. We > have improved many area > and it works on the latest windows/browser. > > > /Korakurider > > On Tue, Jun 15, 2010 at 10:27 AM, Bruno Sperb<brunosperb(a)yahoo.com.br> wrote: > >> Hey all, >> >> the laptops delivered now in Brazil (National UCA Project) have an older >> version of Etoys installed in it. I am wondering if I can get olders >> versions to download, and if it is still possible, where. I've searched >> around, but was not able to find... >> The version is specifically -"squeakland 3.8-05 version". >> can anyone help me with that? >> >> all the best, >> >> Bruno >> >> >> Em 14/06/2010 15:35, etoys-dev-request(a)squeakland.org escreveu: >> >> Send etoys-dev mailing list submissions to >> etoys-dev(a)squeakland.org >> To subscribe or unsubscribe via the World Wide Web, visit >> http://lists.squeakland.org/mailman/listinfo/etoys-dev >> or, via email, send a message with subject or body 'help' to >> etoys-dev-request(a)squeakland.org >> You can reach the person managing the list at >> etoys-dev-owner(a)squeakland.org >> When replying, please edit your Subject line so it is more specific >> than "Re: Contents of etoys-dev digest..." >> Today's Topics: >> 1. Etoys developer chat today (Bert Freudenberg) >> ---------------------------------------------------------------------- >> Message: 1 >> Date: Mon, 14 Jun 2010 12:39:17 +0200 >> From: Bert Freudenberg<bert(a)freudenbergs.de> >> Subject: [etoys-dev] Etoys developer chat today >> To: etoys-dev dev<etoys-dev(a)squeakland.org> >> Cc: "squeakland(a)squeakland.org list"<squeakland(a)squeakland.org>, The >> general-purpose Squeak developers list >> <squeak-dev(a)lists.squeakfoundation.org> >> Message-ID:<5E3C3954-EF69-4778-96EA-BF6C06731B5F(a)freudenbergs.de> >> Content-Type: text/plain; charset=us-ascii >> Please join our weekly Etoys developer chat today, as every Monday at 12 >> noon Squeakland Time. >> Follow this link to see the time in your local time zone: >> http://tinyurl.com/2bjpzbe >> To participate, enter your name as nickname on >> http://chat.squeakland.org/ >> and press "Login". Then say hi :-) >> Alternatively, use an IRC client of your choice to join #etoys on >> irc.freenode.net >> Everyone is welcome! >> - Bert - >> ------------------------------ >> _______________________________________________ >> etoys-dev mailing list >> etoys-dev(a)squeakland.org >> http://lists.squeakland.org/mailman/listinfo/etoys-dev >> End of etoys-dev Digest, Vol 46, Issue 25 >> ***************************************** >> >> >> _______________________________________________ >> etoys-dev mailing list >> etoys-dev(a)squeakland.org >> http://lists.squeakland.org/mailman/listinfo/etoys-dev >> >> >> > > ------------------------------ > > Message: 3 > Date: Tue, 15 Jun 2010 12:41:56 +0900 > From: Korakurider<korakurider(a)gmail.com> > Subject: Re: [etoys-dev] Video - Etoys on iPad > To: etoys dev<etoys-dev(a)squeakland.org> > Message-ID: > <AANLkTinefowibcB6cvvmfek_HMWM5yjN57dUNNqwCstx(a)mail.gmail.com> > Content-Type: text/plain; charset=ISO-8859-1 > > Cool ! > I am interested in what has been changed in squeak code and VM for > implementing multi-touch... > > /Korakurider > > On Tue, Jun 15, 2010 at 10:32 AM, Bert Freudenberg<bert(a)freudenbergs.de> wrote: > >> http://www.youtube.com/watch?v=gYrp31fH-Jk >> >> - Bert - >> >> >> _______________________________________________ >> etoys-dev mailing list >> etoys-dev(a)squeakland.org >> http://lists.squeakland.org/mailman/listinfo/etoys-dev >> >> > > ------------------------------ > > Message: 4 > Date: Tue, 15 Jun 2010 08:07:37 +0100 > From: Derek O'Connell<doc(a)doconnel.f9.co.uk> > Subject: Re: [etoys-dev] Video - Etoys on iPad > To: etoys-dev(a)squeakland.org > Message-ID:<4C1726B9.9030605(a)doconnel.f9.co.uk> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed > > On 15/06/10 02:32, Bert Freudenberg wrote: > >> http://www.youtube.com/watch?v=gYrp31fH-Jk >> >> - Bert - >> >> > Very nice Bert, well done! > > > ------------------------------ > > Message: 5 > Date: Tue, 15 Jun 2010 12:19:18 +0200 > From: Hilaire Fernandes<hilaire.fernandes(a)edu.ge.ch> > Subject: Re: [etoys-dev] DrGeo artifact in Etoys inbox > To: Bert Freudenberg<bert(a)freudenbergs.de> > Cc: etoys-dev<etoys-dev(a)squeakland.org> > Message-ID: > <AANLkTikhSt6hd8lkCqIAS5kQPYfJAK-Q28hgwkcpvmEo(a)mail.gmail.com> > Content-Type: text/plain; charset="iso-8859-1" > > Hello Bert, > > > 2010/6/14 Bert Freudenberg<bert(a)freudenbergs.de> > > >> Issues I noticed: >> >> * DrGeoII-core refers to DrGeoWindow and DrGeoService, both do not exist >> >> > DrGeoService I don' t think there are such class reference. > > > * there is an undeclared "dirty" inst var in both DrGMathItem and > >> DrGMathItemCostume >> >> > fixed. > > > > >> * DrGService class>>descriptionForPartsBin should use #translatedNoop, not >> #translated >> >> > > fixing > > I have push the fixes upstream > > Where should I push the fixes in the Etoys repository? > > > Would be nice if you could fix those. > >> Otherwise it seems to work fine (though I'm not fluent enough with it to do >> much). Maybe you could contribute an example project, too? >> >> > Indeed, it would be nice. > > > > >> Also, I think I remember reading about a nicer UI - are you still working >> on that? >> >> > This recent work to redesign and rethough the DrGeo user interface is based > on the Polymorph GUI extension ( > http://blog.ofset.org/hilaire/index.php?post/2010/06/07/DrGeoII-new-user-in…). > It improves a lot the usability of the application. > It will require some work to get an equivalent for Etoys. > > Hilaire > > __________________________________________________ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/

1 0

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

15 Jun '10

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.19.mcz ==================== Summary ==================== Name: Morphic-kfr.19 Author: kfr Time: 15 June 2010, 1:04:18 pm UUID: 515a8e38-5bd6-594c-a109-1fdf1b24a6ff Ancestors: Morphic-kfr.18 When a Holders indicate cursor is true and it's resize to fit is false the cursor will indicate stuff in the Holder outside the bounds of the Holder. =============== Diff against Morphic-kfr.18 =============== Item was changed: ----- Method: PasteUpMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas "Draw in order: - background color - grid, if any - background sketch, if any - Update and draw the turtleTrails form. See the comment in updateTrailsForm. - cursor box if any Later (in drawSubmorphsOn:) I will skip drawing the background sketch." "draw background fill" super drawOn: aCanvas. "draw grid" (self griddingOn and: [self gridVisible]) ifTrue: [aCanvas fillRectangle: self bounds fillStyle: (self gridFormOrigin: self gridOrigin grid: self gridModulus background: nil line: Color lightGray)]. "draw background sketch." backgroundMorph ifNotNil: [ self clipSubmorphs ifTrue: [ aCanvas clipBy: self clippingBounds during: [ :canvas | canvas fullDrawMorph: backgroundMorph ]] ifFalse: [ aCanvas fullDrawMorph: backgroundMorph ]]. "draw turtle trails" self updateTrailsForm. turtleTrailsForm ifNotNil: [aCanvas paintImage: turtleTrailsForm at: self position]. "draw cursor" (submorphs notEmpty and: [self indicateCursor]) ifTrue: + [self clipSubmorphs + ifTrue: + [aCanvas clipBy: self clippingBounds + during: [ :canvas | canvas + - [aCanvas frameRectangle: self selectedRect + width: 2 + + color: Color black]] + ifFalse: + [aCanvas frameRectangle: self selectedRect width: 2 color: Color black]]! - color: Color black]!

1 0

Etoys: MorphicExtras-kfr.5.mcz
by commits＠source.squeak.org 15 Jun '10

15 Jun '10

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.5.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.5 Author: kfr Time: 15 June 2010, 12:52:10 pm UUID: fedeb565-8e0c-4240-aa44-75f5a33d0721 Ancestors: MorphicExtras-Richo.4 Magnifyer, Add a test for flexing (changing heading). Increase stepTime to 100 mSec =============== Diff against MorphicExtras-Richo.4 =============== Item was changed: ----- Method: MagnifierMorph>>sourcePoint (in category 'magnifying') ----- sourcePoint "If we are being dragged use our center, otherwise use pointer position" ^(trackPointer not or: [owner notNil and: [owner isHandMorph]]) + ifTrue: [self isFlexed ifTrue:[owner center] ifFalse:[self center]] - ifTrue: [self center] ifFalse: [self currentHand position]! Item was changed: ----- Method: MagnifierMorph>>stepTime (in category 'testing') ----- stepTime + ^ 100 + ! - ^ 0!

1 0

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

15 Jun '10

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.18.mcz ==================== Summary ==================== Name: Morphic-kfr.18 Author: kfr Time: 15 June 2010, 12:47:16 pm UUID: b3ed5f7d-f23c-384f-b6a2-928643482808 Ancestors: Morphic-kfr.17 Display keystroke space as <space> in lastKeystroke =============== Diff against Morphic-KR.15 =============== 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 ] -> [ 'space' ]. - [ Character 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

← Newer
1
...
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev June 2010