eXept Software AG Logo

Smalltalk/X Webserver

Documentation of class 'RoundProgressIndicator':

Home

Documentation
www.exept.de
Everywhere
for:
[back]

Class: RoundProgressIndicator


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:

accessing
o  borderWidth
get the border width

o  borderWidth: aWidth
set the border width

drawing
o  redraw
redraw the percentage arc and optional percentage string

initialization
o  initialize


Examples:


getting progress from a model:
  |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


ST/X 7.1.0.0; WebServer 1.663 at exept.de:8081; Sat, 17 Nov 2018 09:24:14 GMT