[etoys-dev] Etoys Inbox: DrGeoII-Core-HilaireFernandes.15.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 15 16:03:32 EDT 2010
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 at 0 corner: 1 at 1)
+ offsets: (0 at 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 at 0)).
+ self
+ addMorph: self drgeoPresenter zoomWheel
+ fullFrame: (LayoutFrame
+ fractions: (1 @ 0 corner: 1 @ 0)
+ offsets: (-25 at 0 corner: 0 at 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!
More information about the etoys-dev
mailing list