FreeBASIC  0.91.0
hook_cls.c
Go to the documentation of this file.
1 /* cls entrypoint, default to console mode */
2 
3 #include "fb.h"
4 
5 /*:::::*/
6 FBCALL void fb_Cls( int mode )
7 {
8 
9  fb_DevScrnInit_NoOpen( );
10 
11  FB_LOCK();
12 
13  if( __fb_ctx.hooks.clsproc )
14  __fb_ctx.hooks.clsproc( mode );
15  else
16  fb_ConsoleClear( mode );
17 
18  FB_HANDLE_SCREEN->line_length = 0;
19 
20  FB_UNLOCK();
21 
22 }