Add a boundp-function slot, which is required by virtual slot getter.

[clg] / gtk / gtkstyle.lisp

diff --git a/gtk/gtkstyle.lisp b/gtk/gtkstyle.lisp
index aea29d8f449e98bf99837a9156d74455001e0d56..19127d787e58e4f1bf463577ddd6d313805c1799 100644 (file)
--- a/gtk/gtkstyle.lisp
+++ b/gtk/gtkstyle.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtkstyle.lisp,v 1.3 2005-04-23 16:48:52 espen Exp $
+;; $Id: gtkstyle.lisp,v 1.4 2007-01-14 23:19:14 espen Exp $
 
 (in-package "GTK")
 
@@ -229,8 +229,3 @@ (defun style-black-gc (style)
 
 (defun style-white-gc (style)
   (%style-get-gc style :white :normal))
-
-(export 
- '(style-fg style-bg style-light style-dark style-mid style-text style-base 
-   style-text-aa style-fg-gc style-bg-gc style-light-gc style-dark-gc 
-   style-mid-gc style-text-gc style-base-gc style-text-aa-gc))