20190122

Author: Your Name

Drawing02_no.nim

@@ -17,14 +17,14 @@ proc DrawCB (self: ptr Fl_Double_WindowEx): long{.cdecl.} =
     font: FL_FONT
 
   DrawPushClip(0, 0, w, h)
-  DrawRectFillRGBColor(0, 0, w, h, ubyte(rand(255)), ubyte(rand(255)), ubyte(rand(255)))
+  DrawRectFillRGBColor(0, 0, w, h, rand(255), rand(255), rand(255))
   for font in 0 .. 15:
     size = long(6 + rand(70))
     DrawSetFont(cast[FL_FONT](font), size)
     for i in 0 .. 1:
-      DrawSetRGBColor(ubyte(rand(255)), ubyte(rand(255)), ubyte(rand(255)))
-      x = long(rand(int(w)))
-      y = long(rand(int(h)))
+      DrawSetRGBColor(rand(255), rand(255), rand(255))
+      x = rand(int(w))
+      y = rand(int(h))
       if i == 1 :
         DrawStr("DrawStr()", x, y)
       else:

Drawing03.nim

@@ -9,6 +9,7 @@ import fltk_main
 
 proc `\` (x: long; y: long): long = long(x.float / y.float)
 
+
 proc DrawMe(win: ptr Fl_Window) =
   var gfxPrimitive{.global.}: long = 0
   # select the window as curent drawing target
@@ -31,24 +32,24 @@ proc DrawMe(win: ptr Fl_Window) =
     i: int
 
   for i in 1 .. 10:
-    DrawSetRGBColor ubyte(rand(255)), ubyte(rand(255)), ubyte(rand(255))
+    DrawSetRGBColor rand(255), rand(255), rand(255)
     case gfxPrimitive:
       of 0 :
-        DrawPoint long(rand(w)), long(rand(h))
+        DrawPoint rand(w), rand(h)
       of 1 :
-        DrawLine  long(rand(w)), long(rand(h)), long(rand(w)), long(rand(h))
+        DrawLine  rand(w), rand(h), rand(w), rand(h)
       of 2 :
-        DrawRect  long(rand(w)), long(rand(h)), long(rand(w)), long(rand(h))
+        DrawRect  rand(w), rand(h), rand(w), rand(h)
       of 3 :
-        r = long(rand(h))\2
-        DrawArc long(rand(w)), long(rand(h)), r, r, 0, 360 # circle
+        r = rand(h)\2
+        DrawArc rand(w), rand(h), r, r, 0, 360 # circle
       of 4 :
-        DrawRectFill long(rand(w)), long(rand(h)), long(rand(w)), long(rand(h))
+        DrawRectFill rand(w), rand(h), rand(w), rand(h)
       of 5 :
         var bt = FL_BOXTYPE(1 + rand(15))
-        DrawBox bt, long(rand(w)), long(rand(h)), long(rand(w)), long(rand(h)), Fl_RGB_Color(ubyte(rand(255)), ubyte(rand(255)), ubyte(rand(255)))
+        DrawBox bt, rand(w), rand(h), rand(w), rand(h), Fl_RGB_Color(rand(255), rand(255), rand(255))
       of 6 :
-        DrawArc long(rand(w)), long(rand(h)), long(rand(w)), long(rand(h)), 0, 360 # oval
+        DrawArc rand(w), rand(h), rand(w), rand(h), 0, 360 # oval
       else:
         discard
 

Drawing04_no.nim

@@ -72,11 +72,11 @@ proc SliderCB (self: ptr Fl_Widget, sld: ptr Fl_Hor_Value_Slider){.cdecl.}=
 # main
 #
 var win = Fl_Double_WindowNew(640, 480, "Drawing04.nim")
-#~ var box = Fl_BoxExNew(0, 0, 640, 430)
-var box = Fl_BoxNew(0, 0, 640, 430)
+var box = Fl_BoxExNew(0, 0, 640, 430)
+#~ var box = Fl_BoxNew(0, 0, 640, 430)
 var sld = Fl_Hor_Value_SliderNew(10, 430, 620,  30, "zoom")
-#~ Fl_BoxExSetDrawCB       box, DrawCB
-Fl_BoxSetDrawCB       box, DrawCB
+Fl_BoxExSetDrawCB       box, DrawCB
+#~ Fl_BoxSetDrawCB       box, DrawCB
 Fl_WidgetSetUserData    box, sld
 Fl_WidgetSetCallbackArg sld, SliderCB, sld
 Fl_ValuatorBounds       sld, 0.01, 3.0

Drawing05_no.nim

@@ -2,7 +2,7 @@ import fltk_main
 
 #~ ' test of 8 bit palette drawing
 
-proc DrawCB  (self: ptr any): long {.cdecl.} =
+proc DrawCB  (self: pointer): long {.cdecl.} =
   echo "DrawCB"
   var x, y, z: long
 
@@ -19,7 +19,7 @@ proc DrawCB  (self: ptr any): long {.cdecl.} =
 #~ '
 var win = Fl_WindowExNew(8*80,5*16,"Drawing05.nim")
 #~ var win = Fl_WindowNew(8*80,5*16,"Drawing05.nim")
-#~ Fl_WindowExSetDrawCB win, DrawCB
+Fl_WindowExSetDrawCB win, DrawCB
 #~ Fl_WindowSetDrawCB win, DrawCB
 Fl_WindowShow win
 Fl_Run()

DrawingAndSavingImage_no.nim

@@ -5,8 +5,8 @@ proc DrawCB(self: ptr Fl_Widget, SaveButton: ptr Fl_Button){. cdecl .}=
   Fl_WindowMakeCurrent(Fl_WidgetWindow(self))
   var i: int
   for i in 1 .. 100:
-    DrawSetRGBColor(ubyte(rand(256)), ubyte(rand(256)), ubyte(rand(256)))
-    DrawLine((rand(128)), (rand(128)), (rand(128)), (rand(128)))
+    DrawSetRGBColor(rand(256), rand(256), rand(256))
+    DrawLine(rand(128), rand(128), rand(128), rand(128))
 
   Fl_WidgetActivate SaveButton
 

Fl_Align_Image_no.nim

@@ -1,17 +1,19 @@
+import fltk_main
+
 #include "fltk-c.bi"
 #include "media/gradient_xpm.bi"
 
-' test of:
-' Fl_PixmapNew
-' FL_ALIGN_IMAGE_BACKDROP
+# test of:
+# Fl_PixmapNew
+# FL_ALIGN_IMAGE_BACKDROP
 
-var win  = Fl_WindowNew(320,45,"FL_ALIGN_IMAGE_BACKDROP")
-var but1 = Fl_ButtonNew( 10, 10,140,25,"Button 1")
-var but2 = Fl_ButtonNew(160, 10,140,25,"Button 2")
-Fl_WidgetSetImage but1,Fl_PixmapNew(@gradient_xpm(0))
-Fl_WidgetSetAlign but1,FL_ALIGN_IMAGE_BACKDROP
+var win  = Fl_WindowNew(320, 45, "FL_ALIGN_IMAGE_BACKDROP")
+var but1 = Fl_ButtonNew( 10,  10, 140, 25, "Button 1")
+var but2 = Fl_ButtonNew(160,  10, 140, 25, "Button 2")
+#~ Fl_WidgetSetImage but1, Fl_PixmapNew(@gradient_xpm(0))
+Fl_WidgetSetAlign but1, FL_ALIGN_IMAGE_BACKDROP
 
 Fl_WindowShow win
-Fl_Run
+Fl_Run()
 
 

Fl_Boxtype01.nim

@@ -11,7 +11,7 @@ const BOX_HEIGHT = 50
 
 var i, row, col: int
 
-var win = Fl_Double_WindowNew(long(6*10+5*BOX_WIDTH), long(12*10+11*BOX_HEIGHT), "Fl_Boxtype01.nim")
+var win = Fl_Double_WindowNew(6*10+5*BOX_WIDTH, 12*10+11*BOX_HEIGHT, "Fl_Boxtype01.nim")
 Fl_WidgetSetColor win,12
 for i in 0 .. 55:
   row = int(i / 5)

Fl_Clock02.nim

@@ -6,11 +6,11 @@ import fltk_c
 proc `/`(x:long; y: long): long = long(x.float / y.float)
 
 #~ ' centered window
-var win = Fl_Double_WindowNew2(Fl_GetW()/2-300,Fl_GetH()/2-150,600,300,"FL_CLOCK")
+var win = Fl_Double_WindowNew2(Fl_GetW()/2-300, Fl_GetH()/2-150, 600, 300,"FL_CLOCK")
 var w = Fl_WidgetGetW(win)/2
 var h = Fl_WidgetGetH(win)
-Fl_WidgetSetType Fl_ClockNew(0,0,w,h),FL_CLOCK_SQUARE
-Fl_WidgetSetType Fl_ClockNew(w,0,w,h),FL_CLOCK_ROUND
+Fl_WidgetSetType Fl_ClockNew(0, 0, w, h), FL_CLOCK_SQUARE
+Fl_WidgetSetType Fl_ClockNew(w, 0, w, h), FL_CLOCK_ROUND
 
 Fl_WindowShow win
 Fl_Run()

Fl_CommonDialogs_no.nim

@@ -12,9 +12,9 @@ var
     file: string
     path:string
 
-proc FileOrFolderCB  (path: string){.cdecl.} =
+proc FileOrFolderCB  (path: cstring){.cdecl.} =
   if len(path) != 0 :
-    echo """FileChFileOrFolderCB("""" & path & """")"""
+    echo """FileChFileOrFolderCB("""" & $path & """")"""
 
 
 

Fl_File_Browser02_no.nim

@@ -17,8 +17,9 @@ else:
     const PATH = "$HOME"
 
 
-var UserPath: string
+var UserPath: cstring
 #~ UserPath = callocate(FL_MAX_PATH)
+#~ var UserPath: array[FL_MAX_PATH, char]
 flFilenameExpand(UserPath, FL_MAX_PATH, PATH)
 
 proc BrowserCB  (self: ptr FL_WIDGET, filebrowser: ptr Fl_File_Browser){.cdecl.}=