democracy 0.0.56

data/crystal-gobject/.git/logs/HEAD

@@ -0,0 +1 @@
+0000000000000000000000000000000000000000 5fa8d06dc332d745e2767d32ca240fee043f278c a <a@a.(none)> 1635041720 -0400	clone: from https://github.com/jhass/crystal-gobject.git

data/crystal-gobject/.git/logs/refs/heads/main

@@ -0,0 +1 @@
+0000000000000000000000000000000000000000 5fa8d06dc332d745e2767d32ca240fee043f278c a <a@a.(none)> 1635041720 -0400	clone: from https://github.com/jhass/crystal-gobject.git

data/crystal-gobject/.git/logs/refs/remotes/origin/HEAD

@@ -0,0 +1 @@
+0000000000000000000000000000000000000000 5fa8d06dc332d745e2767d32ca240fee043f278c a <a@a.(none)> 1635041720 -0400	clone: from https://github.com/jhass/crystal-gobject.git

data/crystal-gobject/.git/packed-refs

@@ -0,0 +1,15 @@
+# pack-refs with: peeled fully-peeled sorted 
+5fa8d06dc332d745e2767d32ca240fee043f278c refs/remotes/origin/main
+ffcc034046b889b3993e87ba555baa5b7d8850fc refs/remotes/origin/master
+eabefeb3b6ba5553396179326813aadfeb2ff554 refs/tags/v0.1.0
+6468c57f8aa54b71c766d27b1e59e87a09ee8552 refs/tags/v0.10.0
+6079130f4dca7ed7ed8885ddc95f9f83da94ae13 refs/tags/v0.2.0
+09f02b85e533e6cdb74a96c78ef76727fac53b56 refs/tags/v0.3.0
+afbf1462d3ebb78ec6760415689a1cdf33c1bd76 refs/tags/v0.3.1
+18e4c9cd2e3eea3f9f28a23303f9a6e3cb50d389 refs/tags/v0.4.0
+b6c2fe92c2bf55a2dee5534af4aa9454bf20e627 refs/tags/v0.5.0
+34890cad190bf7da65228676ef5d9af1372827f2 refs/tags/v0.6.0
+dabf37e79aa391a9a9605e0db364dd9aa358cac1 refs/tags/v0.7.0
+a749b6becca81ee4f7cd1c33d6bccfd05d7a0f83 refs/tags/v0.8.0
+28ff5a61119a2121ee6888279e4cce3170ee9ed2 refs/tags/v0.9.0
+539bf539df1104ca6d1ad70c1340b6c1d3cb7026 refs/tags/v0.9.1

data/crystal-gobject/.git/refs/heads/main

@@ -0,0 +1 @@
+5fa8d06dc332d745e2767d32ca240fee043f278c

data/crystal-gobject/.git/refs/remotes/origin/HEAD

@@ -0,0 +1 @@
+ref: refs/remotes/origin/main

data/crystal-gobject/.github/workflows/ci.yml

@@ -0,0 +1,22 @@
+name: CI
+
+on: [push, pull_request]
+
+jobs:
+  build:
+
+    runs-on: ubuntu-latest
+
+    container:
+      image: crystallang/crystal
+
+    steps:
+    - uses: actions/checkout@v2
+    - name: Install packages
+      run: apt update && apt install -y libgirepository1.0-dev libgtk-3-dev xvfb
+    - name: Install dependencies
+      run: shards install
+    - name: Run tests
+      run: xvfb-run -a script/ci.sh
+    - name: Cleanup xvfb pidx
+      uses: bcomnes/cleanup-xvfb@v1

data/crystal-gobject/.gitignore

@@ -0,0 +1,14 @@
+.crystal/
+*~
+shard.lock
+bin/
+docs/
+*swp
+spec/build/
+/samples/*
+!/samples/*/
+!/samples/*.*
+!/samples/*/*.*
+*.dwarf
+*.o
+/.vscode/

data/crystal-gobject/LICENSE

@@ -0,0 +1,27 @@
+Copyright 2020 The crystal-gobject contributors
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+
+3. Neither the name of the copyright holder nor the names of its contributors
+   may be used to endorse or promote products derived from this software
+   without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.

data/crystal-gobject/README.md

@@ -0,0 +1,143 @@
+# gobject-introspection for [Crystal](http://crystal-lang.org)
+
+The primary purpose of this shard is to provide compile-time generated
+bindings to libraries supporting GObject Introspection, so for example Gtk.
+
+Secondarily this project also aims to provide hand written extensions and
+overrides for the more popular GObject based libraries that make the bindings
+more friendly to use and allow users to write more idiomatic Crystal.
+In the midterm these should be extracted to their own shards that depend on this one.
+
+This should be useable for simple projects but usually still requires familarity with
+the C interface and usage of the original library. There's most likely still
+incorrect code generated, some methods may not even compile when invoked as
+Crystal does semantic checks only then. So this should be considered a work in
+progress and contributions are very welcome!
+
+## Install
+
+Install like any other shard. Additionally you'll need gobject-introspection installed
+as well as the GObject based library you want to use and its typelib file needs to be
+available.
+
+### Debian
+
+```
+sudo apt install libgirepository1.0-dev
+```
+
+### Fedora
+
+```
+sudo dnf install gobject-introspection-devel
+```
+
+## Usage
+
+Include in your shard.yml:
+```yaml
+dependencies:
+  gobject:
+    github: jhass/crystal-gobject
+    version: ~> 0.10.0
+```
+
+For libraries that have convenience wrappers you just require them under the `gobject`
+namespace. For example:
+
+```cr
+require "gobject/gdk"
+```
+
+Gtk specifically has a convenience wrapper that starts the mainloop automatically:
+
+```cr
+require "gobject/gtk/autorun"
+```
+
+However the main entry point is the `require_gobject` macro:
+
+
+```cr
+require "gobject"
+require_gobject "Gio"
+```
+
+This will replace itself with the entire generated binding code for, in this case,
+Gio and its dependencies.
+
+There's a very work in progress documentation generator under the `gi-doc` target.
+Note it is a modified version of the Crystal compiler's doc generator and thus
+compiles almost the entire compiler, thus compiling this tool takes as much time
+and resources as compiling the compiler does. Also libraries such as Gtk are huge! Generating
+for Gtk and its dependencies will take a long time and generate about a gigabyte
+of documentation.
+
+## Samples
+
+Clone the repo and give the samples a try:
+```
+cd samples
+crystal run gtk_hello_world.cr
+```
+
+To run the samples you will also need the Gtk development package.
+
+On Debian you can install it with:
+```
+sudo apt install libgtk-3-dev
+```
+
+On Fedora:
+```
+sudo dnf install gtk3-devel
+```
+
+## I'm on Linux and I'm getting random crashes (segmentation faults)
+
+Using GTK or another library that spawns threads? Please try adding
+[crystal-malloc_pthread_shim](https://github.com/jhass/crystal-malloc_pthread_shim) to your project.
+If that does not help, please open an issue with a, ideally minimal, example to reproduce the crash!
+
+
+## Contributing
+
+Pull requests are welcome! If you encounter a bug, the first step is to produce
+the most minimal example that reproduces it. Currently this has no testsuite,
+so the samples funciton as a sort of manual testsuite. That means including this minimal
+example into an issue or pull request will not only allow others to verify the bug,
+but also prevent it from reappearing as a regression.
+
+Running `src/generator/build_namespace.cr` directly is a good way to inspect the generated code.
+An alternative is to add `{% debug() %}` to the end of the `require_gobject`
+macro definition in `src/gobject.cr`.
+
+### Architecture
+
+gobject-introspection is itself a C library, so we need to have bindings for it.
+It is itself introspectable and we make use of that, however there's a bootstrapping
+problem if we would try to use the main `require_gobject` macro for that, there are
+no bindings for what it's based on! So we have a second generator that writes the output
+to static files under `src/generated` under the target `gi-generator`. The initial version
+of this was bootstrapped using hand-written bindings. A good quick check whether any changes
+you did still work, is to build and run this target twice, the first time to update the generated
+bindings and the second time to see if they still compile and produce the same output.
+
+`src/generator` has the driver code for any of the generators and tools. `src/g_i_repository`
+contains the classes that define the Crystal code for each of the GObject Introspection info types.
+
+The `gi-dump` target tries to completely map out all info that's present in a typelib, that is
+how the current bindings see that info. Look at its options, you'll need to make use
+of them to drill in, otherwise it's just too much output due to how it displays
+the same infos all over again and again recursively.
+
+For now convenience extensions and overrides go under `src/library_name`, so for example `src/gtk` for Gtk or `src/g_lib` for GLib.
+The future prospect is to have them live in their own shards that depend on this one.
+
+## Library specific shards
+
+Like mentioned above, we want shards that collect any convenience extensions and overrides to the code this library generates.
+Here's a well known list of  them:
+
+- [cairo-gobject](https://github.com/viachpaliy/cairo-gobject) - Cairo bindings for crystal-gobject.
+- [gtk_custom_widgets](https://github.com/viachpaliy/gtk_custom_widgets) - collection of custom widgets.

data/crystal-gobject/samples/base_class_container.cr

@@ -0,0 +1,15 @@
+require "gobject/gtk/autorun"
+
+class Container
+  getter widget : ::Gtk::Label
+
+  def initialize
+    @widget = Gtk::Label.new("Hello")
+  end
+end
+
+main_window = Gtk::Window.new(title: "Widget container", border_width: 20)
+container = Container.new
+main_window.add(container.widget)
+main_window.connect "destroy", &->Gtk.main_quit
+main_window.show_all

data/crystal-gobject/samples/connect_after.cr

@@ -0,0 +1,35 @@
+require "gobject/gtk/autorun"
+
+def on(widget, event)
+  puts "on"
+  false
+end
+
+def after(widget, event)
+  puts "after"
+  true
+end
+
+window = Gtk::Window.new(title: "Enter something!", border_width: 10)
+window.connect "destroy", after: true, &->Gtk.main_quit
+box = Gtk::Box.new(orientation: :vertical, spacing: 6)
+window.add(box)
+
+entry1 = Gtk::Entry.new
+entry1.after_focus_out_event(&->after(Gtk::Widget, Gdk::EventFocus))
+entry1.on_focus_out_event(&->on(Gtk::Widget, Gdk::EventFocus))
+
+entry2 = Gtk::Entry.new
+entry2.after_focus_out_event {
+  puts "after"
+  true
+}
+entry2.on_focus_out_event {
+  puts "on"
+  false
+}
+
+box.add(entry1)
+box.add(entry2)
+
+window.show_all

data/crystal-gobject/samples/crout/crout.cr

@@ -0,0 +1,59 @@
+require "gobject/crout"
+
+Crout.build(STDOUT) do
+  section do
+    foo = line assign_var(literal(1))
+    line call("puts", foo)
+  end
+
+  source_location("unicorn.cr") do
+    def_module("Foo") do
+      def_class("Bar") do
+        def_method("hello", arg("name")) do
+          name = line assign_var(var("name"))
+          line call("puts", literal("Hello #{interpolation(name)}"))
+        end
+
+        def_method("test")
+      end
+
+      def_struct("Baz") { }
+
+      write_annotation("Link", literal("foo"))
+      write_annotation("Link", literal("bar"))
+      def_lib("LibNone") { }
+    end
+  end
+
+  section do
+    bar = line assign_var(call("new", receiver: "Foo::Bar"))
+    line call("hello", literal("John"), receiver: bar)
+    line call("test", receiver: bar)
+  end
+
+  section do
+    line def_if(call("==", literal("hello"), receiver: call("[]?", literal(0), receiver: var("ARGV")))) { |b|
+      b.line b.call("puts", b.literal("Hi!"))
+    }.elsif(call("==", literal("bye"), receiver: call("[]?", literal(0), receiver: var("ARGV")))) { |b|
+      b.line b.call("puts", b.literal("Ciao!"))
+    }.else { |b|
+      b.line b.call("puts", b.literal("Uh..."))
+    }
+  end
+
+  section do
+    def_method("baz") do
+      line call("puts", invoke_yield(literal("test")))
+    end
+    line
+
+    line call("baz") { |b|
+      b.line b.literal("Hello")
+    }
+
+    item = declare_var
+    line call("baz", block_args: {item}) { |b|
+      b.line b.call "upcase", receiver: item
+    }
+  end
+end

data/crystal-gobject/samples/gdk_window.cr

@@ -0,0 +1,36 @@
+require "gobject/gdk"
+
+Gdk.init
+
+window = Gdk::Window.new(nil,
+  Gdk::WindowAttr.new(
+    title: "Hello World",
+    window_type: Gdk::WindowType::TOPLEVEL,
+    wclass: Gdk::WindowWindowClass::INPUT_OUTPUT,
+    width: 800,
+    height: 600
+  ),
+  Gdk::WindowAttributesType.flags(TITLE)
+)
+
+window.events = Gdk::EventMask::ZERO_NONE
+
+window.show
+
+main_loop = GLib::MainLoop.new(nil, true)
+
+Gdk::Event.on_event do |event|
+  case event.event_type
+  when .expose?
+    puts "Expose count: #{event.expose.count}"
+  when .setting?
+    puts "Setting #{event.setting.name} is #{event.setting.action}"
+  when .delete?
+    puts "Received window delete"
+    main_loop.quit
+  else
+    puts "Unhandled event: #{event.event_type}"
+  end
+end
+
+main_loop.run

data/crystal-gobject/samples/glist.cr

@@ -0,0 +1,16 @@
+require "gobject/gtk/autorun"
+
+window = Gtk::Window.new title: "Lists", border_width: 10
+window.connect "destroy", &->Gtk.main_quit
+
+container = Gtk::Box.new :vertical, spacing: 2
+
+radio1 = Gtk::RadioButton.new_with_label(nil, "Good?")
+radio2 = Gtk::RadioButton.new_with_label_from_widget(radio1, "Awesome?")
+container.add radio1
+container.add radio2
+pp! container.children.to_a
+pp! radio1.group.to_a
+
+window.add container
+window.show_all

data/crystal-gobject/samples/greeter.cr

@@ -0,0 +1,34 @@
+require "gobject/gtk/autorun"
+
+builder = Gtk::Builder.new_from_file "#{__DIR__}/greeter.glade"
+builder.connect_signals
+
+info = Gtk::Window.cast builder["info"]
+info_text = Gtk::Label.cast builder["text"]
+name = Gtk::Entry.cast builder["name"]
+greet = Gtk::Button.cast(builder["greet"])
+
+def greet(button, info, info_text, name)
+  button.sensitive = false
+  button.label = "One time is enough!"
+  name.disconnect("activate")
+
+  text = name.text
+  text = text.empty? ? "You should enter your name :("  : "Hello #{text}!"
+  info_text.text = text
+  info.show_all
+end
+
+name.on_activate do
+  greet greet, info, info_text, name
+end
+
+greet.on_clicked do |button|
+  greet button, info, info_text, name
+end
+
+Gtk::Button.cast(builder["ok"]).connect "clicked", &->info.hide
+
+
+window = Gtk::Window.cast builder["window"]
+window.show_all

data/crystal-gobject/samples/greeter.glade

@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Generated with glade 3.18.3 -->
+<interface>
+  <requires lib="gtk+" version="3.12"/>
+  <object class="GtkWindow" id="window">
+    <property name="can_focus">False</property>
+    <property name="border_width">10</property>
+    <property name="title" translatable="yes">Greeter</property>
+    <signal name="destroy" handler="gtk_main_quit" swapped="no"/>
+    <child>
+      <object class="GtkBox" id="box1">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <property name="orientation">vertical</property>
+        <child>
+          <object class="GtkEntry" id="name">
+            <property name="visible">True</property>
+            <property name="can_focus">True</property>
+            <property name="placeholder_text" translatable="yes">Your name</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="greet">
+            <property name="label" translatable="yes">Greet me!</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>
+      </object>
+    </child>
+  </object>
+  <object class="GtkWindow" id="info">
+    <property name="can_focus">False</property>
+    <property name="border_width">10</property>
+    <property name="title" translatable="yes">Welcome</property>
+    <property name="resizable">False</property>
+    <property name="modal">True</property>
+    <property name="window_position">center-on-parent</property>
+    <property name="destroy_with_parent">True</property>
+    <property name="type_hint">dialog</property>
+    <property name="skip_taskbar_hint">True</property>
+    <property name="transient_for">window</property>
+    <child>
+      <object class="GtkBox" id="box2">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <property name="halign">center</property>
+        <property name="valign">center</property>
+        <property name="orientation">vertical</property>
+        <child>
+          <object class="GtkLabel" id="text">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="xpad">5</property>
+            <property name="ypad">5</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="ok">
+            <property name="label">gtk-ok</property>
+            <property name="visible">True</property>
+            <property name="can_focus">True</property>
+            <property name="receives_default">True</property>
+            <property name="use_stock">True</property>
+          </object>
+          <packing>
+            <property name="expand">False</property>
+            <property name="fill">False</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>

data/crystal-gobject/samples/gtk_accel_group.cr

@@ -0,0 +1,13 @@
+require "gobject/gtk/autorun"
+
+window = Gtk::ApplicationWindow.new(title: "AccelGroup", border_width: 20)
+window.connect "destroy", ->Gtk.main_quit
+window.add Gtk::Label.new("Press Ctrl+S")
+
+accel_group = Gtk::AccelGroup.new
+accel_group.connect(Gdk::KEY_S, :control_mask, :zero_none) do
+  puts "Ctrl+S pressed!"
+end
+window.add_accel_group(accel_group)
+
+window.show_all

data/crystal-gobject/samples/gtk_application.cr

@@ -0,0 +1,12 @@
+require "gobject/gtk"
+
+application = Gtk::Application.new(application_id: "org.crystal.sample")
+
+application.on_activate do
+  window = Gtk::ApplicationWindow.new(application: application, title: "Hello", border_width: 20)
+  window.connect "destroy", &->application.quit
+  window.add Gtk::Label.new("Hello World!")
+  window.show_all
+end
+
+application.run

data/crystal-gobject/samples/gtk_boxes.cr

@@ -0,0 +1,44 @@
+# Boxes are invisible containers into which we can pack our widgets.
+# When packing widgets into a horizontal box, the
+# objects are inserted horizontally from left to right or right to left
+# depending on whether Gtk::Box.pack_start() or Gtk::Box.pack_end() is used.
+# In a vertical box, widgets are packed from top to bottom or vice versa.
+# You may use any combination of boxes inside or beside other boxes to create the desired effect.
+
+require "gobject/gtk/autorun"
+
+window = Gtk::Window.new
+window.title = "Box demo!"
+window.connect "destroy", &->Gtk.main_quit
+window.border_width = 10
+
+name_container = Gtk::Box.new :vertical, spacing: 2
+
+name_label = Gtk::Label.new "Enter name"
+name_container.pack_start(name_label, expand: true, fill: true, padding: 10)
+
+name_entry = Gtk::Entry.new
+name_container.pack_start(name_entry, expand: true, fill: true, padding: 10)
+
+name_submit = Gtk::Button.new label: "OK!"
+name_submit.on_clicked { puts "Remembering you're called: #{name_entry.text}" }
+name_container.pack_start(name_submit, expand: true, fill: true, padding: 10)
+
+remarks_container = Gtk::Box.new :horizontal, 2
+
+remarks_label = Gtk::Label.new "Enter remarks"
+remarks_container.pack_start(remarks_label, expand: true, fill: true, padding: 5)
+
+remarks_entry = Gtk::Entry.new
+remarks_container.pack_start(remarks_entry, expand: true, fill: true, padding: 5)
+
+remarks_submit = Gtk::Button.new label: "Save"
+remarks_submit.on_clicked { puts "Stored remarks: #{remarks_entry.text}" }
+remarks_container.pack_start(remarks_submit, expand: true, fill: true, padding: 5)
+
+root = Gtk::Box.new :vertical, spacing: 2
+root.add name_container
+root.add remarks_container
+window.add root
+
+window.show_all

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

@@ -0,0 +1,37 @@
+require "gobject/gtk/autorun"
+
+class CSSApp
+  @window : Gtk::Window
+
+  delegate show_all, to: @window
+
+  def initialize
+    builder = Gtk::Builder.new_from_file "#{__DIR__}/css_window.glade"
+    builder.connect_signals
+
+    @window = Gtk::Window.cast builder["css_window"]
+    @window.title = "CSS Example"
+    @window.connect "delete-event", &->Gtk.main_quit
+
+    red_button = Gtk::Button.cast builder["red_button"]
+    red_button.connect("clicked") { change_background("#FF7083") }
+    green_button = Gtk::Button.cast builder["green_button"]
+    green_button.connect("clicked") { change_background("#83FF70") }
+    blue_button = Gtk::Button.cast builder["blue_button"]
+    blue_button.connect("clicked") { change_background("#7083FF") }
+
+    display = Gdk::Display.default.not_nil!
+    screen = display.default_screen
+    @css_provider = Gtk::CssProvider.new
+    Gtk::StyleContext.add_provider_for_screen screen, @css_provider, Gtk::STYLE_PROVIDER_PRIORITY_APPLICATION
+
+    @css_provider.load_from_path "#{__DIR__}/css_window.css"
+  end
+
+  def change_background(color)
+    @css_provider.load_from_data("#css_window { background-color: #{color}; }")
+  end
+end
+
+app = CSSApp.new
+app.show_all

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

@@ -0,0 +1,3 @@
+#css_window {
+  background-color: #7F7F7F;
+}