GTKWindows下Haskell的GTK开发环境搭建

一个在 Windows 下相对小众的 GUI 框架 -GTK，碰上一个相对小众的编程语言 -Haskell，会碰出什么样的火花呢？现实的结果就是：相对于 Linux，想在 Windows 下搭建好一个能工作的开发环境，简直是太难了! 本篇文章介绍了一种可用的搭建方法。

安装 msys2

安装过程比较简单，过程略。假设安装的是 64 位的版本：msys2_x86_64，使用默认配置安装，默认 C 盘。

配置环境变量

可在当前命令行里配置环境变量，如下：

SET PATH=C:\\msys64\\mingw64\\bin;C:\\msys64\\usr\\bin;%PATH%
SET PKG_CONFIG_PATH=C:\\msys64\mingw64\\lib\\pkgconfig
SET XDG_DATA_DIRS=C:\\msys64\\mingw64\\share

上面环境变量只是在当前会话生效；若要永久生效则需：

安装 GTK 软件包

安装完 msys2 后，启动菜单里会就会有如图所示的三个菜单项：

启动 msys2 或mingw64任意一个，执行以下命令安装一些相关的函数库和工具：

pacman -S mingw-w64-x86_64-gtk3
pacman -S mingw-w64-x86_64-glade
pacman -S mingw-w64-x86_64-toolchain base-devel
pacman -S mingw-w64-x86_64-gobject-introspection
pacman -S mingw-w64-x86_64-gtksourceview3

上述软件，比如 glade，早期编程可能用不到，也可以暂时不安装。如果后续还少其他软件包，使用pacman 安装即可。

到这里，C 语言的 GTK 开发环境已经搭建好了，可使用 C 语言编写 GTK 程序了。下面是使用 C 语言编写的一个示例程序example.c：

#include <gtk/gtk.h>

static void
activate (GtkApplication* app,
          gpointer        user_data)
{
  GtkWidget *window;

  window = gtk_application_window_new (app);
  gtk_window_set_title (GTK_WINDOW (window), "Window");
  gtk_window_set_default_size (GTK_WINDOW (window), 200, 200);
  gtk_widget_show_all (window);
}

int
main (int    argc,
      char **argv)
{
  GtkApplication *app;
  int status;

  app = gtk_application_new ("org.gtk.example", G_APPLICATION_FLAGS_NONE);
  g_signal_connect (app, "activate", G_CALLBACK (activate), NULL);
  status = g_application_run (G_APPLICATION (app), argc, argv);
  g_object_unref (app);

  return status;
}

使用以下命令编译：

gcc `pkg-config --cflags gtk+-3.0` -o example example.c `pkg-config --libs gtk+-3.0`

可以看到，通过使用 pkg-config 命令，可以简化我们手动指定头文件和库的过程。

下一步我们搭建 Haskell 的 GTK 开发环境。

安装 stack

stack 之于 Haskell，就如 Gradle 之于 Java，建议所有人都用。安装很简单，使用默认配置，过程略。

安装完 stack 后，我们试着创建一个项目：

stack new GTKTest

将 app/Main.hs 文件内容替换为以下代码：

{-# LANGUAGE OverloadedStrings, OverloadedLabels #-}

module Main where

import qualified GI.Gio as Gio
import qualified GI.Gtk as Gtk
import Data.GI.Base

activateApp :: Gtk.Application -> IO ()
activateApp app = do
  w <- new Gtk.ApplicationWindow [ #application := app
                                 , #title := "Window"
                                 , #defaultWidth := 200
                                 , #defaultHeight := 200
                                 ]
  #showAll w
  return ()

main :: IO ()
main = do
  app <- new Gtk.Application [ #applicationId := "org.gtk.example"
                             , #flags := [Gio.ApplicationFlagsFlagsNone] -- <-- this flag is the default. no need to pass
                             ]
  on app #activate $ activateApp app
  Gio.applicationRun app Nothing
  return ()

然后我们编译代码：

stack build

这个时候会报错，错误信息为：

Failed to load shared library ‘libcairo-gobject-2.dll’ referenced by the typelib: ‘libcairo-gobject-2.dll’: 找不到指定的程序。
Could not resolve symbol “cairo_gobject_context_get_type” in namespace “cairo”
CallStack (from HasCallStack):
…

这是链接阶段的错误，这个问题也困惑了我很久。通过查资料，原来是 Windows 下 GHC 自带的 zlib1.dll 造成的。

处理 GHC 的 zlib1.dll

通过尝试，暂时有两种解决方式：
（1）将 ghc 的 zlib1.dll 删掉
（2）将 ghc 的 zlib1.dll 替换为 msys2 下的 zlib1.dll 即可
目的都是为了链接程序时不去找 ghc 自带的 zlib1.dll。

运行项目，能得到正确的运行结果：

stack exec GTKTest-exe

请继续关注我的公众号文章