Don't display model icons in cloud toolbar due to bad vertical alignment

WolframResearch · Dec 14, 2023 · 05d56aa · 05d56aa
1 parent 781db5b
commit 05d56aa
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Source/Chatbook/PreferencesContent.wl b/Source/Chatbook/PreferencesContent.wl
@@ -596,7 +596,9 @@ makeModelNameSelector[
                     ],
                     modelSelectCallback[ Dynamic @ service, Dynamic @ model ]
                 ],
-                Map[ popupValue[ #[ "Name" ], #[ "DisplayName" ], #[ "Icon" ] ] &, models ],
+                Block[ { $noIcons = TrueQ @ $cloudNotebooks },
+                    Map[ popupValue[ #[ "Name" ], #[ "DisplayName" ], #[ "Icon" ] ] &, models ]
+                ],
                 ImageSize -> Automatic
             ]
         ]
@@ -1348,7 +1350,10 @@ popupValue[ value_String, label: Except[ $$unspecified ] ] :=
     value -> label;
 
 popupValue[ value_String, label: Except[ $$unspecified ], icon: Except[ $$unspecified ] ] :=
-    value -> Row[ { resizeMenuIcon @ inlineTemplateBoxes @ icon, label }, Spacer[ 1 ] ];
+    If[ TrueQ @ $noIcons,
+        value -> label,
+        value -> Row[ { resizeMenuIcon @ inlineTemplateBoxes @ icon, label }, Spacer[ 1 ] ]
+    ];
 
 popupValue // endDefinition;