suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 1b89d3da4b7b0f9b96855b62c8c908b3b6001106
This commit is contained in:
Matthew Flatt 2004-03-09 17:22:20 +00:00
parent 7d23785574
commit f9c6625eaa
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/edit.ss
View File

@ -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)))

12
collects/mred/mred.ss
View File

@ -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)))]