[ANN] Several goodies for Dolphin

Hi,

There are some assorted Dolphin goodies in
http://www.smalltalking.net/Goodies/Dolphin/

The growing list includes:

  - Smalltalk scripting
  - RTF Generation support
  - ODBC Extensions
  - Development Tools for Dolphin 5
  - Object Explorer
  - GraphicObjects, Lapiz(Pencil) and Tetris packages
  - FixedDecimalEdit and Float TypeConverters
  - rST - Remote Smalltalk for Dolphin 4.x & XP
  - POP and SMTP Sockets for Dolphin 4.x
  - STT - Smalltalk Templates port for Dolphin XP
  - Abreviations for Dolphin 5.0 (XP)
  - FTP with command console

Enjoy them,

Diego Gomez Deck

Hi Diego,
    I posted some fixes I've found for "DrawingShell show" in the
package:GraphicObjects in order for it to work in D5:
1. Change the method:
      GraphicObjectsView>>connectModel
         self model ifNotNil: [:m|
                   m when:#invalidate send: #invalidateGraphicObjectRect:
to: self
                  with: self model;
                "   when:#graphicAdded:  send: #onGraphicAdded:   to: self;
                  when:#graphicRemoved:  send: #onGraphicRemoved:   to:
self."
                   when:#invalidateRectangle:  send: #invalidateRectangle:
to: self ].
2. Add new method in: ( which was present in D4)
     Userlibrary>>dragDetect:  hWnd pt: aPOINTL
      <stdcall: bool DragDetect handle POINTL>
      ^self invalidCall.
3. Change the method: ( replace "MouseTracker at: aMouseEvent" to
           "forPresenter:at:")
    GraphicTrackerHandle>>onLeftButtonDrag: aMouseEvent
      (tracker := MouseTracker  forPresenter: arena startingAt: aMouseEvent
      screenPosition)
      origin: aMouseEvent position;
      startTracking: self.
   Then,  the examples in the GraphicObjects work in D5:
 **DrawingShell show model add: (GraphicNormalObject new metaObject:
      Object).
 **DrawingShell show model add: (GraphicNormalObject new metaObject: #(1
      'peep' #pop #(1 2 3))).
 **DrawingShell show model add: BorderLayoutGraphicObject example3.
 **DrawingShell show model add: ProportionalLayoutGraphicObject example1.

p.s. We should mannually add some colors to graphicAttributes in graphic
objects by "borderColor: & fillColor: methods":
 e.g.
  BorderLayoutGraphicObject class>>example1
     "DrawingShell show model add: self example1"
     ^self new centerGraphic: (GraphicEllipse new);
             north: (GraphicRectangle new borderColor:12615935;
             fillColor:8454143; yourself);
       east: (GraphicRectangle new borderColor:12615935;
             fillColor:8454143; yourself);
       west: (GraphicRectangle new borderColor:12615935;
             fillColor:8454143; yourself);
       south: (GraphicEllipse new borderColor:12615935;
             fillColor:8454143; yourself).





"Diego Gomez Deck" <[hidden email]> wrote:

"kuo" <[hidden email]> wrote in message
news:[hidden email]...
>....
> 2. Add new method in: ( which was present in D4)
>      Userlibrary>>dragDetect:  hWnd pt: aPOINTL
>       <stdcall: bool DragDetect handle POINTL>
>       ^self invalidCall.
> 3. Change the method: ( replace "MouseTracker at: aMouseEvent" to
>            "forPresenter:at:")
>...

D5 dropped the use of DragDetect() because it has a number of problems, e.g.
it only works for the right button, and tends to gobble up mouse down events
that are not initiating drags. In D5 the MouseTracker itself will take care
of drag detection, and this works with any mouse button and doesn't gobble
up events that it shouldn't, therefore it is not necessary or desirable to
use DragDetect. All one needs to do is to instantiate the MouseTracker in
the button down event handler.

Regards

Blair

Thank you. FixedDecimalEdit do not work for all regional settings; try
Lithuanian settings -- it didn't accept comma as decimal separator
correctly.
Vaidas

"Diego Gomez Deck" <[hidden email]> wrote in message
news:[hidden email]...

Thanks for the fixes... I just forwarded them to the authors [*].

Cheers,

Diego Gomez Deck


[*] These goodies was created in the context of Smalltalking
(www.smalltalking.net). Smalltalking is a non-profit organization based on
Argentina with the goal to provide an space to the people interested in
research in Object Technology.   We have a mail list in spanish, everyone
(at least every spanish speaker) is invited
(http://ar.groups.yahoo.com/group/smalltalking/).