From info at jensteich.de Tue Jul 29 09:20:53 2008 From: info at jensteich.de (Jens Teich) Date: Tue, 29 Jul 2008 11:20:53 +0200 Subject: [lisp-hh] Erinnerung Stammtisch morgen Message-ID: <488EE0F5.6070407@jensteich.de> Alle, die den warmen Sommer in Hamburg verbringen sind herzlich eingeladen zum morgigen Stammtisch. Details http://lisp-hh.de/wiki/Stammtisch Gruss Jens From info at jensteich.de Wed Jul 30 22:55:07 2008 From: info at jensteich.de (Jens Teich) Date: Thu, 31 Jul 2008 00:55:07 +0200 Subject: [lisp-hh] Ergebnis des Lisp Stammtisches Juli Message-ID: <4890F14B.7060101@jensteich.de> 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. From andreas at atp-media.de Wed Jul 30 23:18:26 2008 From: andreas at atp-media.de (Andreas Thiele) Date: Thu, 31 Jul 2008 01:18:26 +0200 Subject: [lisp-hh] FW: CAPI-Demo/rechts ausgerichtetes Display Message-ID: <000501c8f29a$92b574f0$6400a8c0@atphome2> -----Original Message----- From: Andreas Thiele [mailto:andreas at atp-media.de] Sent: Thursday, July 31, 2008 12:41 AM To: 'Jens Teich' Subject: CAPI-Demo/rechts ausgerichtetes Display Hallo Jens, hier ein Nachtrag. Das geht tats?chlich in LispWorks nicht so einfach. Verschiedene Vorschl?ge gibt's unter: http://thread.gmane.org/gmane.lisp.lispworks.general/1490/focus=1505 Ich hab' mal was gemacht, was so aussieht wie ein Taschenrechnerdisplay. Viele Gr??e Andreas -------------- next part -------------- A non-text attachment was scrubbed... Name: right.lisp Type: application/octet-stream Size: 1594 bytes Desc: not available URL: From uho at xlerb.de Thu Jul 31 07:22:42 2008 From: uho at xlerb.de (Ulrich Hoffmann) Date: Thu, 31 Jul 2008 09:22:42 +0200 Subject: [lisp-hh] Ergebnis des Lisp Stammtisches Juli In-Reply-To: <4890F14B.7060101@jensteich.de> References: <4890F14B.7060101@jensteich.de> Message-ID: <40D227E8-5023-4235-8FA4-98D84E3D73D6@xlerb.de> > 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: