mainsimple1.hs
来自「HTK系列的」· HS 代码 · 共 21 行
HS
21 行
module Main whereimport HTk import Randommain:: IO ()main = do main <- initHTk [] b <- newButton main [text "Press me!"] pack b [] click <- clicked b spawnEvent (forever (click >>> do nu_label <- mapM randomRIO (replicate 5 ('a','z')) b # text nu_label)) finishHTk
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?