summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCamil Staps2019-11-23 15:00:16 +0100
committerCamil Staps2019-11-23 15:00:16 +0100
commit037eddfe7830723598c0c1b7d4a223f2279b6fd2 (patch)
tree351ad2581e8b02088f68b04100ccdea610e4031d
parentAdd PixelsAboveLines, PixelsBelowLines, and PixelsInsideWrap to control line ... (diff)
Windows compatibilitywindows-compatibility
-rw-r--r--src/Clean System Files/gdk_library4
-rw-r--r--src/Clean System Files/glib_library2
-rw-r--r--src/Clean System Files/gobject_library3
-rw-r--r--src/Clean System Files/gtk_library114
-rw-r--r--src/Gtk/Internal.icl7
-rw-r--r--src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library15
-rw-r--r--src/Gtk/Widgets/Sheet/Internal.icl4
7 files changed, 149 insertions, 0 deletions
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