examples/menubar/demo.tcl

195 		grid ${nb} -sticky news
196 		grid ${tout} -sticky news
267 			# 'macros' commands and 'macro' command group
482 	variable next 0
495 			set errno [${mbar} group.add macro MARK {Mout "MARK"} Cntl+0 Control-Key-0]
499  				${mbar} group.configure macro MARK \
505 			set errno [${mbar} group.delete macro MARK]
511 			set errno [${mbar} group.move up macro MARK]
517 			set errno [${mbar} group.move down macro MARK]
525 		variable next
526 		if { ${next} == 9 } { return }
527 		incr next
529 		set errno [${mbar} group.add macro Item${next} "Mout item${next}" Cntl+${next} Control-Key-${next}]
533 			${gui} pout "warning: Item${next} already exists"
538 		variable next
540 		set item "Item${next}"
541 		${mbar} group.delete macro ${item}
542 		if { ${next} > 0 } {
543 			incr next -1
550 		puts [${mbar} group.entries macro]
554 		variable next
558 		set stream [${mbar} group.serialize macro]
559 		set stream_next ${next}
565 		variable next
568 		set next ${stream_next}
570 		${mbar} group.deserialize macro ${stream}