[wadalabfont-kit] / lisp / tools / slider.l |
version 1.1.1.1, Thu Dec 28 08:54:20 2000 UTC | version 1.2, Fri Jun 20 11:40:23 2003 UTC | ||
---|---|---|---|
|
|
||
(comment defun slider-win-test () | (comment defun slider-win-test () | ||
(setq %end% nil) | (setq %end% nil) | ||
(setup-display) | (setup-display) | ||
(initialize-skelton-edit-sub) | (initialize-skeleton-edit-sub) | ||
(setq main-win (create-win root 0 0 400 400 black white kanji-font)) | (setq main-win (create-win root 0 0 400 400 black white kanji-font)) | ||
(setf (wm-name main-win) "slider test") | (setf (wm-name main-win) "slider test") | ||
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |