Clarion Tightloop ThreadTest

TestThreads.clw

  PROGRAM

OMIT('***')
 * Created with Clarion 9.0
 * User: Mark.Live
 * Date: 1/23/2014
 * Time: 10:05 AM
 * 
 * To change this template use Tools | Options | Coding | Edit Standard Headers.
 ***

  MAP
   MAIN
  	WithWindow(STRING xName)
  	WithoutWindow(STRING xName)
  	TightLoop(STRING xName)
  END
  
  INCLUDE('Debuger.inc'),ONCE
DBG        Debuger  
  CODE
  DBG.mg_init('TestThreads')
  MAIN
  
Main PROCEDURE
	CODE
	ASSERT(0,eqDBG&'WithWindow    Thread['& START(WithWindow   ,,'One') & ']')
	ASSERT(0,eqDBG&'WithOutWindow Thread['& START(WithoutWindow,,'TWO') & ']')
	


WithWindow		PROCEDURE(STRING xName)
Window WINDOW('Caption'),AT(,,187,77),GRAY,FONT('Microsoft Sans Serif',8)
	END
	CODE
	OPEN(Window)	
	ACCEPT
		TightLoop(xName)
	END
WithoutWindow	PROCEDURE(STRING xName)
	CODE
	TightLoop(xName)


TightLoop	PROCEDURE(STRING xName)
   CODE
   				ASSERT(0,eqDBG&'v TightLoop xName['& xName &']')
   LOOP 100000 TIMES
      			ASSERT(0,eqDBG&'  TightLoop xName['& xName &']')
   END
   				ASSERT(0,eqDBG&'v TightLoop xName['& xName &']')