17 lines
363 B
Racket
17 lines
363 B
Racket
#lang scheme/base
|
|
(require scheme/class
|
|
"../../syntax.rkt"
|
|
"../common/queue.rkt"
|
|
"../common/dialog.rkt"
|
|
"../../lock.rkt"
|
|
"frame.rkt")
|
|
|
|
(provide dialog%)
|
|
|
|
(define dialog%
|
|
(class (dialog-mixin frame%)
|
|
(super-new [is-dialog? #t])
|
|
|
|
;; #t result avoids children sheets
|
|
(define/override (get-sheet) #t)))
|