1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;
;; A clone of a famous game.
;;
;; tst.cm - A gtk file requester map.
;;
;; (c) Copyright 1999 by Lutz Sammer
;;
;; $Id: $
;;
(use-modules (gtk gtk))
(let* ((window (gtk-file-selection-new "Choose map *.pud|*.pud.gz")))
(gtk-signal-connect
(gtk-file-selection-ok-button window)
"clicked" (lambda ()
(load-pud (gtk-file-selection-get-filename window))
(gtk-widget-destroy window) (gtk-main-quit)))
(gtk-signal-connect
(gtk-file-selection-cancel-button window)
"clicked" (lambda () (gtk-widget-destroy window) (gtk-main-quit)))
(gtk-file-selection-set-filename window "data/puds/default.pud")
(gtk-widget-show window)
(gtk-main))
|
