dev-harbour / hb-nuklear

Harbour module implementing bindings to Nuklear

hb-nuklear

Harbour module implementing bindings to Nuklear.

Getting Started

Installing hb-nuklear requires Nuklear including its headers. For more info see getting started.

Building

• Build static library:

  hbmk2 nuklear_xlib.hbp
  

• Build dynamic library: $ hbmk2 -hbdyn hbtpl.hbp

• Build and run sample and test code:

  hbmk2 main.prg
  ./main
  

#include "nuklear_xlib.ch"

#define DTIME    20

PROCEDURE Main()

   LOCAL aWin
   LOCAL lExit := .F.
   LOCAL nStarted
   LOCAL nEventType
   LOCAL cTitle := "H e l l o  H a r b o u r"
   LOCAL nDt

   aWin := CreateWindow( 720, 450, "Nuklear xlib" )

   WHILE( ! lExit )

      nStarted := TimeStamp()

      nk_input_begin( aWin[ CTX ] )
      DO WHILE( XPending( aWin[ DPY ] ) != 0 )

         XNextEvent( aWin[ DPY ], @nEventType )

         IF( nEventType == ClientMessage )
            lExit := .T.
            EXIT
         ENDIF
         IF( XFilterEvent( @nEventType, aWin[ WIN ] ) )
            LOOP
         ENDIF

         nk_xlib_handle_event( aWin[ DPY ], aWin[ SCREEN ], aWin[ WIN ], @nEventType )

      ENDDO
      nk_input_end( aWin[ CTX ] )

      IF( nk_begin( aWin[ CTX ], cTitle, { 50, 50, 200, 200 }, NK_WINDOW_BORDER + NK_WINDOW_MOVABLE + NK_WINDOW_SCALABLE + NK_WINDOW_CLOSABLE + NK_WINDOW_MINIMIZABLE + NK_WINDOW_TITLE ) )
         // Here your data
      ENDIF
      nk_end( aWin[ CTX ] )

      IF( nk_window_is_hidden( aWin[ CTX ], cTitle ) )
         EXIT
      ENDIF

      XClearWindow( aWin[ DPY ], aWin[ WIN ] )
      nk_xlib_render( aWin[ WIN ], nk_rgb( 38, 77, 115 ) )
      XFlush( aWin[ DPY ] )

      nDt := TimeStamp() - nStarted
      if( nDt < DTIME )
         sleep_for( DTIME - nDt )
      ENDIF

   ENDDO

   CloseWindow( aWin )

   RETURN