[lisp-hh] Ergebnis des Lisp Stammtisches Juli

[Ulrich Hoffmann]

> Ulli hatte die FH Wedel angeboten, Stefan seine Firma freiheit.

> Dies zeigt eine leichte Präferenz für freiheit wegen der zentraleren  
> Lage.


Ich will mich gar nicht aufdrängen. Wir können uns ja auch gerne mal
später in Wedel treffen... Mir hat es das letzte mal sehr gut an der
Hoheluftbrücke gefallen (wenn bloß der weite Weg nicht wär ;-)

Viele Grüße,
		Ulli

P.S. Danke für den CAPI-Code. Ich freu mich schon auf den Workshop....


Am 31.07.2008 um 00:55 schrieb Jens Teich:

> Vom warmen Sommerabend-Stammtisch gibt es zwei Dinge zu berichten.
>
> 1. Ort des August Stammtisch mit Capi Workshop
>
> Ulli hatte die FH Wedel angeboten, Stefan seine Firma freiheit.  
> Beide waren nicht anwesend, so dass wir noch nichts festgezurrt  
> haben und nur ein Meinungsbild erstellt haben. Dies zeigt eine  
> leichte Präferenz für freiheit wegen der zentraleren Lage.
>
> Weitere Infos folgen.
>
>
> 2. Für den CAPI Workshop haben wir etwas vorgearbeitet. Hier das  
> Ergebnis (braucht LispWorks):
>
> (defpackage :taschenrechner
>  (:use :cl :capi))
>
> (in-package :taschenrechner)
>
> (defun press-button (data interface)
>  (with-slots (x y) interface
>    (cond ((numberp data)
>           (setf x (+ (* 10 x) data)))
>          ((eq data '+)
>           (setf y x)
>           (setf x 0))
>          ((eq data '=)
>           (setf x (+ x y))
>           (setf y 0)))
>    (display-tip x interface)))
>
> (defun display-tip (data interface)
>  (with-slots (tip) interface
>    (setf (text-input-pane-text tip)
>          (format nil "~a" data))))
>
> (define-interface taschi ()
>  ((x :initform 0
>      :documentation "x-Register: Wert im Display")
>   (y :initform 0
>      :documentation "y-Register: Zwischenspeicher fuer 1. Summand"))
>  (:panes
>   (tip text-input-pane
>        :enabled nil
>        :text "0")
>   (but push-button-panel
>        :items '(1 2 3 4 5 6 7 8 9 0 + =)
>        :layout-class 'capi:grid-layout
>        :layout-args '(:columns 3)
>        :selection-callback 'press-button))
>  (:default-initargs :title "Taschi"))
>
> (display (make-instance 'taschi))
>
>
> Gruss
> Jens
>
> PS ich habe auf der Rückfahrt noch ein kleines wenig nachgearbeitet,  
> aber nur ein klitzekleines bischen.
>
> PS2 offen ist die Frage von Lutz, wie das text-input-pane  
> rechtsbündig ausgerichtet werden kann.
> _______________________________________________
> lisp-hh site list
> lisp-hh at common-lisp.net
> http://common-lisp.net/mailman/listinfo/lisp-hh

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/lisp-hh/attachments/20080731/182ffcd0/attachment.html>