home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTTEXT.PRG < prev    next >
Text File  |  1994-05-30  |  486b  |  21 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd, oText, oFont
  8.  
  9.    DEFINE WINDOW oWnd FROM 2, 2 TO 20, 70 TITLE "Editing Text"
  10.  
  11.    DEFINE FONT oFont NAME "Courier" SIZE 8, 14
  12.  
  13.    oText = TText():New( 1, 1, 500, 300, "FwBorl.prg", oWnd )
  14.    oText:oFont = oFont
  15.  
  16.    ACTIVATE WINDOW oWnd
  17.  
  18. return nil
  19.  
  20. //----------------------------------------------------------------------------//
  21.