Posted to tcl by mjanssen at Sun Nov 06 20:59:31 GMT 2016view raw

  1. % set template {.${id}_button_common_*.( $page match *Controls ) > {
  2. "width" : 300
  3. "height" : 150
  4. "x" : 10
  5. "y" : 30
  6. }}
  7.  
  8. % set id 12 ; set page index ; subst $template
  9. .12_button_common_*.( index match *Controls ) > {
  10. "width" : 300
  11. "height" : 150
  12. "x" : 10
  13. "y" : 30
  14. }