m2-GTK4/demos/m2gtkdemo.mod

MODULE m2gtkdemo ;

(*
   m2-GTK4 - an m2 gtk-demo.

   A browser window with a searchable sidebar of demos; activating a row
   (double-click / Enter) or pressing "Run" opens the demo in its own
   window, mirroring the GTK demo application.

   Build:  make demos
   Run:    ./build/demos/m2gtkdemo
*)

FROM Gio IMPORT g_application_run;
FROM GtkApplication IMPORT gtk_application_new;
FROM GtkApplicationWindow IMPORT gtk_application_window_new;
FROM GtkWindow IMPORT gtk_window_set_title, gtk_window_set_default_size,
   gtk_window_set_child, gtk_window_present;
FROM GtkBox IMPORT gtk_box_new, gtk_box_append, gtk_box_set_spacing;
FROM GtkEnums IMPORT GtkVertical, GtkHorizontal;
FROM GtkWidget IMPORT gtk_widget_set_size_request, gtk_widget_set_vexpand,
   gtk_widget_set_hexpand, gtk_widget_set_margin_start,
   gtk_widget_set_margin_end, gtk_widget_set_margin_top,
   gtk_widget_set_margin_bottom;
FROM GtkLabel IMPORT gtk_label_new, gtk_label_set_text;
FROM GtkButton IMPORT gtk_button_new_with_label;
FROM GtkSearchEntry IMPORT gtk_search_entry_new,
   gtk_search_entry_set_placeholder_text;
FROM GtkEditable IMPORT gtk_editable_get_text;
FROM GtkListView IMPORT gtk_list_view_new;
FROM GtkListItem IMPORT gtk_list_item_get_item, gtk_list_item_get_child,
   gtk_list_item_set_child;
FROM GtkSignalListItemFactory IMPORT gtk_signal_list_item_factory_new;
FROM GtkSingleSelection IMPORT gtk_single_selection_new,
   gtk_single_selection_get_selected;
FROM GtkFilterListModel IMPORT gtk_filter_list_model_new;
FROM GtkCustomFilter IMPORT gtk_custom_filter_new,
   gtk_custom_filter_set_filter_func;
FROM GtkStringList IMPORT gtk_string_list_new, gtk_string_list_append;
FROM GtkStringObject IMPORT gtk_string_object_get_string;
FROM GListModel IMPORT g_list_model_get_item;
FROM GObject IMPORT g_signal_connect_data, g_object_unref, GConnectDefault;
FROM GtkClosures IMPORT Connect2, Connect3;
FROM GtkUtils IMPORT Connect, CStrToM2;
FROM GtkDemo IMPORT Count, TitleOf, BuildByTitle;
FROM SYSTEM IMPORT ADDRESS, ADR;
FROM libc IMPORT printf;

CONST
   AppId = "org.example.m2gtk4.Demo4";
   Invalid = 0FFFFFFFFH;

VAR
   window, filter, filterModel, selection: ADDRESS;
   searchText: ARRAY [0..63] OF CHAR;

PROCEDURE Contains (hay, needle: ARRAY OF CHAR) : BOOLEAN;
VAR
   i, j, hl, nl: CARDINAL;
   found: BOOLEAN;
BEGIN
   hl := 0;
   WHILE (hl <= HIGH(hay)) AND (hay[hl] # 0C) DO INC(hl) END;
   nl := 0;
   WHILE (nl <= HIGH(needle)) AND (needle[nl] # 0C) DO INC(nl) END;
   IF nl = 0 THEN RETURN TRUE END;
   IF nl > hl THEN RETURN FALSE END;
   i := 0;
   WHILE i + nl <= hl DO
      found := TRUE;
      j := 0;
      WHILE j < nl DO
         IF hay[i + j] # needle[j] THEN found := FALSE END;
         INC(j)
      END;
      IF found THEN RETURN TRUE END;
      INC(i)
   END;
   RETURN FALSE
END Contains;

(* gboolean match(gpointer item, gpointer user_data) - match the title *)
PROCEDURE Match (item: ADDRESS; user: ADDRESS) : INTEGER;
VAR
   buf: ARRAY [0..63] OF CHAR;
BEGIN
   CStrToM2(gtk_string_object_get_string(item), buf);
   IF Contains(buf, searchText) THEN RETURN 1 ELSE RETURN 0 END
END Match;

PROCEDURE OnSearchChanged (entry: ADDRESS; user: ADDRESS);
BEGIN
   CStrToM2(gtk_editable_get_text(entry), searchText);
   gtk_custom_filter_set_filter_func(filter, ADR(Match), NIL, NIL)
END OnSearchChanged;

PROCEDURE RunPosition (position: CARDINAL);
VAR
   item, demoWindow: ADDRESS;
   title: ARRAY [0..63] OF CHAR;
BEGIN
   item := g_list_model_get_item(filterModel, position);
   CStrToM2(gtk_string_object_get_string(item), title);
   g_object_unref(item);
   demoWindow := BuildByTitle(title, window);
   IF demoWindow = NIL THEN
      printf("no demo named %s\n", title)
   END
END RunPosition;

(* void activate(GtkListView *list, guint position, gpointer user) *)
PROCEDURE OnActivate (list: ADDRESS; position: CARDINAL; user: ADDRESS);
BEGIN
   RunPosition(position)
END OnActivate;

PROCEDURE OnRun (button: ADDRESS; user: ADDRESS);
VAR
   index: CARDINAL;
BEGIN
   index := gtk_single_selection_get_selected(selection);
   IF index # Invalid THEN RunPosition(index) END
END OnRun;

PROCEDURE RowSetup (factory: ADDRESS; item: ADDRESS; user: ADDRESS);
BEGIN
   gtk_list_item_set_child(item, gtk_label_new(""))
END RowSetup;

PROCEDURE RowBind (factory: ADDRESS; item: ADDRESS; user: ADDRESS);
VAR
   obj, child: ADDRESS;
   buf: ARRAY [0..63] OF CHAR;
BEGIN
   obj := gtk_list_item_get_item(item);
   CStrToM2(gtk_string_object_get_string(obj), buf);
   child := gtk_list_item_get_child(item);
   gtk_label_set_text(child, buf)
END RowBind;

PROCEDURE OnActivateApp (application: ADDRESS; data: ADDRESS);
VAR
   root, content, search, listView, factory, store, runButton, hint: ADDRESS;
   title: ARRAY [0..63] OF CHAR;
   i: CARDINAL;
BEGIN
   searchText[0] := 0C;

   store := gtk_string_list_new(NIL);
   i := 0;
   WHILE i < Count() DO
      TitleOf(i, title);
      gtk_string_list_append(store, title);
      INC(i)
   END;

   filter := gtk_custom_filter_new(ADR(Match), NIL, NIL);
   filterModel := gtk_filter_list_model_new(store, filter);
   selection := gtk_single_selection_new(filterModel);

   factory := gtk_signal_list_item_factory_new();
   Connect3(factory, "setup", RowSetup, NIL);
   Connect3(factory, "bind", RowBind, NIL);
   listView := gtk_list_view_new(selection, factory);
   gtk_widget_set_size_request(listView, 200, -1);
   gtk_widget_set_vexpand(listView, 1);
   g_signal_connect_data(listView, "activate", ADR(OnActivate), NIL, NIL,
                         GConnectDefault);

   runButton := gtk_button_new_with_label("Run selected demo");
   Connect2(runButton, "clicked", OnRun, NIL);

   hint := gtk_label_new("Pick a demo, then Run (or double-click).");
   gtk_widget_set_margin_start(hint, 8);

   search := gtk_search_entry_new();
   gtk_search_entry_set_placeholder_text(search, "Search demos");
   Connect2(search, "search-changed", OnSearchChanged, NIL);

   content := gtk_box_new(GtkHorizontal, 8);
   gtk_box_set_spacing(content, 8);
   gtk_widget_set_vexpand(content, 1);
   gtk_box_append(content, listView);
   gtk_box_append(content, runButton);
   gtk_widget_set_hexpand(runButton, 0);

   root := gtk_box_new(GtkVertical, 8);
   gtk_box_set_spacing(root, 8);
   gtk_widget_set_margin_start(root, 10);
   gtk_widget_set_margin_end(root, 10);
   gtk_widget_set_margin_top(root, 10);
   gtk_widget_set_margin_bottom(root, 10);
   gtk_box_append(root, search);
   gtk_box_append(root, content);
   gtk_box_append(root, hint);

   window := gtk_application_window_new(application);
   gtk_window_set_title(window, "m2-GTK4 Demo");
   gtk_window_set_default_size(window, 480, 360);
   gtk_window_set_child(window, root);
   gtk_window_present(window)
END OnActivateApp;

VAR
   app: ADDRESS;
BEGIN
   app := gtk_application_new(AppId, 0);
   IF app = NIL THEN
      printf("gtk_application_new failed\n");
      HALT(1)
   END;
   Connect2(app, "activate", OnActivateApp, NIL);
   g_application_run(app, 0, NIL)
END m2gtkdemo.