From f9c6625eaa1804c6c9bc21f639bd34014aa715ea Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 9 Mar 2004 17:22:20 +0000 Subject: [PATCH] . original commit: 1b89d3da4b7b0f9b96855b62c8c908b3b6001106 --- collects/mred/edit.ss | 2 +- collects/mred/mred.ss | 12 +++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index d8e51bff..30774777 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -148,7 +148,7 @@ (send c set-editor e) (when file - (if (regexp-match "[.]((gif)|(bmp)|(jpg)|(xbm)|(xpm))$" file) + (if (regexp-match "[.](gif|bmp|jpe?g|xbm|xpm|png)$" file) (send e insert (make-object image-snip% file)) (send e load-file file))) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 11dc6e33..46da645e 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -4538,7 +4538,9 @@ (define basic-list-control% (class100* basic-control% (list-control<%>) (mk-wx mismatches label parent selection callback) (public - [append (entry-point (lambda (i) (send wx append i)))] + [append (entry-point (lambda (i) + (check-label-string '(method list-control<%> append) i) + (send wx append i)))] [clear (entry-point (lambda () (send wx clear)))] [get-number (entry-point (lambda () (send wx number)))] [get-string (entry-point (lambda (n) (check-item 'get-string n) (send wx get-string n)))] @@ -4619,8 +4621,12 @@ (override [append (entry-point (case-lambda - [(i) (super-append i)] - [(i d) (send wx append i d)]))]) + [(i) + (check-label-string '(method list-control<%> append) i) + (super-append i)] + [(i d) + (check-label-string '(method list-control<%> append) i) + (send wx append i d)]))]) (public [delete (entry-point (lambda (n) (check-item 'delete n) (send wx delete n)))] [get-data (entry-point (lambda (n) (check-item 'get-data n) (send wx get-data n)))]