(in-package :oli)

(sd-defdialog 'highlight_part
  :dialog-title "Highlight part"
  :variables '(
    (activepart :value-type :part :modifies nil :title "Part")
  )
  :ok-action '(progn
    (sd-show-graphical-browser "parcel-gbrowser" )
    (sd-call-cmds (current_part activepart))
    (g-browser::gb-search-active-parcel :part "parcel-gbrowser")))