home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / oct94 / mp_fig11.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  5.5 KB  |  290x353  |  4-bit (5 colors)
   ocr: SEICOLORCHFIClde-setcolor method setColor() String var 51Fieldual smallint endvar siFieldual - numField'value switch case 51Fieldual < - U - - box'color - Red case 51Fieldual > 1900 - - box' color - Green otherwise: DOX'color l White endswitch return : endmethod Edit Line 4 Col7