Raygui ?

[ejemba]

Thank you for jaylib it works like a charm !

https://github.com/raysan5/raygui

Do you know if I can use raygui with jaylib ? if yes how ?

raygui looks like a set of .h files.

Regards

[pepe]

You would need to wrap raygui to be accesible from the Janet, like this lib is wrapped around raylib.

I think it is good idea, even if we have janetui.

[ejemba]

HI pepe, thank you, yes I think it can be a quick win.

My problem is I don't have the knowledge to handle the mapping.
I don't even understand raygui : just a set of .h files
(not a c programmer)

[pepe]

Well, I am not C programmer at all (25 years ago I was kind of it in the high school) and I still managed to wrap LevelDB for Janet.

I will take look at the raygui and maybe we can make it (by copying jaylib :-).

[ejemba]

It would be great if you can have a look,
I'm not sure I can help .C .H mechanisms are very far behind me

[kamisori]

Working on it:
https://github.com/kamisori/jaylib

[pepe]

Oh. I was not able to compile with musl stdlib. Great @kamisori!

[kamisori]

sorry, at the moment im working on windows.
there are some bugs I found but at least it compiled when I commited :D

[uvtc]

I'd also like to see this (I'm on GNU/Linux).

[uvtc]

@kamisori oh, that's awesome! Where you planning on creating a PR here for your work?

[sogaiu]

A fair bit seems to be working in kamisori's fork:

That is based on this test file: https://github.com/kamisori/jaylib/blob/master/test/test5.janet

The following file seems to be related to the implementation: https://github.com/kamisori/jaylib/blob/master/src/gui.h

[ejemba]

@sogaiu @kamisori this is great !
I hope I can use this very soon !

[sogaiu]

FWIW, I went through kamisori's test5.janet and made a simplified version of it to just demo a list view. I think it might be an easier starting point (well, it would have been for me anyway :) ).

The following is the resulting script -- it's meant to work from the project directory:

(use ./build/jaylib)

(defn- make-window
  "open window with default values" 
  []
  (set-config-flags :msaa-4x-hint)
  (init-window 800 600 "Place")
  (set-target-fps 60)
  (set-exit-key 0))

(defn main
  [& args]

  (make-window)

  (var listview @{:result {:active -1
                           :scrollindex 0}})
  (var show-message-box false)
  (var exit-window false)

  (while (not exit-window)

    (set exit-window
      (window-should-close))

    (when (key-pressed? :escape)
      (set show-message-box (not show-message-box)))

    (begin-drawing)

    (clear-background
      (get-color
        (gui-get-style :default :background-color)))

    (let [result
          (gui-list-view [165 25 140 240]
                         (string/join ["gui-window-box"
                                       "gui-panel"
                                       "gui-scroll-panel"
                                       "gui-group-box"
                                       "gui-label"
                                       "gui-button"
                                       "gui-label-button"
                                       "gui-line"]
                                      ";")
                         ((listview :result) :scrollindex)
                         ((listview :result) :active))]
      (set (listview :result) result))

    (when show-message-box
      (draw-rectangle 0 0 (get-screen-width) (get-screen-height) (fade :ray-white 0.8))
      (var result 
        (gui-message-box [(- (/ (get-screen-width) 2) 125)
                          (- (/ (get-screen-height) 2) 50)
                          250 100 ]
                         "Close Window" #(gui-icon-text :ricon-exit "Close Window")
                         "Do you really want to exit?"
                         "Yes;No"))
      (if (or (= result 0)
              (= result 2))
        (set show-message-box false)
        (when (= result 1)
          (set exit-window true))))

    (case ((listview :result) :active)
      0 (gui-window-box [200 10 500 500] "PORTABLE WINDOW")
      1 (gui-panel [200 10 500 500] )
      2 (gui-scroll-panel [200 10 200 200] [0 0 495 495] [0 0])
      3 (gui-group-box [200 10 200 200] "GROUP BOX")
      4 (gui-label [ 200 10 15 15 ] "LABEL")
      5 (gui-button [ 200 10 75 25 ] "BUTTON")
      6 (gui-label-button [ 200 10 75 25 ] "LABEL BUTTON")
      7 (gui-line [ 200 10 150 15 ] "LINE"))

    (gui-unlock)
    (end-drawing))
  
  (close-window))

(main)
(os/exit)

[uvtc]

Thanks, @sogaiu !

I also appreciate the simplified example here. Personally, I also like to (import jaylib :as jl) so that everything from the library is prefixed with jl/, making it easier for me to differentiate the jaylib code from everything else.

How did you run this test file? Did you have to build and install @kamisori 's jaylib instead of jpm install jaylib?

[sogaiu]

Re: (import jaylib :as jl) - I do a similar thing sometimes for similar reasons, but it depends on the situation. In this case I was modifying someone else's code where a decision had already been made one way (and I didn't go through to change everything). (One benefit of this approach is that comparison with the original file is easier.)

Re: running the test file - In this case, just to run the test file, I don't think any invocation of jpm install is necessary (the use refers to things relatively and references the directory named build), though building is.

Basically the following sort of steps in a (--recursive) cloned directory of kamisori's fork works here:

jpm build
janet listview.janet

Note that listview.janet is the name of the "test" file containing the content posted earlier.

[uvtc]

I don't understand. I currently have jaylib installed. So, I should jpm uninstall jaylib, and then... maybe git clone @kamisori 's jaylib so I can then run:

cd jaylib             # the one I just git cloned
jpm build
janet listview.janet  # your program above

?