Rename to Rolladeck
This commit is contained in:
parent
496f4572e4
commit
4732daf1e7
|
@ -121,12 +121,12 @@
|
|||
(qt:widget (window-contents)))
|
||||
|
||||
|
||||
;; Return the UI’s XML, read from “contacts.ui”.
|
||||
;; Return the UI’s XML, read from “rolladeck.ui”.
|
||||
;; We could generate this XML ourselves, and write a nice s-expr front-end,
|
||||
;; maybe… `o`
|
||||
(define (window-contents)
|
||||
(call-with-input-file
|
||||
"rolladecks.ui"
|
||||
"rolladeck.ui"
|
||||
(lambda (in-port) (read-string #f in-port))))
|
||||
|
||||
|
Ŝarĝante…
Reference in New Issue