[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problem in running express-windows !!
- To: express-windows@atc
- Subject: Problem in running express-windows !!
- From: Ashok Kumar Kamshatti <ashok@wiliki.eng.hawaii.edu>
- Date: Fri, 25 May 90 17:43 PDT
- Cc: express-windows-request@atc
Question 1:
-----------
Still having problems in making the window. Here is the dribble output file.
dribbling to file "/usr1/users/ashok/ew.fail"
LISP-IMPLEMENTATION-TYPE: Allegro CL
LISP-IMPLEMENTATION-VERSION: 3.1.4 [Sun3] (12/1/89)
MACHINE-TYPE: Sun3
MACHINE-VERSION:
SOFTWARE-TYPE: SunOS
SOFTWARE-VERSION:
SHORT-SITE-NAME: surya
*features*: (:BIG-ENDIAN :GSGC :M68881 :M68020 :ALLEGRO-V3.1 :FRANZ-INC :EXCL :ALLEGRO :COMMON-LISP :CONFORMING-IEEE :IEEE :FLAVORS :SUN :M68K :SUN3 :UNIX :MULTIPROCESSING :XLIB :GC-CURSOR :CW-X)
*modules*: ("XVARS" "XCW" "CLX" "CLXEXCLDEP" "ADVISE" "TRACE" "MDPROC" "PROCESS" "FOREIGN" "FOREIGN-FUNCTIONS" "SA68881")
PATCH::*XCW-PATCHES*:
(16 . "scrolling set clipping region correctly")
(15 . "programmatic iconization with old wm's")
(14 . "stop-default-handler race condition")
(13 . "install font error on bad server name")
(12 . "restart icons and textures")
(11 . "get-box-region allows full size")
(10 . "documentation-print in menus can pop-up *p-w*")
(9 . "rubout-handler ok when stream closed")
(8 . "default deselect method")
(7 . "sequential restores ok")
(6 . "menus handle exposure events")
(5 . "scrollbar popup and border sanity")
(4 . "wm-shrink-method")
(3 . "clip lines correctly")
(2 . "make k-c-w finish correctly")
(1 . "window creation stacking order")
trace: $Header: trace.cl,v 1.35 89/07/22 18:56:24 layer Rel $
mdproc: $Header: mdproc.cl,v 1.20 89/07/22 18:56:29 layer Rel $
process: $Header: process.cl,v 1.44 89/08/17 18:45:20 layer Rel $
foreign: $Header: foreign.cl,v 1.49 89/08/28 14:45:00 layer Rel $
NIL
<cl> (use-package :cw)
T
<cl> (initialize-common-windows :gc-cursor 't)
; Fast loading /usr/local/lib/cl/code/sigio.fasl.
; Fast loading /usr/local/lib/cl/code/cstructs.fasl.
T
<cl> (load "/users/ew/clos/pcl.fasl")
; Fast loading /users/ew/clos/pcl.fasl.
T
<cl> (load "/usr/local/lib/cl/code/clx.fasl")
; Fast loading /usr/local/lib/cl/code/clx.fasl.
; Fast loading /usr/local/lib/cl/code/defsys.fasl.
; Foreign loading /users/ew/clx/socket.o.
; Foreign loading /users/ew/clx/excldep.o.
Warning: No address found for foreign function C-READ-BYTES-INTERRUPTIBLE
T
<cl> (load "/users/ew/load-ew.lisp")
; Loading /users/ew/load-ew.lisp.
Load CLX?
Type "y" for yes or "n" for no.
Load CLX?n
Compile CLX?n
Load CLOS?n
Compile CLOS?n
; Loading /users/ew/code/system.lisp.
; Loading /users/ew/code/symbols.lisp.
Load Express Windows?n
Compile Express Windows?y
; Loading /users/ew/code/defsystem.lisp.
; Fast loading /users/ew/code/clx-hacks.fasl.
; Fast loading /users/ew/code/meter.fasl.
; Fast loading /users/ew/code/cl-clos-macros.fasl.
; Fast loading /users/ew/code/fixnum-macros.fasl.
; Fast loading /users/ew/code/x-macros-interface.fasl.
; Fast loading /users/ew/code/fonts.fasl.
; Fast loading /users/ew/code/macros.fasl.
; Fast loading /users/ew/code/x-interface.fasl.
; Fast loading /users/ew/code/read-internal.fasl.
; Fast loading /users/ew/code/quad-trees.fasl.
; Fast loading /users/ew/code/base-presentations.fasl.
; Fast loading /users/ew/code/type.fasl.
; Fast loading /users/ew/code/scrolling.fasl.
; Fast loading /users/ew/code/graphic-primitives.fasl.
; Fast loading /users/ew/code/io-functions.fasl.
; Fast loading /users/ew/code/command-processor.fasl.
; Fast loading /users/ew/code/misc.fasl.
; Fast loading /users/ew/code/memo.fasl.
; Fast loading /users/ew/code/table.fasl.
; Fast loading /users/ew/code/query.fasl.
; Fast loading /users/ew/code/completion.fasl.
; Fast loading /users/ew/code/frames.fasl.
; Fast loading /users/ew/code/input-editor.fasl.
; Fast loading /users/ew/code/proprietary-presentation-types.fasl.
; Fast loading /users/ew/code/presentation-types.fasl.
; Fast loading /users/ew/code/lisp-window.fasl.
; Fast loading /users/ew/code/demos.fasl.
; Fast loading /users/ew/code/sym-comp.fasl.
; Fast loading /users/ew/code/time.fasl.
; Fast loading /users/ew/code/lisp-machine-lisp-compatible.fasl.
; Fast loading /users/ew/code/file-manager.fasl.
; Fast loading /users/ew/code/menu-definer.fasl.
; Fast loading /users/ew/code/processes.fasl.
T
<cl> (in-package 'simulator :use 'lisp)
#<The SIMULATOR package, 0 internal, 0 external>
<cl> (import '(pcl:make-instance)
'simulator)
T
<cl>
<cl> (import '(ew::formatting-table
ew::formatting-row ew::formatting-cell
ew:define-presentation-to-command-translator
ew:accept ew:present ew:boolean
ew:define-presentation-type
ew:define-presentation-translator
ew:self
ew:send
)
'simulator)
T
<cl> (in-package 'ew)
#<The EXPRESS-WINDOWS package, 2736 internal, 429 external>
<cl> (find-all-symbols "MAKE-WINDOW")
(XLIB::MAKE-WINDOW MAKE-WINDOW)
<cl> (tpl:alias ("fas" :string) (sym-name)
(let ((finds (find-all-symbols (string-upcase sym-name))))
(format t "~s~%" finds)
;; and return value, so accessible by * at top-level.
finds
))
<cl> :fas make-window
(XLIB::MAKE-WINDOW MAKE-WINDOW)
<cl> :fas *root-window*
(*ROOT-WINDOW* COMMON-WINDOWS:*ROOT-WINDOW*)
<cl> :fas initialize-window-system
(INITIALIZE-WINDOW-SYSTEM)
<cl> (setq *My-Window*
(make-window 'WINDOW
:BORDERS 1
:LEFT 250
:TOP 250
:HEIGHT 250
:WIDTH 250 ))
Error: Attempt to take the value of the unbound symbol *ROOT-WINDOW*
[1] <cl> (defvar *my-window* nil)
*MY-WINDOW*
[1] <cl> (defvar *root-window* nil)
*ROOT-WINDOW*
[1] <cl> (setq *My-Window*
(make-window 'WINDOW
:BORDERS 1
:LEFT 250
:TOP 250
:HEIGHT 250
:WIDTH 250 ))
Error: No matching method for the generic-function #<Function WINDOW-LEFT @ #x689dd9>,
when called with arguments (NIL).
[2] <cl> :fas window-left
(WINDOW-LEFT)
[2] <cl> (dribble)
QUESTION 2 ::
------------
Is it possible to make a dumplisp file after loading the files of
express-windows ? If so, could you tell me how ?
It was getting stuck when I tried dumping into a file.
The steps I followed after starting the LISP were,
1. (use-package :cw)
2. (initialize-common-windows :gc-cursor 't)
3. (load "pcl.fasl")
4. (load "clx.fasl")
5. (load "load-ew.lisp")
6. (require :xcw)
7. (excl:dumplisp :name "ewcl" :checkpoint t :read-init-file t)
Thanx for the Help.
Ashok Kumar Kamshatti
2540 Dole street, #493
University of Hawaii at Manoa, EE Dept
Honolulu, HI 96822
(808) 948-7249
Email :: ashok@wiliki.eng.hawaii.edu