@typetorch/framework 0.5.6 → 0.5.7

package/README.md

@@ -185,6 +185,16 @@ return the generation's stop function, which the kernel calls on a swap.
   build picker (Server > Branch) and a Claude prompt. The sidebar, top to bottom: Artifact, Server, Network, Modules,
   Manage, Logs, Dex, Claude. The window can be dragged by its header and resized from its corner (double-tap the
   header to reset).
+- **Command palette (`Ctrl+K`, `Cmd+K` on a Mac, or the search button in the menu header):** opens the dev menu if it
+  is closed and searches every command the dev may run now (fuzzy: `swb` finds *Switch branch*). Up / Down pick,
+  Enter runs, Shift+Enter opens a page in a split, Escape closes; recent commands come first on an empty query. Never
+  fires while typing in chat or a text box. Commands: open any page; split right / down, open the pane in a new window,
+  close it, dock all windows; Reload, Roll back, switch branch, load a build here, join a server on a branch or build
+  (the Branch tab's rules and words, `devtools/build-actions.ts`), New server and Join a listed server (owners); find a
+  player by name, display name or UserId and open them in Manage > Players or their Kick / Ban card (owners); copy the
+  job id, artifact id, commit, branch or place version (the copy popup); "Ask Claude: ..." puts the query in the Claude
+  draft. Anything that swaps what runs on the server takes a second Enter or tap to confirm. The kernel and the server
+  re-check every request. Core: `devtools/commands.ts` (pure, Lune-tested by `scripts/test-commands.luau`).
 - **Server TPS (framework 0.4.2, kernel 0.4.2):** Server > Status has a *TPS* line next to Memory and Lua heap: the
   last minute's average, its slowest second and the physics FPS (`59.9 avg, 52.0 min, physics 60`; the warning colour
   under 50 on average). Older kernels show `needs kernel 0.4.2`. The same numbers ride on fleet heartbeats (the

package/out/devtools/admin-ui.d.ts

@@ -15,6 +15,28 @@ export interface AdminDeps {
         ok: boolean,
         result: unknown
     ];
+    /** The command palette's player lookup (client.ts): who Manage > Players shows next. */
+    playerFocus?: PlayerFocus;
+}
+/** What the command palette asked Manage > Players for: show this player, and open Kick or Ban for them. */
+export interface PlayerFocusRequest {
+    userId: number;
+    action?: "kick" | "ban";
+    at: number;
+}
+/**
+ * The command palette's way into Manage > Players (one per client generation, client.ts): `request` remembers a player
+ * and tells an open Players tab; a tab that mounts later takes it after its first load. The Kick and Ban cards are the
+ * tab's own (reason, duration, armed button); the server re-checks every action.
+ */
+export declare class PlayerFocus {
+    private pending?;
+    private readonly listeners;
+    request(userId: number, action?: "kick" | "ban"): void;
+    /** The waiting request (dropped after FOCUS_WAIT s), taken once. */
+    take(): PlayerFocusRequest | undefined;
+    waiting(): boolean;
+    listen(trove: Trove, listener: () => void): void;
 }
 /** The Manage sub-tabs, keyed like client.ts RENDER ("Tab/Sub"). */
 export declare function adminTabs(deps: AdminDeps): Record<string, (tab: AdminTab) => void>;

package/out/devtools/admin-ui.luau

@@ -115,6 +115,64 @@ local ERRORS = {
 	publish_failed = "Couldn't send",
 	["not a dev"] = "Not a dev",
 }
+--* How long a palette request waits for Manage > Players to load (seconds). 
+local FOCUS_WAIT = 15
+--* What the command palette asked Manage > Players for: show this player, and open Kick or Ban for them. 
+--[[
+	*
+	 * The command palette's way into Manage > Players (one per client generation, client.ts): `request` remembers a player
+	 * and tells an open Players tab; a tab that mounts later takes it after its first load. The Kick and Ban cards are the
+	 * tab's own (reason, duration, armed button); the server re-checks every action.
+	 
+]]
+local PlayerFocus
+do
+	PlayerFocus = setmetatable({}, {
+		__tostring = function()
+			return "PlayerFocus"
+		end,
+	})
+	PlayerFocus.__index = PlayerFocus
+	function PlayerFocus.new(...)
+		local self = setmetatable({}, PlayerFocus)
+		return self:constructor(...) or self
+	end
+	function PlayerFocus:constructor()
+		self.listeners = {}
+	end
+	function PlayerFocus:request(userId, action)
+		self.pending = {
+			userId = userId,
+			action = action,
+			at = os.clock(),
+		}
+		for listener in self.listeners do
+			task.spawn(listener)
+		end
+	end
+	function PlayerFocus:take()
+		local pending = self.pending
+		self.pending = nil
+		return if pending ~= nil and os.clock() - pending.at <= FOCUS_WAIT then pending else nil
+	end
+	function PlayerFocus:waiting()
+		return self.pending ~= nil
+	end
+	function PlayerFocus:listen(trove, listener)
+		local _listeners = self.listeners
+		local _listener = listener
+		_listeners[_listener] = true
+		trove:add(function()
+			local _listeners_1 = self.listeners
+			local _listener_1 = listener
+			-- ▼ Set.delete ▼
+			local _valueExisted = _listeners_1[_listener_1] ~= nil
+			_listeners_1[_listener_1] = nil
+			-- ▲ Set.delete ▲
+			return _valueExisted
+		end)
+	end
+end
 --* The Manage sub-tabs, keyed like client.ts RENDER ("Tab/Sub"). 
 local renderPlayers, renderServers, renderBans
 local function adminTabs(deps)
@@ -140,7 +198,7 @@ local function every(trove, interval, callback)
 		while true do
 			local ok, err = pcall(callback)
 			if not ok then
-				warn("[src/devtools/admin-ui.ts:162]", `[devtools] manage refresh failed: {err}`)
+				warn("[src/devtools/admin-ui.ts:205]", `[devtools] manage refresh failed: {err}`)
 			end
 			task.wait(interval)
 		end
@@ -786,6 +844,7 @@ function renderPlayers(tab, deps)
 	local list = page:group(4)
 	local rows = {}
 	local busy = false
+	local loaded = false
 	local act = function(label, op, userId, doneText)
 		if busy then
 			return nil
@@ -1072,6 +1131,47 @@ function renderPlayers(tab, deps)
 		frame.Parent = list.frame
 		return row
 	end
+	-- The command palette's player lookup: scroll to the player and flash their row, or open Kick / Ban for them.
+	local applyFocus = function()
+		local focus = deps.playerFocus
+		if not focus or not loaded or not focus:waiting() then
+			return nil
+		end
+		local want = focus:take()
+		if not want then
+			return nil
+		end
+		local _userId = want.userId
+		local row = rows[_userId]
+		if not row then
+			setResult("Not in this server", COLORS.warn)
+			return nil
+		end
+		local content = tab.content
+		local top = row.frame.AbsolutePosition.Y - content.AbsolutePosition.Y + content.CanvasPosition.Y
+		content.CanvasPosition = Vector2.new(0, math.max(0, top - 8))
+		row.frame.BackgroundColor3 = COLORS.button
+		bump(row.frame)
+		trove:add(task.delay(1.5, function()
+			if row.frame.Parent then
+				row.frame.BackgroundColor3 = COLORS.row
+			end
+		end))
+		local data = row.data
+		if want.action == "kick" then
+			if data.can.kick then
+				openKick(data)
+			else
+				setResult(`Can't kick {data.displayName}`, COLORS.bad)
+			end
+		elseif want.action == "ban" then
+			if data.can.ban then
+				openBan(data)
+			else
+				setResult(`Can't ban {data.displayName}`, COLORS.bad)
+			end
+		end
+	end
 	local refresh = function()
 		local _binding_1 = deps.call("admin.players")
 		local ok = _binding_1[1]
@@ -1137,6 +1237,12 @@ function renderPlayers(tab, deps)
 			row.frame:Destroy()
 			rows[userId] = nil
 		end
+		loaded = true
+		applyFocus()
+	end
+	local _result = deps.playerFocus
+	if _result ~= nil then
+		_result:listen(trove, applyFocus)
 	end
 	every(trove, PLAYERS_REFRESH, refresh)
 end
@@ -2656,4 +2762,5 @@ end
 return {
 	adminTabs = adminTabs,
 	migrateControl = migrateControl,
+	PlayerFocus = PlayerFocus,
 }

package/out/devtools/build-actions.d.ts

@@ -38,6 +38,20 @@ export declare function buildAction(ctx: PickerContext, entry: {
     channel: string;
 }): BuildAction;
 export declare function buildLabel(action: BuildAction): string;
+/**
+ * The "pin" op's payload for a build the viewer may pin (`buildAction` "pin"): an A/B experiment pin when an owner pins
+ * on an unsigned public server whose kernel has experiments (0.2.3+), else the plain asset id. The Branch tab and the
+ * command palette both send this.
+ */
+export declare function pinPayload(ctx: PickerContext, assetId: number): number | {
+    assetId: number;
+    experiment: true;
+};
+/**
+ * Whether an action swaps what runs on THIS server (every player on it): the owner's switch or load ("here"), the stored
+ * switch and the dev pin. "join" moves only you. The command palette makes all of them two-step.
+ */
+export declare function swapsServer(action: BranchAction | BuildAction): boolean;
 /** Kernels before 0.3.4 on prod servers: in-game loads can't reach them, only `typetorch pin`. */
 export declare function showCliNote(ctx: PickerContext): boolean;
 /** Whether this client's player is an owner (cosmetic: the kernel re-checks). An older kernel's "admin" is a dev. */

package/out/devtools/build-actions.luau

@@ -63,6 +63,29 @@ end
 local function buildLabel(action)
 	return if action == "join" then "Join" else "Load here"
 end
+--[[
+	*
+	 * The "pin" op's payload for a build the viewer may pin (`buildAction` "pin"): an A/B experiment pin when an owner pins
+	 * on an unsigned public server whose kernel has experiments (0.2.3+), else the plain asset id. The Branch tab and the
+	 * command palette both send this.
+	 
+]]
+local function pinPayload(ctx, assetId)
+	local abInPlace = ctx.serverType == "public" and ctx.isOwner and ctx.experiments and not ctx.signedOnly
+	return if abInPlace then {
+		assetId = assetId,
+		experiment = true,
+	} else assetId
+end
+--[[
+	*
+	 * Whether an action swaps what runs on THIS server (every player on it): the owner's switch or load ("here"), the stored
+	 * switch and the dev pin. "join" moves only you. The command palette makes all of them two-step.
+	 
+]]
+local function swapsServer(action)
+	return action == "here" or action == "stored" or action == "pin"
+end
 --* Kernels before 0.3.4 on prod servers: in-game loads can't reach them, only `typetorch pin`. 
 local function showCliNote(ctx)
 	return not ctx.switchKernel and ctx.signedOnly and (ctx.isOwner or ctx.serverType ~= "public")
@@ -255,6 +278,8 @@ return {
 	branchLabel = branchLabel,
 	buildAction = buildAction,
 	buildLabel = buildLabel,
+	pinPayload = pinPayload,
+	swapsServer = swapsServer,
 	showCliNote = showCliNote,
 	viewerIsOwner = viewerIsOwner,
 	switchOffered = switchOffered,

package/out/devtools/claude-ui.d.ts

@@ -45,5 +45,10 @@ type Block = {
 export declare function parseMarkdown(text: string): Block[];
 /** Inline Markdown → RichText: escapes &, < and > first, then `code`, links, **bold** and *italic*. */
 export declare function inline(text: string): string;
+/**
+ * The command palette's "Ask Claude": replaces the draft with `text` (kept in the persist store like typing) and, when
+ * the Claude tab is open, shows it in its message box with the caret at the end. Nothing is sent.
+ */
+export declare function setClaudeDraft(kernel: ClientKernel, text: string): void;
 export declare function renderClaudeChat(tab: ClaudeChatTab, deps: ClaudeChatDeps): void;
 export {};

package/out/devtools/claude-ui.luau

@@ -1065,19 +1065,37 @@ local function readableDetail(text)
 	return if #out > DETAIL_CHARS then `{string.sub(out, 1, DETAIL_CHARS)}\n...` else out
 end
 -- The tab -------------------------------------------------------------------------------------------------------------
-local buildClaudeChat
-local function renderClaudeChat(tab, deps)
-	local _binding = deps
-	local kernel = _binding.kernel
-	local call = _binding.call
-	local trove = tab.trove
-	local state = kernel:persist(PERSIST_KEY, function()
+local function chatState(kernel)
+	return kernel:persist(PERSIST_KEY, function()
 		return {
 			draft = "",
 			attachPath = false,
 			attachErrors = false,
 		}
 	end)
+end
+--* The open Claude tab's message box (one at most: Claude is a single page), for setClaudeDraft. 
+local showDraft
+--[[
+	*
+	 * The command palette's "Ask Claude": replaces the draft with `text` (kept in the persist store like typing) and, when
+	 * the Claude tab is open, shows it in its message box with the caret at the end. Nothing is sent.
+	 
+]]
+local function setClaudeDraft(kernel, text)
+	chatState(kernel).draft = text
+	local _result = showDraft
+	if _result ~= nil then
+		_result(text)
+	end
+end
+local buildClaudeChat
+local function renderClaudeChat(tab, deps)
+	local _binding = deps
+	local kernel = _binding.kernel
+	local call = _binding.call
+	local trove = tab.trove
+	local state = chatState(kernel)
 	-- The chat takes the content's place in the window body (like the explorer).
 	local content = tab.content
 	local host = trove:add(make("Frame", {
@@ -1549,6 +1567,17 @@ function buildClaudeChat(tab, deps, host, state)
 		state.draft = text
 	end)
 	fitBox()
+	local myShowDraft = function(text)
+		box.Text = text
+		box:CaptureFocus()
+		box.CursorPosition = #text + 1
+	end
+	showDraft = myShowDraft
+	trove:add(function()
+		if showDraft == myShowDraft then
+			showDraft = nil
+		end
+	end)
 	-- The actions row draws above the message box (the "+" menu hangs over it).
 	local actions = make("Frame", {
 		BackgroundTransparency = 1,
@@ -4595,5 +4624,6 @@ return {
 	stripEmoji = stripEmoji,
 	parseMarkdown = parseMarkdown,
 	inline = inline,
+	setClaudeDraft = setClaudeDraft,
 	renderClaudeChat = renderClaudeChat,
 }

package/out/devtools/client.luau

@@ -17,6 +17,7 @@ local branchLabel = _build_actions.branchLabel
 local buildAction = _build_actions.buildAction
 local buildLabel = _build_actions.buildLabel
 local buildName = _build_actions.buildName
+local pinPayload = _build_actions.pinPayload
 local requestSwitch = _build_actions.requestSwitch
 local showCliNote = _build_actions.showCliNote
 local switchedText = _build_actions.switchedText
@@ -52,6 +53,12 @@ local renderClaudeChat = TS.import(script, script.Parent, "claude-ui").renderCla
 local _admin_ui = TS.import(script, script.Parent, "admin-ui")
 local adminTabs = _admin_ui.adminTabs
 local migrateControl = _admin_ui.migrateControl
+local PlayerFocus = _admin_ui.PlayerFocus
+local _commands = TS.import(script, script.Parent, "commands")
+local isPaletteHotkey = _commands.isPaletteHotkey
+local sanitizeRecent = _commands.sanitizeRecent
+local createPalette = TS.import(script, script.Parent, "palette").createPalette
+local paletteCommands = TS.import(script, script.Parent, "palette-commands").paletteCommands
 local renderNetworkInspector = TS.import(script, script.Parent, "network-inspector").renderNetworkInspector
 local renderAssetsTab = TS.import(script, script.Parent, "assets-ui").renderAssetsTab
 local renderStateTab = TS.import(script, script.Parent, "state-ui").renderStateTab
@@ -426,7 +433,7 @@ local function every(trove, interval, callback)
 		while true do
 			local ok, err = pcall(callback)
 			if not ok then
-				warn("[src/devtools/client.ts:368]", `[devtools] refresh failed: {err}`)
+				warn("[src/devtools/client.ts:374]", `[devtools] refresh failed: {err}`)
 			end
 			task.wait(interval)
 		end
@@ -2109,7 +2116,6 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 			if showCliNote(ctx) then
 				body:text("Use the CLI: typetorch pin", COLORS.dim)
 			end
-			local abInPlace = ctx.serverType == "public" and isOwner and ctx.experiments and not ctx.signedOnly
 			if ctx.serverType == "public" and isOwner and not ctx.experiments and not ctx.signedOnly and not switchKernel then
 				body:text("A/B needs kernel 0.2.3", COLORS.dim)
 			end
@@ -2240,10 +2246,7 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 								end
 								return nil
 							end
-							act(`Loading {short}`, "pin", if abInPlace then {
-								assetId = entry.assetId,
-								experiment = true,
-							} else entry.assetId)
+							act(`Loading {short}`, "pin", pinPayload(ctx, entry.assetId))
 						end,
 					})
 					expandable(loadRow, entry.assetId)
@@ -2321,6 +2324,8 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 			imageInbox = imageInbox,
 		})
 	end
+	--* The command palette's player lookup into Manage > Players (admin-ui.ts). 
+	local playerFocus = PlayerFocus.new()
 	--* Keys: a tab name, or "Tab/Sub" for tabs with sub-tabs. 
 	local _object_1 = {
 		Artifact = renderArtifact,
@@ -2348,6 +2353,7 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 	for _k, _v in adminTabs({
 		kernel = kernel,
 		call = call,
+		playerFocus = playerFocus,
 	}) do
 		_object_1[_k] = _v
 	end
@@ -2369,6 +2375,8 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 	-- Window ----------------------------------------------------------------------------------------------------------
 	local ui
 	local wm
+	--* The command palette (Ctrl+K, palette.ts), built with the menu. 
+	local palette
 	local isOpen = false
 	local dev = false
 	--* This player is an owner (framework 0.3.2: the Manage group shows only for owners). 
@@ -2522,7 +2530,7 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 			})
 		end)
 		if not ok then
-			warn("[src/devtools/client.ts:1748]", `[devtools] {key} tab failed: {err}`)
+			warn("[src/devtools/client.ts:1758]", `[devtools] {key} tab failed: {err}`)
 			page:text(`This tab failed: {err}`, COLORS.bad)
 		end
 	end
@@ -2577,20 +2585,55 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 		end
 		isOpen = false
 		state.open = false
-		local _result = wm
+		local _result = palette
 		if _result ~= nil then
-			_result.fadeOut()
+			_result.close()
+		end
+		local _result_1 = wm
+		if _result_1 ~= nil then
+			_result_1.fadeOut()
 		end
 		popOut(ui.window, function()
 			if not isOpen then
-				local _result_1 = wm
-				if _result_1 ~= nil then
-					_result_1.unmount()
+				local _result_2 = wm
+				if _result_2 ~= nil then
+					_result_2.unmount()
 				end
 			end
 		end)
 	end
 	local open
+	local openPalette
+	local commands = paletteCommands({
+		kernel = kernel,
+		call = call,
+		wm = function()
+			return wm
+		end,
+		pages = function()
+			return paneHost.picks()
+		end,
+		owner = function()
+			return owner
+		end,
+		playerFocus = playerFocus,
+		swapText = swapText,
+		serverText = serverText,
+		report = function(text, color)
+			local _result = palette
+			if _result ~= nil then
+				_result = _result.report(text, color)
+			end
+			return _result
+		end,
+		refresh = function()
+			local _result = palette
+			if _result ~= nil then
+				_result = _result.refresh()
+			end
+			return _result
+		end,
+	})
 	local build = function()
 		local playerGui = Players.LocalPlayer:WaitForChild("PlayerGui")
 		sweepStaleMenus(playerGui, kernel.generation)
@@ -2656,7 +2699,7 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 		}, header), `{kernel.artifact.id} #{kernel.generation}`, 14, COLORS.dim, Enum.Font.Code)
 		subtitle.TextWrapped = false
 		subtitle.TextTruncate = Enum.TextTruncate.AtEnd
-		subtitle.Size = UDim2.new(1, -170, 1, 0)
+		subtitle.Size = UDim2.new(1, -212, 1, 0)
 		subtitle.Position = UDim2.fromOffset(114, 0)
 		local closeButton = style(make("TextButton", {
 			AutoButtonColor = true,
@@ -2669,6 +2712,40 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 		closeButton.Size = UDim2.fromOffset(34, 34)
 		corner(closeButton, 6)
 		closeButton.Activated:Connect(close)
+		-- The command palette's button (touch has no Ctrl+K): a magnifier drawn from Frames (no glyphs).
+		local searchButton = make("TextButton", {
+			Name = "Search",
+			Text = "",
+			AutoButtonColor = true,
+			BackgroundColor3 = COLORS.button,
+			BorderSizePixel = 0,
+			AnchorPoint = Vector2.new(1, 0.5),
+			Position = UDim2.new(1, -50, 0.5, 0),
+			Size = UDim2.fromOffset(34, 34),
+		}, header)
+		corner(searchButton, 6)
+		local lens = make("Frame", {
+			BackgroundTransparency = 1,
+			Position = UDim2.fromOffset(9, 8),
+			Size = UDim2.fromOffset(12, 12),
+		}, searchButton)
+		corner(lens, 6)
+		make("UIStroke", {
+			Color = COLORS.text,
+			Thickness = 2,
+			ApplyStrokeMode = Enum.ApplyStrokeMode.Border,
+		}, lens)
+		make("Frame", {
+			BackgroundColor3 = COLORS.text,
+			BorderSizePixel = 0,
+			AnchorPoint = Vector2.new(0.5, 0.5),
+			Position = UDim2.fromOffset(23, 23),
+			Size = UDim2.fromOffset(8, 2),
+			Rotation = 45,
+		}, searchButton)
+		searchButton.Activated:Connect(function()
+			return openPalette()
+		end)
 		-- Sidebar (script-free ScrollingFrame): tabs, and for tabs with sub-tabs an indented group of children right
 		-- under them (visible while that tab is selected). Clicking a group header opens its first child.
 		local tabs = scrolling(window, {
@@ -2824,6 +2901,26 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 				return layout
 			end,
 			host = paneHost,
+			covered = function()
+				local _result = palette
+				if _result ~= nil then
+					_result = _result.isOpen()
+				end
+				return _result == true
+			end,
+		})
+		palette = createPalette({
+			gui = gui,
+			trove = trove,
+			registry = commands.registry,
+			context = commands.context,
+			recent = function()
+				return sanitizeRecent(state.recentCommands)
+			end,
+			setRecent = function(list)
+				state.recentCommands = list
+			end,
+			opened = commands.load,
 		})
 		-- Placement: drag by the header, resize by the grip, double-tap the header to reset. Saved across swaps.
 		local viewport = function()
@@ -2998,6 +3095,20 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 			_result.show()
 		end
 	end
+	--* Ctrl+K / Cmd+K and the header's search button: the command palette (opens the menu first). 
+	openPalette = function()
+		if not dev then
+			return nil
+		end
+		open()
+		if not isOpen then
+			return nil
+		end
+		local _result = palette
+		if _result ~= nil then
+			_result.open()
+		end
+	end
 	local setDev = function(value)
 		if value == dev then
 			return nil
@@ -3121,6 +3232,25 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 			open()
 		end
 	end)
+	-- Ctrl+K (Cmd+K on a Mac: Super / Meta). Never while typing in chat or a TextBox (`processed`).
+	trove:connect(UserInputService.InputBegan, function(input, processed)
+		if not dev then
+			return nil
+		end
+		local held = UserInputService:IsKeyDown(Enum.KeyCode.LeftControl) or UserInputService:IsKeyDown(Enum.KeyCode.RightControl) or UserInputService:IsKeyDown(Enum.KeyCode.LeftSuper) or UserInputService:IsKeyDown(Enum.KeyCode.RightSuper) or UserInputService:IsKeyDown(Enum.KeyCode.LeftMeta) or UserInputService:IsKeyDown(Enum.KeyCode.RightMeta)
+		if not isPaletteHotkey(input.KeyCode.Name, held, processed) then
+			return nil
+		end
+		local _result = palette
+		if _result ~= nil then
+			_result = _result.isOpen()
+		end
+		if _result then
+			palette.close()
+		else
+			openPalette()
+		end
+	end)
 	return {
 		started = function()
 			-- Its own thread: off dev rules it waits for the server's answer (op "access").
@@ -3129,7 +3259,7 @@ local function startDevtoolsClient(kernel, dispatcher, trove)
 					return playReloadSound()
 				end)
 				if not ok then
-					warn("[src/devtools/client.ts:2169]", `[devtools] reload sound failed: {err}`)
+					warn("[src/devtools/client.ts:2270]", `[devtools] reload sound failed: {err}`)
 				end
 			end))
 		end,