From b7aca5eba3ce8a083622b9540e714bc111449671 Mon Sep 17 00:00:00 2001 From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com> Date: Sun, 4 Feb 2024 20:42:34 -0600 Subject: [PATCH] Init --- contact.scm | 47 ++++++++++ contact.ui | 241 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 288 insertions(+) create mode 100644 contact.scm create mode 100644 contact.ui diff --git a/contact.scm b/contact.scm new file mode 100644 index 0000000..ea10259 --- /dev/null +++ b/contact.scm @@ -0,0 +1,47 @@ +;; Copyright © 2023, Jaidyn Ann +;; +;; This program is free software: you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation, either version 3 of +;; the License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +(import (chicken io) + qt-light) + + +;; Start & run the application. +(define (init) + (let ([qt-app (qt:init)] + [qt-win (create-window)]) + (init-window qt-win) + (qt:run))) + + +;; Create the application window. +(define (create-window) + (qt:widget (window-contents))) + + +;; Return the UI’s XML, read from “contacts.ui”. +;; We could generate this XML ourselves, and write a nice s-expr front-end, +;; maybe… `o` +(define (window-contents) + (call-with-input-file + "contact.ui" + (lambda (in-port) (read-string #f in-port)))) + + +;; Initialize the window. +(define (init-window window) + (qt:show window)) + + +(init) diff --git a/contact.ui b/contact.ui new file mode 100644 index 0000000..64f0a62 --- /dev/null +++ b/contact.ui @@ -0,0 +1,241 @@ + + + MainWindow + + + + 0 + 0 + 338 + 449 + + + + Contact + + + + + + + QLayout::SetMinimumSize + + + + + true + + + + 0 + 0 + + + + + 50 + 50 + + + + + 100 + 100 + + + + QFrame::NoFrame + + + + + + + Qt::Vertical + + + + 20 + 40 + + + + + + + + + + Qt::AlignRight|Qt::AlignTrailing|Qt::AlignVCenter + + + + + Name + + + + + + + + + + Company + + + + + + + + + + Address + + + + + + + + + + City + + + + + + + + + + State + + + + + + + + + + Zip + + + + + + + + + + Country + + + + + + + + + + E-mail + + + + + + + + + + Home phone + + + + + + + + + + Work phone + + + + + + + + + + Fax + + + + + + + + + + URL + + + + + + + + + + Nickname + + + + + + + + + + Birthday + + + + + + + + + + + + + + 0 + 0 + 338 + 20 + + + + + File + + + + + + + + + Exit + + + + + +