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

[clg] / gtk / gtk.lisp

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index aec7be5559f04494cfb3bdaa575a62125c173599..cfda67fffc5960a2f410a8b7f9ff2bbb06d01b15 100644 (file)
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.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: gtk.lisp,v 1.96 2008-11-04 20:18:08 espen Exp $
+;; $Id: gtk.lisp,v 1.98 2008-11-25 22:11:08 espen Exp $
 
 
 (in-package "GTK")
@@ -788,7 +788,7 @@ (defbinding combo-box-prepend-text () nil
   (text string))
 
 #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
-(defbinding combo-box-get-active-text () string
+(defbinding combo-box-get-active-text () (or null string)
   (combo-box combo-box))
 
 (defbinding combo-box-popup () nil