blob: 29d7a3e2934db59d13b5a94f9c9be0329e289462 (
plain)
1
2
3
4
5
6
7
8
9
|
#> txt text
#. -bg lightgreen -foreground brown -font .(helvetica 12 bold.) -width 40 -height 16
#. @bang pd .| _cb [string map .(" " ".`.` ".) [.- get "0.0" end]] .`.:
#. @float pd .| _cb [string map .(" " ".`.` ".) [.- get .#1.0 .#1.end]] .`.:
#. @insert .- insert .#2 .#1
#. @replace .- delete "0.0" end .: .- insert "0.0" .#1
#. @store set .#1 [.- get 0.0 end]
#. @restore insert 0.0 .#1
|
