一個在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
請繼續關注我的公衆號文章