Smalltalk: Wheel widget

You know this great SGThumbWheel widget from SGI's user interface?
Here it is - for VisualWorks!

Description:

• Can be used horizontally or vertically.
• Finite mode: you provide a minimum and maximum limit and adjust the angle range this interval is mapped to.
• Infinite mode: you determine the amount the value is changed by when the wheel performes a full rotation.

Fully integrated:

• Appears in the Canvas Tool's Palette.
• Can define a default model.
• Provides a properties dialog. Have a look:

Compatibility:

• Verified on VisualWorks 2.5. May run under other versions, too.
• For VisualWorks 3.0 (or 2.5 with event handling installed), you need this Fix by Jürgen Wigger:

  !WheelController methodsFor: 'event driven'!
  
  redButtonPressedEvent: event
          self selectDownAt: event point.
          self startDraggingAt: downPoint! !

Uncompressed: WheelWidget.st (28 KB)

• http (Magdeburg) (includes fix)
• ftp (Magdeburg)
• ftp (UIUC)

Compressed: WheelWidget.zip (6 KB)

• http (Magdeburg) (includes fix)