1Sub Main
2
3	rem Get reference to current active frame. Most time this will be
4	rem the basic ide by himself.
5	xTestFrame = StarDesktop.ActiveFrame
6
7	rem Create more then one indicator objects for this frame.
8	xIndicator1 = xTestFrame.createStatusIndicator()
9	xIndicator2 = xTestFrame.createStatusIndicator()
10	xIndicator3 = xTestFrame.createStatusIndicator()
11
12	rem Check status of creation. No null references should be detected.
13	if( isNull(xIndicator1)=TRUE ) or ( isNull(xIndicator2)=TRUE ) or ( isNull(xIndicator3)=TRUE ) then
14		msgbox "Error: Could not create status indicators!"
15		exit Sub
16	endif
17
18	rem Start working for indicator 1 and 2.
19	rem The window should NOT be shown!
20	xIndicator1.start( "Indicator 1:", 100 )
21	xIndicator2.start( "Indicator 2:", 200 )
22	msgbox "Indicator 1 and 2 was started ... the window should NOT be shown!"
23
24	rem Start working for indicator 3.
25	rem The window should be shown! It's the most active one.
26	xIndicator3.start( "Indicator 3:", 300 )
27	msgbox "Indicator 3 was started ... the window should be shown!"
28
29	rem Set different values and texts for indicator 1 and 2.
30	rem These values are not visible.
31	xIndicator1.setValue( 25 )
32	xIndicator2.setValue( 50 )
33
34	rem Work with indicator 3.
35	rem If working finished automaticly indicator 2 is reactivated.
36	i = 0
37	while i<300
38		xIndicator3.setText( "Indicator 3: Range=300 Value=" + i )
39		xIndicator3.setValue( i )
40		i = i+10
41		wait( 1 )
42	wend
43
44	rem Delete indicator 2 before you deactivate number 3!
45	rem The next automaticly activated indicator will be the number 1.
46	xIndicator2.end
47	msgbox "Indicator 3 will be destroyed. Indicator 2 was deleted ... number 1 must reactivated automaticly!"
48	xIndicator3.end
49
50	rem Work with indicator 1.
51	rem If working finished automaticly the window will be destroyed.
52	i = 25
53	while i<100
54		xIndicator1.setText( "Indicator 1: Range=100 Value=" + i )
55		xIndicator1.setValue( i )
56		i = i+10
57		wait( 1 )
58	wend
59	xIndicator1.setText( "Indicator 1: ... reset values to defaults" )
60	wait( 1000 )
61	xIndicator1.reset
62	xIndicator1.setText( "Indicator 1: ... set 50 % for progress" )
63	wait( 1000 )
64	xIndicator1.setValue( 50 )
65	msgbox "Indicator 1 will be destroyed. Indicator window must destroyed automaticly!"
66	xIndicator1.end
67
68	msgbox "Test for status indicator finished successful!"
69End Sub
70