democracy 0.0.56

data/crystal-gobject/samples/gtk_css_styling/css_window.glade

@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated with glade 3.22.1 -->
+<interface>
+  <requires lib="gtk+" version="3.20"/>
+  <object class="GtkWindow" id="css_window">
+    <property name="name">css_window</property>
+    <property name="can_focus">False</property>
+    <child>
+      <placeholder/>
+    </child>
+    <child>
+      <object class="GtkPaned">
+        <property name="visible">True</property>
+        <property name="can_focus">True</property>
+        <child>
+          <object class="GtkBox">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="orientation">vertical</property>
+            <property name="spacing">4</property>
+            <property name="homogeneous">True</property>
+            <child>
+              <object class="GtkButton" id="red_button">
+                <property name="label" translatable="yes">Red</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">True</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkButton" id="green_button">
+                <property name="label" translatable="yes">Green</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">True</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkButton" id="blue_button">
+                <property name="label" translatable="yes">Blue</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">True</property>
+                <property name="position">2</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="resize">False</property>
+            <property name="shrink">True</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkFrame">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="label_xalign">0</property>
+            <property name="shadow_type">none</property>
+            <child>
+              <object class="GtkAlignment">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="left_padding">12</property>
+                <child>
+                  <placeholder/>
+                </child>
+              </object>
+            </child>
+            <child type="label">
+              <object class="GtkLabel">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <property name="margin_left">20</property>
+                <property name="margin_right">20</property>
+                <property name="margin_top">5</property>
+                <property name="margin_bottom">5</property>
+                <property name="label" translatable="yes">Click on a button to change the background color</property>
+                <property name="justify">center</property>
+              </object>
+            </child>
+          </object>
+          <packing>
+            <property name="resize">False</property>
+            <property name="shrink">False</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/crystal-gobject/samples/gtk_editable.cr

@@ -0,0 +1,14 @@
+require "gobject/gtk/autorun"
+
+def changed(widget : Gtk::Editable)
+  puts Gtk::Entry.cast(widget).text
+end
+
+window = Gtk::Window.new(title: "Enter something!", border_width: 10)
+window.connect "destroy", &->Gtk.main_quit
+entry = Gtk::Entry.new
+
+entry.on_changed(&->changed(Gtk::Editable))
+
+window.add entry
+window.show_all

data/crystal-gobject/samples/gtk_entry.cr

@@ -0,0 +1,10 @@
+require "gobject/gtk/autorun"
+
+window = Gtk::Window.new(title: "Enter something!", border_width: 10)
+window.connect "destroy", &->Gtk.main_quit
+entry = Gtk::Entry.new
+entry.on_activate do |entry|
+  puts entry.text
+end
+window.add entry
+window.show_all

data/crystal-gobject/samples/gtk_hello_world.cr

@@ -0,0 +1,13 @@
+require "gobject/gtk/autorun"
+
+window = Gtk::Window.new(title: "Hello World!", border_width: 10)
+window.connect "destroy", &->Gtk.main_quit
+button = Gtk::Button.new label: "Hello World!"
+button.on_clicked do |button|
+  p! button
+  puts "Hello World!"
+end
+button.connect "clicked", &->window.destroy
+window.add button
+
+window.show_all

data/crystal-gobject/samples/gtk_menu_and_actions.cr

@@ -0,0 +1,69 @@
+require "gobject/gtk"
+require "gobject/gio"
+
+class MyApplication < Gtk::Application
+  def initialize
+    super application_id: "org.example.application"
+
+    on_activate do
+      build_ui
+
+      setup_actions
+    end
+  end
+
+  def setup_actions
+    quit_action = Gio::SimpleAction.new("quit", nil)
+    quit_action.on_activate { self.quit }
+
+    add_action(quit_action)
+  end
+
+  def build_ui
+    menu_template = "
+      <interface>
+        <menu id='app_menu'>
+          <submenu>
+            <attribute name='label'>_File</attribute>
+
+            <item>
+              <attribute name='label'>_Quit</attribute>
+              <attribute name='action'>app.quit</attribute>
+              <attribute name='accel'>&lt;Primary&gt;q</attribute>
+            </item>
+
+          </submenu>
+        </menu>
+      </interface>
+    "
+    menu_builder = Gtk::Builder.new_from_string menu_template, menu_template.size
+
+    menu_model = Gio::MenuModel.cast menu_builder["app_menu"]
+
+    self.menubar = menu_model
+
+    window = Gtk::ApplicationWindow.new application: self, title: "Hello World",
+      default_width: 600, default_height: 400, icon_name: "applications-development"
+
+    menu = Gtk::Menu.new
+    menu.attach_to_widget(window, nil)
+    quit_item = Gtk::MenuItem.new label: "Quit"
+    quit_item.on_activate { self.quit }
+    menu.append(quit_item)
+    menu.show_all
+
+    window.on_button_press_event do |_, event|
+      if event.type.button_press? && event.button == Gdk::BUTTON_SECONDARY
+        menu.popup_at_pointer(event)
+        true
+      else
+        false
+      end
+    end
+
+    window.show_all
+  end
+end
+
+app = MyApplication.new
+app.run

data/crystal-gobject/samples/gtk_message_dialog.cr

@@ -0,0 +1,9 @@
+require "gobject/gtk/autorun"
+
+dialog = Gtk::MessageDialog.new text: "Hello", buttons: :yes_no
+dialog.on_response do |_, response_id|
+  response = Gtk::ResponseType.new(response_id)
+  p! response
+  Gtk.main_quit
+end
+dialog.show

data/crystal-gobject/samples/gtk_subclasses.cr

@@ -0,0 +1,30 @@
+require "gobject/gtk"
+
+class MyWindow < Gtk::ApplicationWindow
+  def self.new(app : Gtk::Application)
+    super
+  end
+
+  def initialize(ptr)
+    super(ptr)
+
+    self.border_width = 10
+    self.title = "Hello"
+    add Gtk::Label.new("Hello")
+  end
+end
+
+class MyApp < Gtk::Application
+  def initialize(**kwargs)
+    super
+
+    on_activate do |application|
+      window = MyWindow.new(self)
+      window.connect "destroy", &->quit
+      window.show_all
+    end
+  end
+end
+
+app = MyApp.new(application_id: "org.crystal.mysample")
+app.run

data/crystal-gobject/samples/gtk_tree_view.cr

@@ -0,0 +1,30 @@
+require "gobject/gtk/autorun"
+
+builder = Gtk::Builder.new_from_file("#{__DIR__}/gtk_tree_view.glade")
+builder.connect_signals
+
+# Insert something into the model
+store = Gtk::TreeStore.cast(builder["tree_model"])
+
+root = Gtk::TreeIter.new
+store.append(root, nil)
+store.set(root, {0}, {"Root"})
+
+child = Gtk::TreeIter.new
+store.append(child, root)
+store.set(child, {0}, {"Child!"})
+
+view = Gtk::TreeView.cast(builder["tree_view"])
+view.on_row_activated do |view, path, column|
+  model = view.model.not_nil!
+
+  iter = Gtk::TreeIter.new
+  model.iter(iter, path)
+
+  value = model.value(iter, 0)
+  puts "You Clicked on #{value.as_s}"
+end
+
+# Show main view.
+main_window = Gtk::Window.cast(builder["main_window"])
+main_window.show_all

data/crystal-gobject/samples/gtk_tree_view.glade

@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated with glade 3.22.2 -->
+<interface>
+  <requires lib="gtk+" version="3.20"/>
+  <!-- Model object with 1 column -->
+  <object class="GtkTreeStore" id="tree_model">
+    <columns>
+      <column type="gchararray"/>
+    </columns>
+  </object>
+  <object class="GtkApplicationWindow" id="main_window">
+    <property name="can_focus">False</property>
+    <property name="default_width">200</property>
+    <property name="default_height">200</property>
+    <!-- Quit on destroy signal -->
+    <signal name="destroy" handler="gtk_main_quit" swapped="no"/>
+    <child type="titlebar">
+      <placeholder/>
+    </child>
+    <child>
+      <object class="GtkTreeView" id="tree_view">
+        <property name="visible">True</property>
+        <property name="can_focus">True</property>
+        <property name="model">tree_model</property>
+        <child>
+          <!-- Column view -->
+          <object class="GtkTreeViewColumn" id="treeviewcolumn">
+            <property name="title" translatable="yes">A column</property>
+            <child>
+              <!-- Column view renderer, going to use column 0 from model -->
+              <object class="GtkCellRendererText" id="renderer"/>
+              <attributes>
+                <attribute name="text">0</attribute>
+              </attributes>
+            </child>
+          </object>
+        </child>
+        <child internal-child="selection">
+          <object class="GtkTreeSelection"/>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/crystal-gobject/samples/timeout.cr

@@ -0,0 +1,34 @@
+require "gobject/g_lib"
+
+GLib.timeout(1.second) do
+  puts "Every second"
+  true
+end
+
+
+GLib.timeout(1.5.seconds) do
+  puts "Every 1.5 seconds"
+  true
+end
+
+GLib.timeout_seconds(2) do
+  puts "Every 2 seconds"
+  true
+end
+
+GLib.timeout_milliseconds(2500) do
+  puts "Exactly every 2.5 seconds"
+  true
+end
+
+# Make sure Crystal's signal handler fiber gets a chance to run
+GLib.idle_add do
+  Fiber.yield
+  true
+end
+
+main_loop = GLib::MainLoop.new(nil, false)
+Signal::INT.trap {
+  main_loop.quit
+}
+main_loop.run

data/crystal-gobject/script/ci.sh

@@ -0,0 +1,17 @@
+#!/bin/bash
+shopt -s extglob
+set -eo pipefail
+
+cd samples
+
+for sample in crout/*.cr; do
+  echo "Running $sample"
+  crystal $sample | crystal eval
+done
+
+for sample in $(ls *.cr */*.cr | grep -v crout); do
+  crystal ../script/run_with_timeout.cr "$sample"
+done
+
+cd ../
+./script/test

data/crystal-gobject/script/release.sh

@@ -0,0 +1,31 @@
+#!/bin/sh
+
+set -e
+
+version="$1"
+if [ -z "$version" ]; then
+  echo "Usage: $0 <version>"
+  exit 1
+fi
+
+if [ "${version:0:1}" = "v" ]; then
+  version="${version:1:100}"
+fi
+
+if git tag --list | grep "v$version" >/dev/null; then
+  echo "Version $version already exists"
+  exit 1
+fi
+
+ised() {
+  sed -e "$1" "$2" > "$2.new"
+  mv -- "$2.new" "$2"
+}
+
+ised "s|version: ~> .*$|version: ~> $version|" README.md
+ised "s|version: .*$|version: $version|" shard.yml
+ised "s|VERSION\(.*\)= .*$|VERSION\1= \"$version\"|" src/gobject.cr
+
+git commit -pm "Release v$version"
+git tag "v$version"
+git push origin main "+v$version"

data/crystal-gobject/script/run_with_timeout.cr

@@ -0,0 +1,14 @@
+file = ARGV[0]
+print "Compiling #{file}... "
+status = Process.run("crystal build '#{file}'", shell: true, output: :inherit, error: :inherit)
+puts status.success? ? "ok." : "failed."
+exit 1 unless status.success?
+print "Running #{file}... "
+exe = File.basename file, ".cr"
+proc = Process.new("./#{exe}", shell: true, output: :inherit, error: :inherit)
+sleep 5
+success = proc.exists?
+puts success ? "ok." : "failed."
+exit 1 unless success
+proc.signal :term
+proc.wait

data/crystal-gobject/script/test

@@ -0,0 +1,7 @@
+#!/bin/sh
+cd ./spec/libsample && make
+cd ../../
+mkdir -p lib
+ln -s ../src lib/gobject
+GI_TYPELIB_PATH="$(pwd)/spec/build" LIBRARY_PATH="$(pwd)/spec/build" LD_LIBRARY_PATH="$(pwd)/spec/build" crystal spec $@
+rm -rf lib

data/crystal-gobject/shard.yml

@@ -0,0 +1,16 @@
+name: gobject
+version: 0.10.0
+authors:
+  - "Jonne Haß <me@jhass.eu>"
+description: "GObject introspection based binding generator and generated bindings"
+license: BSD-3-Clause
+crystal: '~> 1.0'
+libraries:
+  libgirepository: ~> 1.0
+targets:
+  gi-generator:
+    main: src/generator/stage3.cr
+  gi-dump:
+    main: src/generator/dump.cr
+  gi-doc:
+    main: src/generator/doc.cr

data/crystal-gobject/spec/basic_spec.cr

@@ -0,0 +1,46 @@
+require "./spec_helper"
+
+describe "GObject Binding" do
+  it "works" do
+    subject = Test::Subject.new
+    str = "test"
+    subject.receive_string_and_len(str, str.bytesize).should eq("test-4")
+  end
+
+  describe "optional byte array" do
+    it "works with nil" do
+      subject = Test::Subject.new
+      subject.receive_optional_array_and_len(nil).should eq 0
+    end
+
+    it "works with a slice" do
+      subject = Test::Subject.new
+      buf = Bytes[23, 42]
+      subject.receive_optional_array_and_len(buf).should eq 2
+    end
+  end
+
+  describe "nullable parameters" do
+    it "can receive nil" do
+      subject = Test::Subject.new
+      subject.receive_nullable_object(nil).should eq(1)
+    end
+
+    it "can receive nil" do
+      subject = Test::Subject.new
+      subject.receive_nullable_object(subject).should eq(0)
+    end
+  end
+
+  describe "parameters named using Crystal keywords" do
+    it "works on gobject parameters" do
+      subject = Test::Subject.new
+      subject.receive_arguments_named_as_crystal_keywords(1, 2, 3, 4, 5, 6, 7, 8, 9).should eq(45)
+    end
+
+    it "works on plain structs" do
+      subject = Test::Struct.new(in: 42)
+      subject.in.should eq(42)
+    end
+  end
+end

data/crystal-gobject/spec/libsample/Makefile

@@ -0,0 +1,28 @@
+C_SOURCE=$(wildcard *.c)
+H_SOURCE=$(wildcard *.h)
+OBJ=$(C_SOURCE:.c=.o)
+LIBRARY_NAME=test
+LIBRARY_BIN=$(shell crystal eval "puts File.expand_path %(../build/lib$(LIBRARY_NAME).so)")
+GIR=../build/Test-1.0.gir
+TYPELIB=../build/Test-1.0.typelib
+
+CC_FLAGS=-c -Wall -g -fPIC `pkg-config gobject-2.0 --cflags`
+LD_FLAGS=`pkg-config gobject-2.0 --libs`
+
+all: $(TYPELIB)
+
+$(LIBRARY_BIN): $(OBJ)
+	mkdir -p ../build
+	$(CC) -shared -o $@ $^ $(LD_FLAGS)
+
+%.o: %.c %.h
+	$(CC) -o $@ $< $(CC_FLAGS)
+
+clean:
+	rm -rf *.o $(LIBRARY_BIN) *~ $(GIR) $(TYPELIB)
+
+$(GIR): $(LIBRARY_BIN)
+	g-ir-scanner --warn-all --namespace=Test --nsversion=1.0 --include=GObject-2.0 /usr/ --library=$(LIBRARY_NAME) --library-path=../build --pkg=gobject-2.0 -o $(GIR) $(H_SOURCE)
+
+$(TYPELIB): $(GIR)
+	g-ir-compiler $(GIR) -o $(TYPELIB)

data/crystal-gobject/spec/libsample/test-subject.c

@@ -0,0 +1,107 @@
+#include "test-subject.h"
+
+/* Private structure definition. */
+typedef struct {
+  gchar *string;
+} TestSubjectPrivate;
+
+G_DEFINE_TYPE_WITH_PRIVATE(TestSubject, test_subject, G_TYPE_OBJECT)
+
+typedef enum {
+  PROP_STRING = 1,
+  N_PROPERTIES
+} TestSubjectProperty;
+
+static GParamSpec *obj_properties[N_PROPERTIES] = { NULL, };
+
+static void test_subject_dispose(GObject *gobject) {
+  // TestSubjectPrivate *priv = test_subject_get_instance_private(TEST_SUBJECT(gobject));
+
+  G_OBJECT_CLASS(test_subject_parent_class)->dispose(gobject);
+}
+
+static void test_subject_finalize(GObject *gobject) {
+  TestSubjectPrivate *priv = test_subject_get_instance_private(TEST_SUBJECT(gobject));
+
+  g_free(priv->string);
+
+  G_OBJECT_CLASS(test_subject_parent_class)->finalize(gobject);
+}
+
+static void test_subject_set_property(GObject *gobject, guint property_id, const GValue *value, GParamSpec *pspec) {
+  TestSubjectPrivate *priv = test_subject_get_instance_private(TEST_SUBJECT(gobject));
+
+  switch ((TestSubjectProperty) property_id) {
+  case PROP_STRING:
+    g_free(priv->string);
+    priv->string = g_value_dup_string(value);
+    break;
+  default:
+    G_OBJECT_WARN_INVALID_PROPERTY_ID(gobject, property_id, pspec);
+    break;
+  }
+}
+
+static void test_subject_get_property(GObject *gobject, guint property_id, GValue *value, GParamSpec *pspec) {
+  TestSubjectPrivate *priv = test_subject_get_instance_private(TEST_SUBJECT(gobject));
+
+  switch ((TestSubjectProperty) property_id) {
+  case PROP_STRING:
+    g_value_set_string(value, priv->string);
+    break;
+  default:
+    /* We don't have any other property... */
+    G_OBJECT_WARN_INVALID_PROPERTY_ID(gobject, property_id, pspec);
+    break;
+  }
+}
+
+static void test_subject_class_init(TestSubjectClass *klass) {
+  GObjectClass *object_class = G_OBJECT_CLASS(klass);
+
+  object_class->set_property = test_subject_set_property;
+  object_class->get_property = test_subject_get_property;
+  object_class->dispose = test_subject_dispose;
+  object_class->finalize = test_subject_finalize;
+
+  obj_properties[PROP_STRING] = g_param_spec_string("string", "String", "A string property.",
+                                                    NULL  /* default value */,
+                                                    G_PARAM_CONSTRUCT_ONLY | G_PARAM_READWRITE);
+
+  g_object_class_install_properties(object_class, N_PROPERTIES, obj_properties);
+
+}
+
+static void test_subject_init(TestSubject *self) {
+  // TestSubjectPrivate *priv = test_subject_instance_private(self);
+
+  /* initialize all public and private members to reasonable default values.
+   * They are all automatically initialized to 0 to begin with. */
+}
+
+TestSubject *test_subject_new(void) {
+  return g_object_new(TEST_TYPE_SUBJECT, NULL);
+}
+
+
+gchar *test_subject_receive_string_and_len(TestSubject *self, gchar* str, int len) {
+  gchar* retval = (gchar*) g_malloc(128);
+  sprintf(retval, "%s-%d", str, len);
+  return retval;
+}
+
+int test_subject_receive_optional_array_and_len(TestSubject *self, const char* buf, int len) {
+  if (len == 0 || buf == NULL) {
+    return 0;
+  }
+
+  return len;
+}
+
+int test_subject_receive_nullable_object(TestSubject *self, TestSubject* nullable) {
+  return nullable == NULL;
+}
+
+int test_subject_receive_arguments_named_as_crystal_keywords(TestSubject *self_, int def, int alias, int module, int out, int begin, int self, int end, int abstract, int in) {
+  return def + alias + module + out + begin + self + end + abstract + in;
+}