Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Instances of group-box-panel% fail to show inside some panels in Windows #271

Open
daniig opened this issue May 22, 2022 · 0 comments
Open

Comments

@daniig
Copy link

daniig commented May 22, 2022

The following example reproduces an inconsistency in the behavior of (at least) the combination of auto-vscroll and group-box-panel% between Windows and the other two platforms.

In macOS and Linux, group-box-panels show as expected when placed inside a vertical-panel, regardless of the style parameters of the vertical-panel.

In Windows, the group-box-panel fails to show when the parent vertical-panel has auto-vscroll as one of the style parameters.

Any other widgets inside the problematic panel (such as message% or button%) seem to behave as expected in all platforms.

What version of Racket are you using?
8.5 [cs]

What program did you run?
This short program reproduces the bug. See the attached Linux and Window screenshots for further comparison.

#lang racket/gui

(define test-frame-1 (new frame% [label "Test with auto-vscroll"] [width 512] [height 512]))
(define parent-frame-1 (new vertical-panel% [parent test-frame-1] [style '(auto-vscroll)]))
(define group-box-panel-1 (new group-box-panel% [parent parent-frame-1] [label "Hello world"]))
(define test-message-1 (new message% [parent parent-frame-1] [label "Test message"]))
(send test-frame-1 show #t)

(define test-frame-2 (new frame% [label "Test without auto-vscroll"] [width 512] [height 512]))
(define parent-frame-2 (new vertical-panel% [parent test-frame-2]))
(define group-box-panel-2 (new group-box-panel% [parent parent-frame-2] [label "Hello world"]))
(define test-message-2 (new message% [parent parent-frame-2] [label "Test message"]))
(send test-frame-2 show #t)

Ubuntu screenshot
Windows screenshot

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant