Changed to use of settable FOREIGN-LOCATION

[clg] / gtk / gtk.lisp

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index dd3606e49737f6ab363612fb5829f4ef17dec035..a4df25fc3b9bccb1c853c51f8fe09e528cfdf71b 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.50 2006/02/08 15:22:33 espen Exp $
+;; $Id: gtk.lisp,v 1.51 2006/02/08 22:21:07 espen Exp $
 
 
 (in-package "GTK")
@@ -1096,7 +1096,7 @@ (defmethod initialize-instance ((dialog message-dialog)
                                flags text #+gtk 2.6 secondary-text 
                                transient-parent)
   (setf 
-   (slot-value dialog 'location)
+   (foreign-location dialog)
    (%message-dialog-new transient-parent flags message-type buttons))
   (when text
     (message-dialog-set-markup dialog text))