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!
etoys-dev@lists.squeakfoundation.org