Updated script to match images:

image create photo .imgobj -file
ttk::button .b1 -image .imgobj  -style "Toolbutton"
ttk::button .b2 -text "Hello" -style "Toolbutton"
ttk::button .b4 -image .imgobj -text " Cancel " -compound "top" -style "Toolbutton"
grid .b1 -row 0 -column 0
grid .b2 -row 0 -column 1
grid .b4 -row 0 -column 3