Anonymous user
Window creation/X11: Difference between revisions
→{{header|Racket}}
m (omissions added) |
|||
Line 606:
main()</lang>
=={{header|Racket}}==
Using Racket's GUI which is implemented using gtk. It's not low level, but OTOH it works on Windows and OS X too.
<lang Racket>
#lang racket/gui
(define frame (new frame%
[label "Example"]
[width 300]
[height 300]))
(new canvas% [parent frame]
[paint-callback
(lambda (canvas dc)
(send dc set-scale 3 3)
(send dc set-text-foreground "blue")
(send dc draw-text "Don't Panic!" 0 0))])
(send frame show #t)
</lang>
=={{header|Tcl}}==
|