[etoys-dev] Etoys Inbox: DrGeoII-Etoys-HilaireFernandes.10.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 15 16:04:31 EDT 2010
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 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 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!
More information about the etoys-dev
mailing list