BROWSER-PANE question

Hi everybody,

The code below works fine for me (LWW 6.1.1 on Win7) - if you change
the selection in the option pane, a different website is shown.
However, if you uncomment the three additional lines, the browser
doesn't do anything anymore.  Is that expected behavior?

Thanks,
Edi.



(capi:define-interface foo-interface ()
  ()
  (:panes
   (the-pane
    capi:browser-pane
    :url (capi:choice-selected-item the-list)
    :before-navigate-callback (lambda (pane url &key &allow-other-keys)
                                (declare (ignore pane url))
                                t)
    :visible-min-width 600
    :visible-min-height 400)
   (the-list
    capi:option-pane
    :items '("http://lispworks.com/" "http://alu.org/")
    :interaction :single-selection
    :callback-type :item
    :selection-callback (lambda (item)
                          ;; (capi:browser-pane-navigate the-pane
"http://weitz.de/")
                          ;; (capi:browser-pane-stop the-pane)
                          ;; (sleep .2)
                          (capi:browser-pane-navigate the-pane item))))
  (:layouts
   (main-layout
    capi:column-layout
    '(the-list the-pane))))

(defun test ()
  (capi:display (make-instance 'foo-interface)))

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: BROWSER-PANE question

2014-02-26 8:35 GMT+00:00 Edi Weitz:
> The code below works fine for me (LWW 6.1.1 on Win7) - if you change
> the selection in the option pane, a different website is shown.
> However, if you uncomment the three additional lines, the browser
> doesn't do anything anymore.  Is that expected behavior?

It seems threre is a related (and corrected?) problem:

http://article.gmane.org/gmane.lisp.lispworks.general/12434

Best regards,

Paulo Madeira

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: BROWSER-PANE question

Sorry, this is not related to the problem you mentioned.  The
before-navigate-callback is irrelevant and I should have deleted it
before I sent the example code.

On Wed, Feb 26, 2014 at 5:21 PM, Paulo Madeira <acelent@gmail.com> wrote:
>
> 2014-02-26 8:35 GMT+00:00 Edi Weitz:
>> The code below works fine for me (LWW 6.1.1 on Win7) - if you change
>> the selection in the option pane, a different website is shown.
>> However, if you uncomment the three additional lines, the browser
>> doesn't do anything anymore.  Is that expected behavior?
>
> It seems threre is a related (and corrected?) problem:
>
> http://article.gmane.org/gmane.lisp.lispworks.general/12434
>
> Best regards,
>
> Paulo Madeira
>
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html
>

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: BROWSER-PANE question

2014-02-26 18:29 GMT+00:00 Edi Weitz:
> Sorry, this is not related to the problem you mentioned.  The
> before-navigate-callback is irrelevant and I should have deleted it
> before I sent the example code.

Well, at least the following hack seems to make it through:

;; Hack before capi:browser-pane-navigate
(setf (capi::internet-explorer-pane-inside-navigate-p
       (capi-internals::pane-implementation the-pane))
      nil)

Best regards,

Paulo Madeira

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html

Re: BROWSER-PANE question

That did the trick.  Thanks again!

On Wed, Feb 26, 2014 at 8:05 PM, Paulo Madeira <acelent@gmail.com> wrote:
>
> 2014-02-26 18:29 GMT+00:00 Edi Weitz:
>> Sorry, this is not related to the problem you mentioned.  The
>> before-navigate-callback is irrelevant and I should have deleted it
>> before I sent the example code.
>
> Well, at least the following hack seems to make it through:
>
> ;; Hack before capi:browser-pane-navigate
> (setf (capi::internet-explorer-pane-inside-navigate-p
>        (capi-internals::pane-implementation the-pane))
>       nil)
>
> Best regards,
>
> Paulo Madeira
>
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html
>

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html