Skip to content

Instantly share code, notes, and snippets.

@samdphillips

samdphillips/nowrap.rkt

Created October 26, 2025 06:06
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save samdphillips/936981ea93c65ea6941d5bb4f33d4f8d to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save samdphillips/936981ea93c65ea6941d5bb4f33d4f8d to your computer and use it in GitHub Desktop.
Download ZIP
Why won't this wrap the text?
Raw
nowrap.rkt
#lang racket/base
(require embedded-gui
framework
racket/class
racket/gui)
(define lorem #<<TEXT
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Curabitur eu metus non sem dapibus interdum. Nunc accumsan porttitor leo, a posuere dolor luctus quis. Suspendisse potenti. Morbi mattis nibh quis sem placerat, nec eleifend sem venenatis. Donec blandit ac velit a vulputate. Integer ex mauris, eleifend a velit quis, pharetra dictum risus. Phasellus imperdiet nunc ut metus blandit sagittis. Suspendisse potenti. Nam in ultricies leo. Fusce non euismod risus. Morbi iaculis erat vel massa aliquet, in ultricies lacus condimentum. Nullam placerat quam leo, faucibus interdum tellus aliquet sit amet. Curabitur ut vestibulum mauris. Donec posuere mi at eros egestas tristique. Nullam non mauris a eros finibus aliquam dapibus eu quam. Duis id lacus odio.
Duis sed tellus id felis viverra pulvinar eu bibendum tellus. Suspendisse dignissim in velit ut ornare. Sed tellus turpis, scelerisque vitae mollis vitae, faucibus et elit. Integer luctus nisl lorem, ut ultrices tellus malesuada ac. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia curae; Nam nunc quam, euismod sed vestibulum at, volutpat dictum dolor. In in vulputate odio, ut condimentum eros. Praesent dignissim quam ut ultricies bibendum. Aliquam sem magna, varius id mattis ac, auctor a lacus.
TEXT
)
(define f
(new frame%
[label "a window"]
[width 400]
[height 400]))
(send f show #t)
(define pb (new aligned-pasteboard%))
(define valign
(new vertical-alignment% [parent pb]))
(define canvas
(new editor-canvas%
[parent f]
[editor pb]))
(define tb (new text% [auto-wrap #t]))
(send tb insert lorem 0)
(define w
(new snip-wrapper%
[parent valign]
[snip (new stretchable-editor-snip%
[stretchable-width #f]
[editor tb])]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment