Hi all,
I have the following code:
#lang racket
(require slideshow racket/class racket/gui/base)
(define my-frame (new frame% [label "My chess"]
[width 300] [height 391]
[alignment '(center center)] ))
(define my-canvas
(new (class canvas%
(super-new [parent my-frame])
[define/override (on-paint)
(define my-dc (send my-canvas get-dc))
(send my-dc clear)
((make-pict-drawer (colorize (circle 225) "red")) my-dc 20
20)
]
[define/override (on-char ch)
(define key (send ch get-key-code))
(if (eq? key 'release) (send my-canvas on-paint) null)
]
)))
(new button% [parent my-frame] [label "Replay"] )
(new button% [parent my-frame] [label "Save"] )
(new button% [parent my-frame] [label "Load"] )
(send my-frame show #t)
which runs perfectly with no error. However, I want to add two new bottons
"Play" and "Draw" on the left and right of the button "Replay". I tried to
use
horizontal-pane, changing the last several lines in the code as:
(define my-pane (new horizontal-pane% [parent my-frame] [alignment '(center
center)] ))
(new button% [parent my-pane] [label "Play"] )
(new button% [parent my-pane] [label "Replay"] )
(new button% [parent my-pane] [label "Draw"] )
(new button% [parent my-frame] [label "Save"] )
(new button% [parent my-frame] [label "Load"] )
(send my-frame show #t)
However, this is not what I wanted. The area of horizontal pane
is obviously too large, and it makes the three buttons too distant
from the two buttons below, also it shadows the main area above.
Is there a way to minimize the width of the horizontal pane such that
the outlook is the same as if not using it (the original code pasted above)?
Thanks for your help in advance.
Mianlai
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
