Изменить шрифт комбинированного списка в пакете R tcltk

Question

Я пытаюсь изменить шрифт фиксированной ширины для каждого элемента в ttkcombobox. Я попытался использовать аргумент "font =", но это только меняет шрифт, показанный в выпадающем списке, когда элемент выбран, а не шрифт каждого из элементов в раскрывающемся списке. Есть ли способ изменить шрифт элементов списка?

library(tcltk)

tt <- tktoplevel()
tktitle(tt) <- "Select..."

vals = c("abc  123", "defg 4567", "h    8910")

fontFixedWidth <- tkfont.create(family = "Courier New", size = 10)

tkgrid(tklabel(tt,text="Default Font" ), padx=4, pady=5, row=0)

tkgrid(tklabel(tt,text="Fixed Width Font", font = fontFixedWidth ), padx=4, pady=5, row=2)

comboBox2 <- ttkcombobox(tt, values= vals, state="readonly", height = 40, width = 60)
tkgrid(comboBox2,  padx=25, pady=5, row=4 )

comboBox4 <- ttkcombobox(tt, font = fontFixedWidth, values= vals, state="readonly", height = 40, width = 60)
tkgrid(comboBox4,  padx=25, pady=5, row=6 )