What's the correct way to handle the -command? It references $name which later (when activated) is no longer a valid variable

proc create_type_combo {name current} {
	ttk::menubutton $name -width 15
	
	set tm [menu $name.menu]
	$tm add command -label "All"        -command { $name configure -text "All" }
	$tm add command -label "Procedure"  -command { $name configure -text "Procedure" }
	$tm add command -label "JCode"      -command { $name configure -text "JCode" }
	$tm add command -label "Formulary"  -command { $name configure -text "Formulary" }
	
	$name configure -menu $tm
}