Skip to content
Snippets Groups Projects
Commit 32c174a7 authored by colin's avatar colin
Browse files

clim/pkg.lisp, clim/sysdcl.lisp, misc/go-ol.lisp, misc/go-xm.lisp,

misc/go.lisp, silica/pkg.lisp, silica/sysdcl.lisp,
tk-silica/sysdcl.lisp, xlib/sysdcl.lisp
- REMOVED all these files - they were historic.

clim/accept-values.lisp, clim/db-menu-lisp, clim/default-frame.lisp,
clim/menus.lisp
- changed :parent to :frame-manager in calls to make-application-frame

clim/db-stream.lisp
- make-clim-stream-pane passes the pane-name to the outlining-pane and
scroller-pane. This makes pane specific color resources affect the
scroll bars and border.

clim/frames.lisp
- simplified initialize-instance :after method on
standard-application-frame. Dropped the :parent initarg - all done
with the :frame-manager initarg.
- changed :command-menu panes to use tk menu-bar rather than clim1.1
style panes


clim/output-protocol.lisp
- output-protocol-mixin now inherits foreground, background and
text-style slots from sheet-with-resources-mixin 
- output-protocol-mixin specific accessors on medium-foreground,
medium-background and medium-default-text-style removed.
- output-protcol-mixin specific engraft-medium method removed.

misc/compile-1.lisp
- tidied up compile-it.

silica/db-border.lisp, silica/db-layout.lisp, silica/db-scroll.lisp,
silica/scroll-pane.lisp, silica/gadgets.lisp, tk-silica/xm-gadgets.lisp
- changed all references to foreground-background-and-text-style-mixin
to sheet-with-resources-mixin

silica/gadgets.lisp
- made menu-bar inherit from sheet-with-resources-mixin and removed
its text-style slot

silica/medium.lisp
- removed foreground-background-and-text-style-mixin
- added sheet-with-resources-mixin
- added new gf get-sheet-resources to do resource lookup
- added new note-sheet-grafted :before method on
sheet-with-resources-mixin which does the resource lookup
- added engraft-medium :after method on sheet-with-resources-mixin

silica/sheet.lisp
- replaced note-sheet-grafted :around method hack with :after methods
on (setf port), this ensures the medium is engrafted after the mirror
has been realized.
- ditto for note-sheet-degrafted to degraft the medium

tk/widget.lisp tk/xlib.lisp
- changed resource name and class to be a list of strings rather than
a single string with "."s as separators.

tk-silica/xm-frames.lisp
- removed special handling (hack) of text-style for motif menu-bars.
The general sheet-with-resources-mixin mechanism deals with this now.

tk-silica/xm-gadgets.lisp
- removed hack in find-widget-class-and-initargs-for-sheet for
xm-viewport which named the widget according to the pane name of its
child. This is now handled correctly in make-clim-stream-pane
- made motif-scroller-pane set up the background of it's viewport
correctly. (Makes displays less "flashy")

tk-silica/xt-gadgets.lisp
- changed find-widget-class-and-initargs-for-sheet :around method from
foreground-background-and-text-style-mixin to sheet-with-resources-mixin 
new method simply looks at the slots in the sheet (no database query)

tk-silica/xt-graphics.lisp
- replaced decode-ink + :around method by decode-ink and decode-ink-1
(to handle recursive case and not put multiple entries in hashtable)

tk-silica/xt-silica.lisp
- removed all the engraft-medium :before methods which called
default-from-resources.
- removed default-from-resources
- added get-sheet-resources methods on sheet and pixmap-stream
- added function get-xt-resources

utils/packages.lisp
- removed export of foreground-background-and-text-style-mixin
- exported get-sheet-resources from clim-silica
- exported sheet-with-resources-mixin from clim-silica
parent 6c6cdac7
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment