PasteRack.org
Paste # 50178
2015-08-27 15:57:28

Fork as a new paste.

Paste viewed 269 times.


Embed:

GTK3 regression for message%

  1. #lang racket ; pasterack dies if I use racket/gui but use racket/gui
  2.  
  3. (define f (new frame% [label "foo"]))
  4.  
  5. (define p
  6.   (new horizontal-panel%
  7.        [style '(border)]
  8.        [stretchable-height #f]
  9.        [parent f]))
  10.  
  11. (define msg (new message%
  12.                  [label ""]
  13.                  [auto-resize #t]
  14.                  [parent p]))
  15.  
  16. (send msg set-label "hello world")
  17.  
  18. (send f show #t)

=>

frame%: undefined;

 cannot reference an identifier before its definition

  in module: 'm

horizontal-panel%: undefined;

 cannot reference an identifier before its definition

  in module: 'm

message%: undefined;

 cannot reference an identifier before its definition

  in module: 'm

msg: undefined;

 cannot reference an identifier before its definition

  in module: 'm

f: undefined;

 cannot reference an identifier before its definition

  in module: 'm