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}}== |