* Menu
page 0 - << : 0 : >>
* 2008-04-13 :
- http://d.hatena.ne.jp/rairairou/20080410/1207837409
- ステータスバーを消せないっていうのは、亀井さんの発言で確かです。ステータスバーはエコー領域として必要ですし。
- タイトルバーを消せないっていうのは、どこの誤情報なんだろ? タイトルバーは普通に消せます。
;;; 消す
(progn
(winapi:SetWindowLong (get-window-handle)
winapi:GWL_STYLE
(logand (winapi:GetWindowLong (get-window-handle) winapi:GWL_STYLE)
(lognot (logior winapi:WS_CAPTION winapi:WS_SYSMENU))))
(winapi:SetWindowPos (get-window-handle) 0 0 0 0 0 (logior winapi:SWP_NOZORDER winapi:SWP_NOSIZE winapi:SWP_NOMOVE winapi:SWP_FRAMECHANGED)))
;;; 戻す
(progn
(winapi:SetWindowLong (get-window-handle)
winapi:GWL_STYLE
(logior (winapi:GetWindowLong (get-window-handle) winapi:GWL_STYLE) winapi:WS_CAPTION winapi:WS_SYSMENU))
(winapi:SetWindowPos (get-window-handle) 0 0 0 0 0 (logior winapi:SWP_NOZORDER winapi:SWP_NOSIZE winapi:SWP_NOMOVE winapi:SWP_FRAMECHANGED)))
;;; ちなみにステータスバーを消そうとする
(winapi:ShowWindow (winapi:FindWindowEx (get-window-handle) 0 (si:make-string-chunk "msctls_statusbar32") 0) winapi:SW_HIDE)
- xyzzy でできるできないの判断をするには、lispの知識とWindowsのAPIの知識とxyzzyの実装の知識が必要で、オレでも安易に結論を出せないです。
- できないって結論を出す前に質問として流すようにしてくれないかなぁ。
- ついでに改ページの話
- http://d.hatena.ne.jp/himadatanode/20080411/p5
xyzzyだと^\fなんて入ってなくてそのまま^Lが入っているような気がするんだけど$XYZZY/lisp/page.l を読んでいて、なぜ以下の部分(18行目)に気付かなかったのか不思議。xyzzy のリファレンスを参照していなさそうなのも不思議。
(or (boundp 'page-delimiter)
(setq page-delimiter "^\f"))
* Scrapbook : Crossing borders: The beauty of Lisp
* editorパッケージのbuiltin関数
以下で調べて652個
(let ((count 0))
(do-symbols (sym (find-package "editor") (format t "~%count: ~d~%" count))
(when (and (not (find-symbol (symbol-name sym) "lisp"))
(fboundp sym)
(si:*builtin-function-p (symbol-function sym)))
(format t "~a~%" sym)
(incf count))))
(ReadMore...)page 0 - << : 0 : >>
Source of Nothingness
NANRI
NANRI