From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 18431 invoked by alias); 14 Feb 2003 15:06:20 -0000 Mailing-List: contact guile-gtk-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: guile-gtk-owner@sources.redhat.com Received: (qmail 18424 invoked from network); 14 Feb 2003 15:06:20 -0000 Received: from unknown (HELO maho3msx2.corp.emc.com) (128.221.11.32) by 172.16.49.205 with SMTP; 14 Feb 2003 15:06:20 -0000 Received: from pablo (10.68.1.134 [10.68.1.134]) by maho3msx2.corp.emc.com with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2653.13) id 1PRJ0YL9; Fri, 14 Feb 2003 10:06:15 -0500 Date: Fri, 14 Feb 2003 15:06:00 -0000 From: Stan Pinte To: guile-user Cc: guile-gtk Subject: guile-gtk: problem in "insert-text" signal handling. Message-Id: <20030214163538.12f31385.alto_stan@wanadoo.be> Reply-To: alto_stan@wanadoo.be Organization: Alto Software Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-SW-Source: 2003-q1/txt/msg00009.txt.bz2 hello, with the following program, I am getting garbage from the "new-text" variab= le, when introducing the second and following characters... Is this a bug in guile-gtk-1.2-0.31, or am I only supposed to use the first= charachter of the string? thanks a lot, Stan. output: inserted: ["2"] inserted: ["3B L=98=E2=FF=BF:6@XB p=E3=FF=BF=B8=E2=FF=BF=B3@@=9DD@"] inserted: ["4B L=98=E2=FF=BF:6@XB p=E3=FF=BF=B8=E2=FF=BF=B3@@=9DD@"] inserted: ["7B L=98=E2=FF=BF:6@XB p=E3=FF=BF=B8=E2=FF=BF=B3@@=9DD@"] inserted: ["8B L=98=E2=FF=BF:6@XB p=E3=FF=BF=B8=E2=FF=BF=B3@@=9DD@"] test program: (use-modules (ice-9 format)) (use-modules (gtk gtk)) (let ((window (gtk-window-new 'toplevel)) (button (gtk-button-new-with-label "Say Hello")) (ref-entry (gtk-entry-new))) (gtk-widget-set-name button "mybutton") (gtk-widget-set-name window "mywindow") (gtk-window-set-title window "Guile-Gtk: Hello World") (gtk-container-border-width window 10) ; (gtk-container-add window button) (gtk-container-add window ref-entry) (gtk-signal-connect ref-entry "insert-text" (lambda (new-text new-length position) (if (string? new-text) (format #t "inserted: [~s]~%" new-text) (format #t "not text!!!~n")))) (gtk-widget-show-all window) (gtk-standalone-main window)) --=20 Stanislas Pinte Computer Consultant 98, rue Bois l'Ev=EAque B-4000 Li=E8ge web: http://www.altosw.be email: alto_stan@wanadoo.be