Model submenu generates internal failure if the chosen service does not specify a model list

[rhennigan]

The submenu will be displayed as an unevaluated symbol and an error will print to the messages menu:

Debug Data

Property	Value
Name	"Wolfram/Chatbook"
Version	"1.4.1"
ReleaseID	"$RELEASE_ID$"
EvaluationEnvironment	"Session"
FrontEndVersion	"Desktop: 14.0 for Microsoft Windows (64-bit) (December 12, 2023)"
KernelVersion	"14.0.0 for Microsoft Windows (64-bit) (December 13, 2023)"
SystemID	"Windows-x86-64"
Notebooks	True
DynamicEvaluation	True
SynchronousEvaluation	True
TaskEvaluation	False

Settings

Property	Value
StyleSheetVersion	"1.4.1.3913792210"

Stack Data

AttachSubmenu
throwFailure
trimURL

Failure Data

<|
  "Evaluation" :> Wolfram`Chatbook`UI`Private`makeServiceModelMenu[Dynamic[Wolfram`Chatbook`UI`Private`display$829021], CellObject["4af8c3d1-683b-d64a-8d79-9d0632977ad8", "1c864b78-9010-f743-b794-b5987b65d01d"], CellObject["e7b7ec71-9749-9649-996f-4eeda5362d49", "fe479e9d-258e-c644-bc23-56ac3c58db75"], <|"Service" -> "OpenAI", "Name" -> "gpt-4-vision-preview"|>, "HuggingFace", Missing["NoModelList"]]
  "Arguments" -> {}
  "Stack" :> Wolfram`Chatbook`Common`Private`$stack$829022
|>