【GTK】Windows下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

請繼續關注個人公衆號文章