Posted to tcl by Stu at Mon Sep 07 08:47:59 GMT 2020view raw

  1. This Guhb code:
  2.  
  3. f
  4. p
  5. @f0 a
  6. @p0 b
  7. >a
  8. f
  9. >b
  10. f
  11.  
  12.  
  13. Generates this Tcl code:
  14.  
  15. grid [frame .f0] -row 0 -column 0
  16. grid [panedwindow .p0] -row 1 -column 0
  17.  
  18. grid [frame .f0.f1] -row 0 -column 0
  19.  
  20. .p0 add [frame .p0.f2]
  21.