home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jul95 / kada1f6.gif < prev    next >
Graphics Interchange Format  |  1996-01-31  |  11.5 KB  |  419x418  |  4-bit (5 colors)
   ocr: SIMULFSL-pbwindow.mouschighup method mousekigntup(uar eventinfo Mousetvent) var aChoice String sId smallint enduar aChoice - popwindow.show() switch case aChoice l "&Tile" = - sId = Menuwindowlile case aChoice - "&Cascade" = - sid = Menuwindowcascade case aChoice = "Arrange &icons" sid = Menuvindowerrangelcons case aChoice = "Close &All" - - sid - MenuwindowCloseall otherwise : return endSwitch menuAction(sid) endmetnod Edit Line: 1 Col: 1