[Newbies] Re: Project on squeak language
roger mpouma
rmpouma at gmail.com
Mon Aug 22 18:48:44 UTC 2016
Sorry it's an error from me, it's rather " "
2016-08-22 19:50 GMT+02:00 Joseph Alotta <joseph.alotta at gmail.com>:
> Is //modification a new way of doing comments?
>
> Sent from my iPhone
>
> On Aug 22, 2016, at 11:45 AM, Ron Teitelbaum [via Smalltalk] <[hidden
> email] <http:///user/SendEmail.jtp?type=node&node=4912226&i=0>> wrote:
>
> Hi Roger!
>
>
>
> That was a nice try!
>
>
>
> I modified methods:
>
> addCustomMenuItems: aCustomMenu hand: aHandMorph
> super addCustomMenuItems: aCustomMenu hand: aHandMorph.
> aCustomMenu add: 'clear' action: #clear.
> drawColor := Color red. //modification
> drawColor := Color yellow. //modification
> drawColor := Color green. //modification
> drawColor := Color blue. //modification
>
> *[Ron Teitelbaum]*
>
> *What this does is create a menu with one item clear and then it sets the
> drawColor to red yellow green and then blue. Since blue is the last color
> you end up with blue.*
>
> *Try creating drawRed, drawYellow, drawGreen, and drawBlue methods*
>
> *For example*
>
> *drawRed*
>
> * drawColor := Color red.*
>
> *Now add to your menu properly.*
>
> aCustomMenu add: 'clear' action: #clear.
> aCustomMenu add: 'red' action: #drawRed.
>
> *Where add is what you see in your menu and action is what happens when
> you select the menu item. (it calls: self drawRed)*
>
> *Do that with all your colors and you should be all set!*
>
> *You can also add menu items to adjust the size of the brush. Maybe make
> small brush, medium brush and large brush menu items? Works the same way
> as changing color. You need a brushSize instance variable. And initialize
> brushSize := 2.*
>
> *All the best,*
>
>
> *Ron Teitelbaum*
> initialize
> super initialize.
> self extent: 500 at 700.
> drawColor := Color black.
>
> mouseDown: evt
> brush := Pen newOnForm: form.
> brush roundNib: 2.
> brush color: drawColor.
> //modification
> lastMouse := evt cursorPoint - bounds origin.
> brush drawFrom: lastMouse to: lastMouse.
> self invalidRect:
> ((lastMouse - brush sourceForm extent corner:
> lastMouse + brush sourceForm extent)
> translateBy: bounds origin).
>
> The initial color is black.
>
> When i click the command "change color" on the menu and i chose for
> example the green color, the result is the blue color. I don't understand
> why ?
>
> And after the first choice, i must restart the program with the Workspace
> for change another color. So i can't make several choices at the same time.
>
> How can I solve these problems ? and to change size of the brush ?
>
> Thank you in advance.
>
>
>
> 2016-08-21 3:14 GMT+02:00 Ron Teitelbaum <[hidden email]
> <http:///user/SendEmail.jtp?type=node&node=4912223&i=0>>:
>
>
>
>
>
> *From:* roger mpouma
> *Sent:* Saturday, August 20, 2016 2:42 PM
>
>
>
> How can i make this please ?
>
> I thought to add "color" and "size" commands as "clear" command in the
> custom menu code. After that, add "color" and "size" methods...
>
> *[Ron Teitelbaum] *
>
> *What I was thinking is making buttons on the panel. Color buttons with a
> highlight around it so you can see what is selected. You could instead add
> something like Red or Blue to the menu.*
>
>
>
> *On your class add some instance variable called drawColor or something
> like that.*
>
>
>
> *When the menu item Red is called you would do *
>
>
>
> *drawColor := Color red.*
>
>
>
> *Then in mouseDown:*
>
>
>
> brush color: drawColor.
>
>
>
> Initialize your color to something like black
>
>
>
> Initialize
>
>
>
> drawColor := Color black.
>
>
>
> So that the user is not required to use the menu to get the default color
> (black).
>
>
>
> Hope that helps,
>
>
> Ron
>
>
>
> 2016-08-20 20:26 GMT+02:00 Ron Teitelbaum <[hidden email]
> <http:///user/SendEmail.jtp?type=node&node=4912223&i=1>>:
>
> Have you considered having a menu bar with colors and line sizes. The
> users can select the color and line size which will change your program to
> use those settings.
>
>
>
> All the best,
>
>
>
> Ron Teitelbaum
>
>
>
> *From:* [hidden email]
> <http:///user/SendEmail.jtp?type=node&node=4912223&i=2> [mailto:[hidden
> email] <http:///user/SendEmail.jtp?type=node&node=4912223&i=3>] *On
> Behalf Of *roger mpouma
>
> *Sent:* Saturday, August 20, 2016 1:51 PM
> *To:* A friendly place to get answers to even the most basic questions
> about Squeak.
> *Subject:* Re: [Newbies] Project on squeak language
>
>
>
> I have already implemented the canvas on which we draw, the possibility of
> drawing with the brush but with only a single color and a single size, a
> capacity to erase what we have already drawn with the "Clear" command on
> the custom menu code.
> So, i'd like to add the possibility of changing the color and the size of
> the brush presenting the choices of color and brush size.
>
> The differents methods are:
>
> "Methods"
>
> extent: aPoint
> | newForm |
> super extent: aPoint.
> newForm := Form extent: self extent depth: 16.
> newForm fillColor: Color veryLightGray.
> form ifNotNil: [form displayOn: newForm].
> form := newForm.
>
>
> initialize
> super initialize.
> self extent: 500 at 350.
>
> drawOn: aCanvas
> aCanvas image: form at: bounds origin.
>
> handlesMouseDown: evt
> ^ true
>
> mouseDown: evt
> brush := Pen newOnForm: form.
> brush roundNib: 3.
> brush color: Color red.
> lastMouse := evt cursorPoint - bounds origin.
> brush drawFrom: lastMouse to: lastMouse.
> self invalidRect:
> ((lastMouse - brush sourceForm extent corner:
> lastMouse + brush sourceForm extent)
> translateBy: bounds origin).
>
>
> mouseMove: evt
> | p |
> p := evt cursorPoint - bounds origin.
> p = lastMouse ifTrue: [^ self].
> brush drawFrom: lastMouse to: p.
> self invalidRect: ((
> ((lastMouse min: p) - brush sourceForm extent) corner:
> ((lastMouse max: p) + brush sourceForm extent))
> translateBy: bounds origin).
> lastMouse := p.
>
>
> addCustomMenuItems: aCustomMenu hand: aHandMorph
> super addCustomMenuItems: aCustomMenu hand: aHandMorph.
> aCustomMenu add: 'clear' action: #clear.
>
>
> clear
> form fillColor: Color veryLightGray.
> self changed.
>
> "Class PaintMorph"
>
> Morph subclass: #PaintMorph
> instanceVariableNames: 'form brush lastMouse'
> classVariableNames: ''
> poolDictionaries: ''
> category: 'Morphic-Fun'
>
> "Workspace"
> PaintMorph new openInWorld.
>
>
>
> Thank you in advance.
>
>
>
> 2016-08-20 18:47 GMT+02:00 Bert Freudenberg <[hidden email]
> <http:///user/SendEmail.jtp?type=node&node=4912223&i=4>>:
>
> Sure. Just ask some specific questions - e.g. what you tried, what worked,
> what didn't etc.
>
>
>
> - Bert -
>
>
>
> On Sat, Aug 20, 2016 at 10:59 AM, roger mpouma <[hidden email]
> <http:///user/SendEmail.jtp?type=node&node=4912223&i=5>> wrote:
>
> Hello,
> I need help for a drawing project on Squeak. I'd like implement a canvas
> on which we draw with the possibility of drawing with brush changing the
> color and size of the brush. Is it possibile to have help ?
>
> Thank you in advance.
>
> _______________________________________________
> Beginners mailing list
> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4912223&i=6>
> http://lists.squeakfoundation.org/mailman/listinfo/beginners
>
>
>
>
> _______________________________________________
> Beginners mailing list
> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4912223&i=7>
> http://lists.squeakfoundation.org/mailman/listinfo/beginners
>
>
>
>
> _______________________________________________
> Beginners mailing list
> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4912223&i=8>
> http://lists.squeakfoundation.org/mailman/listinfo/beginners
>
>
>
>
> _______________________________________________
> Beginners mailing list
> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4912223&i=9>
> http://lists.squeakfoundation.org/mailman/listinfo/beginners
>
>
>
> _______________________________________________
> Beginners mailing list
> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4912223&i=10>
> http://lists.squeakfoundation.org/mailman/listinfo/beginners
>
>
> ------------------------------
> If you reply to this email, your message will be added to the discussion
> below:
> http://forum.world.st/Project-on-squeak-language-tp4912035p4912223.html
> To start a new topic under Squeak - Beginners, email [hidden email]
> <http:///user/SendEmail.jtp?type=node&node=4912226&i=1>
> To unsubscribe from Squeak - Beginners, click here.
> NAML
> <http://forum.world.st/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>
>
> ------------------------------
> View this message in context: Re: Project on squeak language
> <http://forum.world.st/Project-on-squeak-language-tp4912035p4912226.html>
> Sent from the Squeak - Beginners mailing list archive
> <http://forum.world.st/Squeak-Beginners-f107673.html> at Nabble.com.
>
> _______________________________________________
> Beginners mailing list
> Beginners at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/mailman/listinfo/beginners
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/beginners/attachments/20160822/41c6356b/attachment-0001.htm
More information about the Beginners
mailing list