Class: RoundProgressIndicator

• Inheritance
• Description
• Instance protocol
  • accessing
  • drawing
  • initialization
• Examples

Inheritance:

   Object
   |
   +--GraphicsMedium
      |
      +--DisplaySurface
         |
         +--SimpleView
            |
            +--View
               |
               +--ProgressIndicator
                  |
                  +--RoundProgressIndicator

Package:

stx:libwidg3

Category:

Views-Misc

Version:

rev: 1.7 date: 2016/07/20 09:35:59

user: stefan

file: RoundProgressIndicator.st directory: libwidg3

module: stx stc-classLibrary: libwidg3

Author:

Claus Gittinger

Description:

RoundProgressIndicator provides the same functionality as
its superClass, ProgressIndicator; however, the percentage
display is in a round fashion.

Instance protocol:

 borderWidth

get the border width

 borderWidth: aWidth

set the border width

 redraw

redraw the percentage arc and optional percentage string

 initialize

Examples:

  |model top p h|

  model := 0 asValue.

  top := StandardSystemView new.
  top extent:100@100.
  top label:'Progress'.
  p := RoundProgressIndicator in:top.
  p model:model.
  p level:-1.

  p origin:(0.1@0.1) corner:(0.9@0.9).
  top open.

  [
      1 to:100 do:[:val |
          (Delay forSeconds:0.05) wait.
          model value:val 
      ]
  ] fork