| [796] | 1 | TMGOOT1 ;TMG/kst/OO Test code ;03/25/06
|
|---|
| 2 | ;;1.0;TMG-LIB;**1**;04/25/04
|
|---|
| 3 |
|
|---|
| 4 | ;"Kevin Toppenberg MD
|
|---|
| 5 | ;"GNU General Public License (GPL) applies
|
|---|
| 6 |
|
|---|
| 7 | ;------------------------------------------
|
|---|
| 8 | ;Main function below
|
|---|
| 9 | ;------------------------------------------
|
|---|
| 10 |
|
|---|
| 11 | MyFunct()
|
|---|
| 12 | new Widget ;"will store all instances of object type Widget
|
|---|
| 13 | new tWidget set tWidget=$name(Widget)
|
|---|
| 14 | new pWidget1 ;"will store 1 instance of Widget
|
|---|
| 15 |
|
|---|
| 16 | set pWidget1=$$new^TMGOOL(tWidget,"constrWidget^TMGOOWG")
|
|---|
| 17 |
|
|---|
| 18 | new done set done=0
|
|---|
| 19 | for do quit:(done)
|
|---|
| 20 | . new x,y
|
|---|
| 21 | . read "input x (enter to quit): ",x,!
|
|---|
| 22 | . if x="" set done=1 quit
|
|---|
| 23 | . read "input y: ",y,!
|
|---|
| 24 | . if y="" set done=1 quit
|
|---|
| 25 | . write "> ",x," * ",y,"= ",$$fn^TMGOOL(pWidget1,"Multiply",x,y),!
|
|---|
| 26 | . write "> ",x," / ",y,"= ",$$fn^TMGOOL(pWidget1,"Divide",x,y),!
|
|---|
| 27 | . new temp set temp=$$fn^TMGOOL(pWidget1,"Show",x)
|
|---|
| 28 | do delete^TMGOOL(pWidget1)
|
|---|
| 29 |
|
|---|
| 30 | write "That all folks!",!
|
|---|
| 31 |
|
|---|
| 32 | quit
|
|---|
