Window creation/X11: Difference between revisions

Content added Content deleted
m (omissions added)
Line 606: Line 606:


main()</lang>
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}}==
=={{header|Tcl}}==