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

.

Browse Source 
original commit: 6b688673ffea7967156db7570e30dff7de0b9979
This commit is contained in:
Matthew Flatt 1998-07-09 23:05:47 +00:00
parent 23a803d8b2
commit cdb60d3814
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mred/item.ss
View File

@ -940,11 +940,11 @@
(error "string selection not null"))))] (error "string selection not null"))))]
[(send e is-double-click?) [(send e is-double-click?)
; double-click ; double-click
(printf "Double-click~n")
(unless (= -1 (send e get-command-int)) (unless (= -1 (send e get-command-int))
(error "selection index is not -1")) (error "selection index is not -1"))
(unless (null? (send e get-command-string)) (unless (null? (send e get-command-string))
(error "string selection not null:" (send e get-command-string))) (error "string selection not null:" (send e get-command-string)))]
(printf "Double-click~n")]
[else [else
; misc multi-selection ; misc multi-selection
(printf "Changed~n") (printf "Changed~n")