m2-GTK4/tests/test_lastwidgets.mod

MODULE test_lastwidgets ;

(*
   m2-GTK4 test - the last few widgets: GtkAssistant, GtkIconView and
   GtkEmojiChooser.  Requires a display.
*)

FROM Gio IMPORT g_application_run, g_application_quit;
FROM GtkApplication IMPORT gtk_application_new;
FROM GtkWindow IMPORT gtk_application_window_new, gtk_window_set_child,
   gtk_window_present;
FROM GtkBox IMPORT gtk_box_new, gtk_box_append;
FROM GtkEnums IMPORT GtkVertical, GtkSelectionMultiple;
FROM GtkLabel IMPORT gtk_label_new;
FROM GtkAssistant IMPORT gtk_assistant_new, gtk_assistant_append_page,
   gtk_assistant_get_n_pages, gtk_assistant_get_nth_page,
   gtk_assistant_set_page_title, gtk_assistant_set_page_complete,
   gtk_assistant_set_page_type, gtk_assistant_set_current_page,
   gtk_assistant_get_current_page, gtk_assistant_previous_page,
   gtk_assistant_commit, AssistantPageContent;
FROM GtkIconView IMPORT gtk_icon_view_new, gtk_icon_view_set_columns,
   gtk_icon_view_get_columns, gtk_icon_view_set_text_column,
   gtk_icon_view_get_text_column, gtk_icon_view_set_item_width,
   gtk_icon_view_set_spacing, gtk_icon_view_set_selection_mode;
FROM GtkEmojiChooser IMPORT gtk_emoji_chooser_new;
FROM GtkUtils IMPORT Connect;
FROM SYSTEM IMPORT ADDRESS, ADR;
FROM libc IMPORT printf;

CONST
   AppId = "org.example.m2gtk4.TestLastWidgets";

VAR
   app: ADDRESS;
   passed: BOOLEAN;

PROCEDURE OnActivate (application: ADDRESS; data: ADDRESS);
VAR
   window, box, assistant, p1, p2, iconview, emoji: ADDRESS;
   ok: BOOLEAN;
BEGIN
   ok := TRUE;

   (* GtkAssistant *)
   assistant := gtk_assistant_new();
   IF assistant = NIL THEN printf("assistant NIL\n"); ok := FALSE END;
   p1 := gtk_label_new("Step one");
   p2 := gtk_label_new("Step two");
   IF gtk_assistant_append_page(assistant, p1) # 0 THEN
      printf("first page index wrong\n"); ok := FALSE
   END;
   IF gtk_assistant_append_page(assistant, p2) # 1 THEN
      printf("second page index wrong\n"); ok := FALSE
   END;
   IF gtk_assistant_get_n_pages(assistant) # 2 THEN
      printf("assistant page count wrong\n"); ok := FALSE
   END;
   IF gtk_assistant_get_nth_page(assistant, 1) # p2 THEN
      printf("assistant nth page wrong\n"); ok := FALSE
   END;
   gtk_assistant_set_page_title(assistant, p1, "One");
   gtk_assistant_set_page_complete(assistant, p1, 1);
   gtk_assistant_set_page_type(assistant, p1, AssistantPageContent);
   gtk_assistant_set_current_page(assistant, 1);
   IF gtk_assistant_get_current_page(assistant) # 1 THEN
      printf("assistant current page wrong\n"); ok := FALSE
   END;
   gtk_assistant_commit(assistant);

   (* GtkIconView *)
   iconview := gtk_icon_view_new();
   IF iconview = NIL THEN printf("icon view NIL\n"); ok := FALSE END;
   gtk_icon_view_set_columns(iconview, 3);
   IF gtk_icon_view_get_columns(iconview) # 3 THEN
      printf("icon view columns wrong\n"); ok := FALSE
   END;
   gtk_icon_view_set_text_column(iconview, 0);
   IF gtk_icon_view_get_text_column(iconview) # 0 THEN
      printf("icon view text column wrong\n"); ok := FALSE
   END;
   gtk_icon_view_set_item_width(iconview, 64);
   gtk_icon_view_set_spacing(iconview, 6);
   gtk_icon_view_set_selection_mode(iconview, GtkSelectionMultiple);

   (* GtkEmojiChooser *)
   emoji := gtk_emoji_chooser_new();
   IF emoji = NIL THEN printf("emoji chooser NIL\n"); ok := FALSE END;

   box := gtk_box_new(GtkVertical, 4);
   gtk_box_append(box, iconview);
   window := gtk_application_window_new(application);
   gtk_window_set_child(window, box);
   gtk_window_present(window);

   passed := ok;
   g_application_quit(application)
END OnActivate;

VAR
   rc: INTEGER;
BEGIN
   passed := FALSE;
   app := gtk_application_new(AppId, 0);
   IF app = NIL THEN
      printf("test_lastwidgets: FAIL (no app)\n");
      HALT(1)
   END;
   Connect(app, "activate", ADR(OnActivate), NIL);
   rc := g_application_run(app, 0, NIL);

   IF passed THEN
      printf("test_lastwidgets: PASS\n");
      HALT(0)
   ELSE
      printf("test_lastwidgets: FAIL\n");
      HALT(1)
   END
END test_lastwidgets.