Added new binding ENTRY-COMPLETION-GET-COMPLETION-PREFIX

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index 1d5dc2a46aac3ffd460d36bf86fd991841513c5c..fc9d2ca7bbbe7088586cf2a82b20dfdf98b53be7 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.
 
 ;; 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.86 2007/12/30 18:37:12 espen Exp $
+;; $Id: gtk.lisp,v 1.87 2008/01/02 15:57:57 espen Exp $

 
 
 (in-package "GTK")
 
 
 (in-package "GTK")


@@ -972,6 +972,10 @@ (defbinding entry-completion-set-match-func (completion function) nil
 (defbinding entry-completion-complete () nil
   (completion entry-completion))
 
 (defbinding entry-completion-complete () nil
   (completion entry-completion))
 

+#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0")
+(defbinding entry-completion-get-completion-prefix () string
+  (completion entry-completion))
+

 #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
 (defbinding entry-completion-insert-prefix () nil
   (completion entry-completion))
 #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
 (defbinding entry-completion-insert-prefix () nil
   (completion entry-completion))