Skip to content

Instantly share code, notes, and snippets.

@dmitryvk
Created November 16, 2010 05:17
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save dmitryvk/701470 to your computer and use it in GitHub Desktop.
(defpackage #:q
(:use #:cl #:gtk)
(:export #:main))
(in-package #:q)
(defun main ()
(within-main-loop
(let ((scale (make-instance 'v-scale
:adjustment (make-instance 'adjustment
:lower 0
:upper 20
:step-increment 1)))
(v-box (make-instance 'v-box))
(w (make-instance 'gtk-window)))
(container-add v-box scale)
(container-add w v-box)
(widget-show w))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment