From 037eddfe7830723598c0c1b7d4a223f2279b6fd2 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Sat, 23 Nov 2019 15:00:16 +0100 Subject: Windows compatibility --- src/Clean System Files/gdk_library | 4 + src/Clean System Files/glib_library | 2 + src/Clean System Files/gobject_library | 3 + src/Clean System Files/gtk_library | 114 +++++++++++++++++++++ src/Gtk/Internal.icl | 7 ++ .../Sheet/Clean System Files/gtksheet_library | 15 +++ src/Gtk/Widgets/Sheet/Internal.icl | 4 + 7 files changed, 149 insertions(+) create mode 100644 src/Clean System Files/gdk_library create mode 100644 src/Clean System Files/glib_library create mode 100644 src/Clean System Files/gobject_library create mode 100644 src/Clean System Files/gtk_library create mode 100644 src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library diff --git a/src/Clean System Files/gdk_library b/src/Clean System Files/gdk_library new file mode 100644 index 0000000..ece7b20 --- /dev/null +++ b/src/Clean System Files/gdk_library @@ -0,0 +1,4 @@ +libgdk-3-0.dll +gdk_event_get_keyval +gdk_keyval_from_name +gdk_keyval_name \ No newline at end of file diff --git a/src/Clean System Files/glib_library b/src/Clean System Files/glib_library new file mode 100644 index 0000000..41db461 --- /dev/null +++ b/src/Clean System Files/glib_library @@ -0,0 +1,2 @@ +libglib-2.0-0.dll +g_free \ No newline at end of file diff --git a/src/Clean System Files/gobject_library b/src/Clean System Files/gobject_library new file mode 100644 index 0000000..8a89c18 --- /dev/null +++ b/src/Clean System Files/gobject_library @@ -0,0 +1,3 @@ +libgobject-2.0-0.dll +g_object_unref +g_signal_connect_data \ No newline at end of file diff --git a/src/Clean System Files/gtk_library b/src/Clean System Files/gtk_library new file mode 100644 index 0000000..286e392 --- /dev/null +++ b/src/Clean System Files/gtk_library @@ -0,0 +1,114 @@ +libgtk-3-0.dll +gtk_accel_group_new +gtk_action_bar_new +gtk_action_bar_pack_end +gtk_action_bar_pack_start +gtk_box_new +gtk_box_pack_end +gtk_box_pack_start +gtk_box_set_spacing +gtk_button_new_from_icon_name +gtk_cell_renderer_text_new +gtk_check_menu_item_new +gtk_check_menu_item_get_active +gtk_check_menu_item_set_active +gtk_container_add +gtk_css_provider_load_from_path +gtk_css_provider_new +gtk_dialog_add_button +gtk_dialog_get_content_area +gtk_dialog_new +gtk_dialog_run +gtk_dialog_set_default_response +gtk_entry_completion_new +gtk_entry_completion_set_model +gtk_entry_completion_set_inline_completion +gtk_entry_completion_set_inline_selection +gtk_entry_completion_set_text_column +gtk_entry_get_text +gtk_entry_new +gtk_entry_set_completion +gtk_entry_set_text +gtk_events_pending +gtk_file_chooser_dialog_new +gtk_file_chooser_get_filename +gtk_frame_new +gtk_frame_set_label_align +gtk_grid_attach +gtk_grid_new +gtk_init +gtk_label_new +gtk_label_set_markup +gtk_list_store_append +gtk_list_store_clear +gtk_list_store_newv +gtk_list_store_set +gtk_main_iteration +gtk_menu_bar_new +gtk_menu_item_new +gtk_menu_item_set_label +gtk_menu_item_set_submenu +gtk_menu_item_set_use_underline +gtk_menu_new +gtk_menu_shell_append +gtk_message_dialog_new +gtk_paned_new +gtk_paned_pack1 +gtk_paned_pack2 +gtk_paned_set_wide_handle +gtk_scrolled_window_new +gtk_scrolled_window_set_policy +gtk_search_entry_new +gtk_separator_menu_item_new +gtk_separator_new +gtk_spinner_new +gtk_spinner_start +gtk_spinner_stop +gtk_style_context_add_class +gtk_style_context_add_provider_for_screen +gtk_text_buffer_delete +gtk_text_buffer_get_end_iter +gtk_text_buffer_get_start_iter +gtk_text_buffer_insert_markup +gtk_text_buffer_set_text +gtk_text_view_get_buffer +gtk_text_view_new +gtk_text_view_set_editable +gtk_text_view_set_wrap_mode +gtk_text_view_set_pixels_above_lines +gtk_text_view_set_pixels_below_lines +gtk_text_view_set_pixels_inside_wrap +gtk_tree_model_get_iter_from_string +gtk_tree_model_get_string_from_iter +gtk_tree_selection_get_selected +gtk_tree_selection_select_iter +gtk_tree_view_append_column +gtk_tree_view_column_add_attribute +gtk_tree_view_column_new +gtk_tree_view_column_pack_start +gtk_tree_view_column_set_title +gtk_tree_view_get_model +gtk_tree_view_get_selection +gtk_tree_view_new_with_model +gtk_widget_add_accelerator +gtk_widget_destroy +gtk_widget_get_screen +gtk_widget_get_style_context +gtk_widget_grab_focus +gtk_widget_hide +gtk_widget_is_visible +gtk_widget_set_halign +gtk_widget_set_hexpand +gtk_widget_set_margin_bottom +gtk_widget_set_margin_left +gtk_widget_set_margin_right +gtk_widget_set_margin_top +gtk_widget_set_sensitive +gtk_widget_set_size_request +gtk_widget_set_valign +gtk_widget_set_vexpand +gtk_widget_show +gtk_window_add_accel_group +gtk_window_new +gtk_window_set_title +gtk_window_set_transient_for \ No newline at end of file diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 89546ba..3a817cb 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -6,6 +6,7 @@ import StdDebug import System._Pointer +// *Nix: import code from library "-lgtk-3" import code from library "-lgdk-3" import code from library "-lpangocairo-1.0" @@ -18,6 +19,12 @@ import code from library "-lgio-2.0" import code from library "-lgobject-2.0" import code from library "-lglib-2.0" +// Windows: +import code from library "gdk_library" +import code from library "glib_library" +import code from library "gobject_library" +import code from library "gtk_library" + g_free :: !Pointer !.a -> .a g_free p env = code { ccall g_free "p:V:A" diff --git a/src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library b/src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library new file mode 100644 index 0000000..41101a0 --- /dev/null +++ b/src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library @@ -0,0 +1,15 @@ +libgtksheet-4-0.dll +gtk_sheet_cell_clear +gtk_sheet_cell_get_text +gtk_sheet_column_set_justification +gtk_sheet_freeze +gtk_sheet_get_active_cell +gtk_sheet_get_entry +gtk_sheet_new +gtk_sheet_range_set_css_class +gtk_sheet_range_set_editable +gtk_sheet_row_set_visibility +gtk_sheet_set_active_cell +gtk_sheet_set_cell_text +gtk_sheet_set_column_title +gtk_sheet_thaw \ No newline at end of file diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl index d465984..a341066 100644 --- a/src/Gtk/Widgets/Sheet/Internal.icl +++ b/src/Gtk/Widgets/Sheet/Internal.icl @@ -5,8 +5,12 @@ import StdMaybe import System._Pointer +// *Nix: import code from library "-lgtksheet-4.0" +// Windows: +import code from library "gtksheet_library" + gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a) gtk_sheet_new rows cols title env = new rows cols (packString title) env where -- cgit v1.2.3