feat(UI): 为多个程序添加统一风格的标题栏

为帮助系统、设置管理、清除屏幕、线程管理、Lua交互环境、红石控制、Shell别名管理器、文件列表工具、已连接外设和Shell命令行等程序添加了统一风格的标题栏。标题栏使用白色文字和青色背景，并在显示后恢复原有颜色设置，同时保持界面整洁。

data/computercraft/lua/rom/programs/alias.lua

@@ -1,9 +1,26 @@
 -- alias
 
-local args = {...}
-
-local shell = require("shell")
+-- 程序顶部名称栏
+local term = require("term")
 local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== Shell 别名管理器 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
+local args = {...}
+local shell = require("shell")
 local textutils = require("textutils")
 
 if #args == 0 then

data/computercraft/lua/rom/programs/clear.lua

@@ -1 +1,24 @@
-require("term").at(1,1).clear()
+-- 程序顶部名称栏
+local term = require("term")
+local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 清除屏幕 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+
+-- 清除剩余屏幕区域
+for y=2, term.getSize() do
+  term.at(1, y).clearLine()
+end
+
+term.at(1, 2)

data/computercraft/lua/rom/programs/help.lua

@@ -1,5 +1,24 @@
 -- help
 
+-- 程序顶部名称栏
+local term = require("term")
+local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 帮助系统 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
 local help = require("help")
 local textutils = require("textutils")
 

data/computercraft/lua/rom/programs/list.lua

@@ -1,10 +1,27 @@
 -- list
 
-local args = {...}
+-- 程序顶部名称栏
+local term = require("term")
+local colors = require("colors")
 
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 文件列表工具 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
+local args = {...}
 local fs = require("fs")
 local shell = require("shell")
-local colors = require("colors")
 local settings = require("settings")
 local textutils = require("textutils")
 

data/computercraft/lua/rom/programs/lua.lua

@@ -1,8 +1,25 @@
 -- lua REPL
 
+-- 程序顶部名称栏
 local term = require("term")
-local copy = require("rc.copy").copy
 local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== Lua 交互环境 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
+local copy = require("rc.copy").copy
 local pretty = require("cc.pretty")
 local textutils = require("textutils")
 

data/computercraft/lua/rom/programs/peripherals.lua

@@ -1,9 +1,26 @@
+-- 程序顶部名称栏
 local term = require("term")
 local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 已连接外设 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
 local peripheral = require("peripheral")
 
 term.setTextColor(colors.yellow)
-print("attached peripherals")
+print("已连接的外设")
 term.setTextColor(colors.white)
 local names = peripheral.getNames()
 

data/computercraft/lua/rom/programs/redstone.lua

@@ -1,6 +1,24 @@
+-- 程序顶部名称栏
+local term = require("term")
+local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 红石控制 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
 local rc = require("rc")
 local rs = require("redstone")
-local colors = require("colors")
 local textutils = require("textutils")
 
 local args = {...}

data/computercraft/lua/rom/programs/set.lua

@@ -1,6 +1,24 @@
 -- 'set' program
 
+-- 程序顶部名称栏
+local term = require("term")
 local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 设置管理 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
 local settings = require("settings")
 local textutils = require("textutils")
 

data/computercraft/lua/rom/programs/shell.lua

@@ -1,10 +1,27 @@
 -- rc.shell
 
+-- 程序顶部名称栏
+local term = require("term")
+local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== Shell 命令行 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
 local rc = require("rc")
 local fs = require("fs")
-local term = require("term")
 local shell = require("shell")
-local colors = require("colors")
 local thread = require("rc.thread")
 local textutils = require("textutils")
 

data/computercraft/lua/rom/programs/threads.lua

@@ -1,6 +1,24 @@
 -- threads
 
+-- 程序顶部名称栏
+local term = require("term")
 local colors = require("colors")
+
+-- 保存当前颜色设置
+local old_fg = term.getTextColor()
+local old_bg = term.getBackgroundColor()
+
+-- 设置名称栏颜色并显示
+term.setTextColor(colors.white)
+term.setBackgroundColor(colors.cyan)
+term.at(1, 1).clearLine()
+term.at(1, 1).write("=== 线程管理 ===")
+
+-- 恢复颜色设置
+term.setTextColor(old_fg)
+term.setBackgroundColor(old_bg)
+term.at(1, 2)
+
 local thread = require("rc.thread")
 local strings = require("cc.strings")
 local textutils = require("textutils")