summaryrefslogtreecommitdiffstats
path: root/khtml/ecma/kjs_window.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'khtml/ecma/kjs_window.cpp')
-rw-r--r--khtml/ecma/kjs_window.cpp2935
1 files changed, 0 insertions, 2935 deletions
diff --git a/khtml/ecma/kjs_window.cpp b/khtml/ecma/kjs_window.cpp
deleted file mode 100644
index e557497e0..000000000
--- a/khtml/ecma/kjs_window.cpp
+++ /dev/null
@@ -1,2935 +0,0 @@
-// -*- c-basic-offset: 2 -*-
-/*
- * This file is part of the KDE libraries
- * Copyright (C) 2000-2003 Harri Porten (porten@kde.org)
- * Copyright (C) 2001-2003 David Faure (faure@kde.org)
- * Copyright (C) 2003 Apple Computer, Inc.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- */
-#include "config.h"
-
-#include "khtmlview.h"
-#include "khtml_part.h"
-#include "khtmlpart_p.h"
-#include "khtml_settings.h"
-#include "xml/dom2_eventsimpl.h"
-#include "xml/dom_docimpl.h"
-#include "misc/htmltags.h"
-#include "html/html_documentimpl.h"
-#include "rendering/render_frames.h"
-
-#include <tqstylesheet.h>
-#include <tqtimer.h>
-#include <tqpaintdevicemetrics.h>
-#include <tqapplication.h>
-#include <kdebug.h>
-#include <kmessagebox.h>
-#include <kinputdialog.h>
-#include <klocale.h>
-#include <kmdcodec.h>
-#include <kparts/browserinterface.h>
-#include <twin.h>
-
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
-#include <twinmodule.h> // schroder
-#endif
-
-#ifndef KONQ_EMBEDDED
-#include <kbookmarkmanager.h>
-#endif
-#include <kglobalsettings.h>
-#include <assert.h>
-#include <tqstyle.h>
-#include <tqobjectlist.h>
-#include <kstringhandler.h>
-
-#include "kjs_proxy.h"
-#include "kjs_window.h"
-#include "kjs_navigator.h"
-#include "kjs_mozilla.h"
-#include "kjs_html.h"
-#include "kjs_range.h"
-#include "kjs_traversal.h"
-#include "kjs_css.h"
-#include "kjs_events.h"
-#include "kjs_views.h"
-#include "xmlhttprequest.h"
-#include "xmlserializer.h"
-#include "domparser.h"
-
-using namespace KJS;
-
-namespace KJS {
-
- class History : public ObjectImp {
- friend class HistoryFunc;
- public:
- History(ExecState *exec, KHTMLPart *p)
- : ObjectImp(exec->interpreter()->builtinObjectPrototype()), part(p) { }
- virtual Value get(ExecState *exec, const Identifier &propertyName) const;
- Value getValueProperty(ExecState *exec, int token) const;
- virtual const ClassInfo* classInfo() const { return &info; }
- static const ClassInfo info;
- enum { Back, Forward, Go, Length };
- private:
- TQGuardedPtr<KHTMLPart> part;
- };
-
- class External : public ObjectImp {
- friend class ExternalFunc;
- public:
- External(ExecState *exec, KHTMLPart *p)
- : ObjectImp(exec->interpreter()->builtinObjectPrototype()), part(p) { }
- virtual Value get(ExecState *exec, const Identifier &propertyName) const;
- virtual const ClassInfo* classInfo() const { return &info; }
- static const ClassInfo info;
- enum { AddFavorite };
- private:
- TQGuardedPtr<KHTMLPart> part;
- };
-
- class FrameArray : public ObjectImp {
- public:
- FrameArray(ExecState *exec, KHTMLPart *p)
- : ObjectImp(exec->interpreter()->builtinObjectPrototype()), part(p) { }
- virtual Value get(ExecState *exec, const Identifier &propertyName) const;
- virtual Value call(ExecState *exec, Object &thisObj, const List &args);
- virtual bool implementsCall() const { return true; }
- private:
- TQGuardedPtr<KHTMLPart> part;
- };
-
-#ifdef Q_WS_QWS
- class KonquerorFunc : public DOMFunction {
- public:
- KonquerorFunc(ExecState *exec, const Konqueror* k, const char* name)
- : DOMFunction(exec), konqueror(k), m_name(name) { }
- virtual Value tryCall(ExecState *exec, Object &thisObj, const List &args);
-
- private:
- const Konqueror* konqueror;
- TQCString m_name;
- };
-#endif
-} // namespace KJS
-
-#include "kjs_window.lut.h"
-#include "rendering/render_replaced.h"
-
-////////////////////// Screen Object ////////////////////////
-namespace KJS {
-// table for screen object
-/*
-@begin ScreenTable 7
- height Screen::Height DontEnum|ReadOnly
- width Screen::Width DontEnum|ReadOnly
- colorDepth Screen::ColorDepth DontEnum|ReadOnly
- pixelDepth Screen::PixelDepth DontEnum|ReadOnly
- availLeft Screen::AvailLeft DontEnum|ReadOnly
- availTop Screen::AvailTop DontEnum|ReadOnly
- availHeight Screen::AvailHeight DontEnum|ReadOnly
- availWidth Screen::AvailWidth DontEnum|ReadOnly
-@end
-*/
-
-const ClassInfo Screen::info = { "Screen", 0, &ScreenTable, 0 };
-
-// We set the object prototype so that toString is implemented
-Screen::Screen(ExecState *exec)
- : ObjectImp(exec->interpreter()->builtinObjectPrototype()) {}
-
-Value Screen::get(ExecState *exec, const Identifier &p) const
-{
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Screen::get " << p.qstring() << endl;
-#endif
- return lookupGetValue<Screen,ObjectImp>(exec,p,&ScreenTable,this);
-}
-
-Value Screen::getValueProperty(ExecState *exec, int token) const
-{
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
- KWinModule info(0, KWinModule::INFO_DESKTOP);
-#endif
- TQWidget *thisWidget = Window::retrieveActive(exec)->part()->widget();
- TQRect sg = TDEGlobalSettings::desktopGeometry(thisWidget);
-
- switch( token ) {
- case Height:
- return Number(sg.height());
- case Width:
- return Number(sg.width());
- case ColorDepth:
- case PixelDepth: {
- TQPaintDeviceMetrics m(TQApplication::desktop());
- return Number(m.depth());
- }
- case AvailLeft: {
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
- TQRect clipped = info.workArea().intersect(sg);
- return Number(clipped.x()-sg.x());
-#else
- return Number(10);
-#endif
- }
- case AvailTop: {
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
- TQRect clipped = info.workArea().intersect(sg);
- return Number(clipped.y()-sg.y());
-#else
- return Number(10);
-#endif
- }
- case AvailHeight: {
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
- TQRect clipped = info.workArea().intersect(sg);
- return Number(clipped.height());
-#else
- return Number(100);
-#endif
- }
- case AvailWidth: {
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
- TQRect clipped = info.workArea().intersect(sg);
- return Number(clipped.width());
-#else
- return Number(100);
-#endif
- }
- default:
- kdDebug(6070) << "WARNING: Screen::getValueProperty unhandled token " << token << endl;
- return Undefined();
- }
-}
-
-////////////////////// Window Object ////////////////////////
-
-const ClassInfo Window::info = { "Window", &DOMAbstractView::info, &WindowTable, 0 };
-
-/*
-@begin WindowTable 162
- atob Window::AToB DontDelete|Function 1
- btoa Window::BToA DontDelete|Function 1
- closed Window::Closed DontDelete|ReadOnly
- crypto Window::Crypto DontDelete|ReadOnly
- defaultStatus Window::DefaultStatus DontDelete
- defaultstatus Window::DefaultStatus DontDelete
- status Window::Status DontDelete
- document Window::Document DontDelete|ReadOnly
- frameElement Window::FrameElement DontDelete|ReadOnly
- frames Window::Frames DontDelete|ReadOnly
- history Window::_History DontDelete|ReadOnly
- external Window::_External DontDelete|ReadOnly
- event Window::Event DontDelete|ReadOnly
- innerHeight Window::InnerHeight DontDelete|ReadOnly
- innerWidth Window::InnerWidth DontDelete|ReadOnly
- length Window::Length DontDelete|ReadOnly
- location Window::_Location DontDelete
- name Window::Name DontDelete
- navigator Window::_Navigator DontDelete|ReadOnly
- clientInformation Window::ClientInformation DontDelete|ReadOnly
- konqueror Window::_Konqueror DontDelete|ReadOnly
- offscreenBuffering Window::OffscreenBuffering DontDelete|ReadOnly
- opener Window::Opener DontDelete|ReadOnly
- outerHeight Window::OuterHeight DontDelete|ReadOnly
- outerWidth Window::OuterWidth DontDelete|ReadOnly
- pageXOffset Window::PageXOffset DontDelete|ReadOnly
- pageYOffset Window::PageYOffset DontDelete|ReadOnly
- parent Window::Parent DontDelete|ReadOnly
- personalbar Window::Personalbar DontDelete|ReadOnly
- screenX Window::ScreenX DontDelete|ReadOnly
- screenY Window::ScreenY DontDelete|ReadOnly
- scrollbars Window::Scrollbars DontDelete|ReadOnly
- scroll Window::Scroll DontDelete|Function 2
- scrollBy Window::ScrollBy DontDelete|Function 2
- scrollTo Window::ScrollTo DontDelete|Function 2
- scrollX Window::ScrollX DontDelete|ReadOnly
- scrollY Window::ScrollY DontDelete|ReadOnly
- moveBy Window::MoveBy DontDelete|Function 2
- moveTo Window::MoveTo DontDelete|Function 2
- resizeBy Window::ResizeBy DontDelete|Function 2
- resizeTo Window::ResizeTo DontDelete|Function 2
- self Window::Self DontDelete|ReadOnly
- window Window::_Window DontDelete|ReadOnly
- top Window::Top DontDelete|ReadOnly
- screen Window::_Screen DontDelete|ReadOnly
- alert Window::Alert DontDelete|Function 1
- confirm Window::Confirm DontDelete|Function 1
- prompt Window::Prompt DontDelete|Function 2
- open Window::Open DontDelete|Function 3
- setTimeout Window::SetTimeout DontDelete|Function 2
- clearTimeout Window::ClearTimeout DontDelete|Function 1
- focus Window::Focus DontDelete|Function 0
- blur Window::Blur DontDelete|Function 0
- close Window::Close DontDelete|Function 0
- setInterval Window::SetInterval DontDelete|Function 2
- clearInterval Window::ClearInterval DontDelete|Function 1
- captureEvents Window::CaptureEvents DontDelete|Function 0
- releaseEvents Window::ReleaseEvents DontDelete|Function 0
- print Window::Print DontDelete|Function 0
- addEventListener Window::AddEventListener DontDelete|Function 3
- removeEventListener Window::RemoveEventListener DontDelete|Function 3
-# Normally found in prototype. Add to window object itself to make them
-# accessible in closed and cross-site windows
- valueOf Window::ValueOf DontDelete|Function 0
- toString Window::ToString DontDelete|Function 0
-# IE extension
- navigate Window::Navigate DontDelete|Function 1
-# Mozilla extension
- sidebar Window::SideBar DontDelete|ReadOnly
- getComputedStyle Window::GetComputedStyle DontDelete|Function 2
-
-# Warning, when adding a function to this object you need to add a case in Window::get
-
-# Event handlers
-# IE also has: onactivate, onbefore/afterprint, onbeforedeactivate/unload, oncontrolselect,
-# ondeactivate, onhelp, onmovestart/end, onresizestart/end, onscroll.
-# It doesn't have onabort, onchange, ondragdrop (but NS has that last one).
- onabort Window::Onabort DontDelete
- onblur Window::Onblur DontDelete
- onchange Window::Onchange DontDelete
- onclick Window::Onclick DontDelete
- ondblclick Window::Ondblclick DontDelete
- ondragdrop Window::Ondragdrop DontDelete
- onerror Window::Onerror DontDelete
- onfocus Window::Onfocus DontDelete
- onkeydown Window::Onkeydown DontDelete
- onkeypress Window::Onkeypress DontDelete
- onkeyup Window::Onkeyup DontDelete
- onload Window::Onload DontDelete
- onmousedown Window::Onmousedown DontDelete
- onmousemove Window::Onmousemove DontDelete
- onmouseout Window::Onmouseout DontDelete
- onmouseover Window::Onmouseover DontDelete
- onmouseup Window::Onmouseup DontDelete
- onmove Window::Onmove DontDelete
- onreset Window::Onreset DontDelete
- onresize Window::Onresize DontDelete
- onselect Window::Onselect DontDelete
- onsubmit Window::Onsubmit DontDelete
- onunload Window::Onunload DontDelete
-
-# Constructors/constant tables
- Node Window::Node DontDelete
- Event Window::EventCtor DontDelete
- Range Window::Range DontDelete
- NodeFilter Window::NodeFilter DontDelete
- DOMException Window::DOMException DontDelete
- CSSRule Window::CSSRule DontDelete
- MutationEvent Window::MutationEventCtor DontDelete
- KeyboardEvent Window::KeyboardEventCtor DontDelete
- EventException Window::EventExceptionCtor DontDelete
- Image Window::Image DontDelete|ReadOnly
- Option Window::Option DontDelete|ReadOnly
- XMLHttpRequest Window::XMLHttpRequest DontDelete|ReadOnly
- XMLSerializer Window::XMLSerializer DontDelete|ReadOnly
- DOMParser Window::DOMParser DontDelete|ReadOnly
-
-# Mozilla dom emulation ones.
- Element Window::ElementCtor DontDelete
- Document Window::DocumentCtor DontDelete
- #this one is an alias since we don't have a separate XMLDocument
- XMLDocument Window::DocumentCtor DontDelete
- HTMLElement Window::HTMLElementCtor DontDelete
- HTMLDocument Window::HTMLDocumentCtor DontDelete
- HTMLHtmlElement Window::HTMLHtmlElementCtor DontDelete
- HTMLHeadElement Window::HTMLHeadElementCtor DontDelete
- HTMLLinkElement Window::HTMLLinkElementCtor DontDelete
- HTMLTitleElement Window::HTMLTitleElementCtor DontDelete
- HTMLMetaElement Window::HTMLMetaElementCtor DontDelete
- HTMLBaseElement Window::HTMLBaseElementCtor DontDelete
- HTMLIsIndexElement Window::HTMLIsIndexElementCtor DontDelete
- HTMLStyleElement Window::HTMLStyleElementCtor DontDelete
- HTMLBodyElement Window::HTMLBodyElementCtor DontDelete
- HTMLFormElement Window::HTMLFormElementCtor DontDelete
- HTMLSelectElement Window::HTMLSelectElementCtor DontDelete
- HTMLOptGroupElement Window::HTMLOptGroupElementCtor DontDelete
- HTMLOptionElement Window::HTMLOptionElementCtor DontDelete
- HTMLInputElement Window::HTMLInputElementCtor DontDelete
- HTMLTextAreaElement Window::HTMLTextAreaElementCtor DontDelete
- HTMLButtonElement Window::HTMLButtonElementCtor DontDelete
- HTMLLabelElement Window::HTMLLabelElementCtor DontDelete
- HTMLFieldSetElement Window::HTMLFieldSetElementCtor DontDelete
- HTMLLegendElement Window::HTMLLegendElementCtor DontDelete
- HTMLUListElement Window::HTMLUListElementCtor DontDelete
- HTMLOListElement Window::HTMLOListElementCtor DontDelete
- HTMLDListElement Window::HTMLDListElementCtor DontDelete
- HTMLDirectoryElement Window::HTMLDirectoryElementCtor DontDelete
- HTMLMenuElement Window::HTMLMenuElementCtor DontDelete
- HTMLLIElement Window::HTMLLIElementCtor DontDelete
- HTMLDivElement Window::HTMLDivElementCtor DontDelete
- HTMLParagraphElement Window::HTMLParagraphElementCtor DontDelete
- HTMLHeadingElement Window::HTMLHeadingElementCtor DontDelete
- HTMLBlockQuoteElement Window::HTMLBlockQuoteElementCtor DontDelete
- HTMLQuoteElement Window::HTMLQuoteElementCtor DontDelete
- HTMLPreElement Window::HTMLPreElementCtor DontDelete
- HTMLBRElement Window::HTMLBRElementCtor DontDelete
- HTMLBaseFontElement Window::HTMLBaseFontElementCtor DontDelete
- HTMLFontElement Window::HTMLFontElementCtor DontDelete
- HTMLHRElement Window::HTMLHRElementCtor DontDelete
- HTMLModElement Window::HTMLModElementCtor DontDelete
- HTMLAnchorElement Window::HTMLAnchorElementCtor DontDelete
- HTMLImageElement Window::HTMLImageElementCtor DontDelete
- HTMLObjectElement Window::HTMLObjectElementCtor DontDelete
- HTMLParamElement Window::HTMLParamElementCtor DontDelete
- HTMLAppletElement Window::HTMLAppletElementCtor DontDelete
- HTMLMapElement Window::HTMLMapElementCtor DontDelete
- HTMLAreaElement Window::HTMLAreaElementCtor DontDelete
- HTMLScriptElement Window::HTMLScriptElementCtor DontDelete
- HTMLTableElement Window::HTMLTableElementCtor DontDelete
- HTMLTableCaptionElement Window::HTMLTableCaptionElementCtor DontDelete
- HTMLTableColElement Window::HTMLTableColElementCtor DontDelete
- HTMLTableSectionElement Window::HTMLTableSectionElementCtor DontDelete
- HTMLTableRowElement Window::HTMLTableRowElementCtor DontDelete
- HTMLTableCellElement Window::HTMLTableCellElementCtor DontDelete
- HTMLFrameSetElement Window::HTMLFrameSetElementCtor DontDelete
- HTMLLayerElement Window::HTMLLayerElementCtor DontDelete
- HTMLFrameElement Window::HTMLFrameElementCtor DontDelete
- HTMLIFrameElement Window::HTMLIFrameElementCtor DontDelete
- CSSStyleDeclaration Window::CSSStyleDeclarationCtor DontDelete
-@end
-*/
-IMPLEMENT_PROTOFUNC_DOM(WindowFunc)
-
-Window::Window(khtml::ChildFrame *p)
- : ObjectImp(/*no proto*/), m_frame(p), screen(0), history(0), external(0), m_frames(0), loc(0), m_evt(0)
-{
- winq = new WindowQObject(this);
- //kdDebug(6070) << "Window::Window this=" << this << " part=" << m_part << " " << m_part->name() << endl;
-}
-
-Window::~Window()
-{
- delete winq;
-}
-
-Window *Window::retrieveWindow(KParts::ReadOnlyPart *p)
-{
- Object obj = Object::dynamicCast( retrieve( p ) );
-#ifndef NDEBUG
- // obj should never be null, except when javascript has been disabled in that part.
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(p);
- if ( part && part->jScriptEnabled() )
- {
- assert( obj.isValid() );
-#ifndef QWS
- assert( dynamic_cast<KJS::Window*>(obj.imp()) ); // type checking
-#endif
- }
-#endif
- if ( !obj.isValid() ) // JS disabled
- return 0;
- return static_cast<KJS::Window*>(obj.imp());
-}
-
-Window *Window::retrieveActive(ExecState *exec)
-{
- ValueImp *imp = exec->interpreter()->globalObject().imp();
- assert( imp );
-#ifndef QWS
- assert( dynamic_cast<KJS::Window*>(imp) );
-#endif
- return static_cast<KJS::Window*>(imp);
-}
-
-Value Window::retrieve(KParts::ReadOnlyPart *p)
-{
- assert(p);
- KHTMLPart * part = ::tqqt_cast<KHTMLPart *>(p);
- KJSProxy *proxy = 0L;
- if (!part) {
- part = ::tqqt_cast<KHTMLPart *>(p->parent());
- if (part)
- proxy = part->framejScript(p);
- } else
- proxy = part->jScript();
- if (proxy) {
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Window::retrieve part=" << part << " '" << part->name() << "' interpreter=" << proxy->interpreter() << " window=" << proxy->interpreter()->globalObject().imp() << endl;
-#endif
- return proxy->interpreter()->globalObject(); // the Global object is the "window"
- } else {
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Window::retrieve part=" << p << " '" << p->name() << "' no jsproxy." << endl;
-#endif
- return Undefined(); // This can happen with JS disabled on the domain of that window
- }
-}
-
-Location *Window::location() const
-{
- if (!loc)
- const_cast<Window*>(this)->loc = new Location(m_frame);
- return loc;
-}
-
-ObjectImp* Window::frames( ExecState* exec ) const
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (part)
- return m_frames ? m_frames :
- (const_cast<Window*>(this)->m_frames = new FrameArray(exec, part));
- return 0L;
-}
-
-// reference our special objects during garbage collection
-void Window::mark()
-{
- ObjectImp::mark();
- if (screen && !screen->marked())
- screen->mark();
- if (history && !history->marked())
- history->mark();
- if (external && !external->marked())
- external->mark();
- if (m_frames && !m_frames->marked())
- m_frames->mark();
- //kdDebug(6070) << "Window::mark " << this << " marking loc=" << loc << endl;
- if (loc && !loc->marked())
- loc->mark();
- if (winq)
- winq->mark();
-}
-
-bool Window::hasProperty(ExecState *exec, const Identifier &p) const
-{
- // we don't want any operations on a closed window
- if (m_frame.isNull() || m_frame->m_part.isNull())
- return ( p == "closed" );
-
- if (ObjectImp::hasProperty(exec, p))
- return true;
-
- if (Lookup::findEntry(&WindowTable, p))
- return true;
-
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part)
- return false;
-
- TQString q = p.qstring();
- if (part->findFramePart(p.qstring()))
- return true;
- // allow window[1] or parent[1] etc. (#56983)
- bool ok;
- unsigned int i = p.toArrayIndex(&ok);
- if (ok) {
- TQPtrList<KParts::ReadOnlyPart> frames = part->frames();
- unsigned int len = frames.count();
- if (i < len)
- return true;
- }
-
- // allow shortcuts like 'Image1' instead of document.images.Image1
- if (part->document().isHTMLDocument()) { // might be XML
- DOM::HTMLDocument doc = part->htmlDocument();
- // Keep in sync with tryGet
-
- if (static_cast<DOM::DocumentImpl*>(doc.handle())->underDocNamedCache().get(p.qstring()))
- return true;
-
- return !doc.getElementById(p.string()).isNull();
- }
-
- return false;
-}
-
-UString Window::toString(ExecState *) const
-{
- return "[object Window]";
-}
-
-Value Window::get(ExecState *exec, const Identifier &p) const
-{
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Window("<<this<<")::get " << p.qstring() << endl;
-#endif
- // we want only limited operations on a closed window
- if (m_frame.isNull() || m_frame->m_part.isNull()) {
- const HashEntry* entry = Lookup::findEntry(&WindowTable, p);
- if (entry) {
- switch (entry->value) {
- case Closed:
- return Boolean(true);
- case _Location:
- return Null();
- case ValueOf:
- case ToString:
- return lookupOrCreateFunction<WindowFunc>(exec,p, this, entry->value,
- entry->params, entry->attr);
- default:
- break;
- }
- }
- return Undefined();
- }
-
- // Look for overrides first
- ValueImp *val = getDirect(p);
- if (val) {
- //kdDebug(6070) << "Window::get found dynamic property '" << p.ascii() << "'" << endl;
- return isSafeScript(exec) ? Value(val) : Undefined();
- }
-
- const HashEntry* entry = Lookup::findEntry(&WindowTable, p);
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
-
- // properties that work on all windows
- if (entry) {
- // ReadOnlyPart first
- switch(entry->value) {
- case Closed:
- return Boolean( false );
- case _Location:
- // No isSafeScript test here, we must be able to _set_ location.href (#49819)
- return Value(location());
- case _Window:
- case Self:
- return retrieve(m_frame->m_part);
- default:
- break;
- }
- if (!part)
- return Undefined();
- // KHTMLPart next
- switch(entry->value) {
- case Frames:
- return Value(frames(exec));
- case Opener:
- if (!part->opener())
- return Null(); // ### a null Window might be better, but == null
- else // doesn't work yet
- return retrieve(part->opener());
- case Parent:
- return retrieve(part->parentPart() ? part->parentPart() : (KHTMLPart*)part);
- case Top: {
- KHTMLPart *p = part;
- while (p->parentPart())
- p = p->parentPart();
- return retrieve(p);
- }
- case Alert:
- case Confirm:
- case Prompt:
- case Open:
- case Close:
- case Focus:
- case Blur:
- case AToB:
- case BToA:
- case GetComputedStyle:
- case ValueOf:
- case ToString:
- return lookupOrCreateFunction<WindowFunc>(exec,p,this,entry->value,entry->params,entry->attr);
- default:
- break;
- }
- } else if (!part) {
- // not a KHTMLPart
- TQString rvalue;
- KParts::LiveConnectExtension::Type rtype;
- unsigned long robjid;
- if (m_frame->m_liveconnect &&
- isSafeScript(exec) &&
- m_frame->m_liveconnect->get(0, p.qstring(), rtype, robjid, rvalue))
- return getLiveConnectValue(m_frame->m_liveconnect, p.qstring(), rtype, rvalue, robjid);
- return Undefined();
- }
- // properties that only work on safe windows
- if (isSafeScript(exec) && entry)
- {
- //kdDebug(6070) << "token: " << entry->value << endl;
- switch( entry->value ) {
- case Crypto:
- return Undefined(); // ###
- case DefaultStatus:
- return String(UString(part->jsDefaultStatusBarText()));
- case Status:
- return String(UString(part->jsStatusBarText()));
- case Document:
- if (part->document().isNull()) {
- kdDebug(6070) << "Document.write: adding <HTML><BODY> to create document" << endl;
- part->begin();
- part->write("<HTML><BODY>");
- part->end();
- }
- return getDOMNode(exec,part->document());
- case FrameElement:
- if (m_frame->m_frame)
- return getDOMNode(exec,m_frame->m_frame->element());
- else
- return Undefined();
- case Node:
- return NodeConstructor::self(exec);
- case Range:
- return getRangeConstructor(exec);
- case NodeFilter:
- return getNodeFilterConstructor(exec);
- case DOMException:
- return getDOMExceptionConstructor(exec);
- case CSSRule:
- return getCSSRuleConstructor(exec);
- case ElementCtor:
- return ElementPseudoCtor::self(exec);
- case HTMLElementCtor:
- return HTMLElementPseudoCtor::self(exec);
- case HTMLHtmlElementCtor:
- return HTMLHtmlElementPseudoCtor::self(exec);
- case HTMLHeadElementCtor:
- return HTMLHeadElementPseudoCtor::self(exec);
- case HTMLLinkElementCtor:
- return HTMLLinkElementPseudoCtor::self(exec);
- case HTMLTitleElementCtor:
- return HTMLTitleElementPseudoCtor::self(exec);
- case HTMLMetaElementCtor:
- return HTMLMetaElementPseudoCtor::self(exec);
- case HTMLBaseElementCtor:
- return HTMLBaseElementPseudoCtor::self(exec);
- case HTMLIsIndexElementCtor:
- return HTMLIsIndexElementPseudoCtor::self(exec);
- case HTMLStyleElementCtor:
- return HTMLStyleElementPseudoCtor::self(exec);
- case HTMLBodyElementCtor:
- return HTMLBodyElementPseudoCtor::self(exec);
- case HTMLFormElementCtor:
- return HTMLFormElementPseudoCtor::self(exec);
- case HTMLSelectElementCtor:
- return HTMLSelectElementPseudoCtor::self(exec);
- case HTMLOptGroupElementCtor:
- return HTMLOptGroupElementPseudoCtor::self(exec);
- case HTMLOptionElementCtor:
- return HTMLOptionElementPseudoCtor::self(exec);
- case HTMLInputElementCtor:
- return HTMLInputElementPseudoCtor::self(exec);
- case HTMLTextAreaElementCtor:
- return HTMLTextAreaElementPseudoCtor::self(exec);
- case HTMLButtonElementCtor:
- return HTMLButtonElementPseudoCtor::self(exec);
- case HTMLLabelElementCtor:
- return HTMLLabelElementPseudoCtor::self(exec);
- case HTMLFieldSetElementCtor:
- return HTMLFieldSetElementPseudoCtor::self(exec);
- case HTMLLegendElementCtor:
- return HTMLLegendElementPseudoCtor::self(exec);
- case HTMLUListElementCtor:
- return HTMLUListElementPseudoCtor::self(exec);
- case HTMLOListElementCtor:
- return HTMLOListElementPseudoCtor::self(exec);
- case HTMLDListElementCtor:
- return HTMLDListElementPseudoCtor::self(exec);
- case HTMLDirectoryElementCtor:
- return HTMLDirectoryElementPseudoCtor::self(exec);
- case HTMLMenuElementCtor:
- return HTMLMenuElementPseudoCtor::self(exec);
- case HTMLLIElementCtor:
- return HTMLLIElementPseudoCtor::self(exec);
- case HTMLDivElementCtor:
- return HTMLDivElementPseudoCtor::self(exec);
- case HTMLParagraphElementCtor:
- return HTMLParagraphElementPseudoCtor::self(exec);
- case HTMLHeadingElementCtor:
- return HTMLHeadingElementPseudoCtor::self(exec);
- case HTMLBlockQuoteElementCtor:
- return HTMLBlockQuoteElementPseudoCtor::self(exec);
- case HTMLQuoteElementCtor:
- return HTMLQuoteElementPseudoCtor::self(exec);
- case HTMLPreElementCtor:
- return HTMLPreElementPseudoCtor::self(exec);
- case HTMLBRElementCtor:
- return HTMLBRElementPseudoCtor::self(exec);
- case HTMLBaseFontElementCtor:
- return HTMLBaseFontElementPseudoCtor::self(exec);
- case HTMLFontElementCtor:
- return HTMLFontElementPseudoCtor::self(exec);
- case HTMLHRElementCtor:
- return HTMLHRElementPseudoCtor::self(exec);
- case HTMLModElementCtor:
- return HTMLModElementPseudoCtor::self(exec);
- case HTMLAnchorElementCtor:
- return HTMLAnchorElementPseudoCtor::self(exec);
- case HTMLImageElementCtor:
- return HTMLImageElementPseudoCtor::self(exec);
- case HTMLObjectElementCtor:
- return HTMLObjectElementPseudoCtor::self(exec);
- case HTMLParamElementCtor:
- return HTMLParamElementPseudoCtor::self(exec);
- case HTMLAppletElementCtor:
- return HTMLAppletElementPseudoCtor::self(exec);
- case HTMLMapElementCtor:
- return HTMLMapElementPseudoCtor::self(exec);
- case HTMLAreaElementCtor:
- return HTMLAreaElementPseudoCtor::self(exec);
- case HTMLScriptElementCtor:
- return HTMLScriptElementPseudoCtor::self(exec);
- case HTMLTableElementCtor:
- return HTMLTableElementPseudoCtor::self(exec);
- case HTMLTableCaptionElementCtor:
- return HTMLTableCaptionElementPseudoCtor::self(exec);
- case HTMLTableColElementCtor:
- return HTMLTableColElementPseudoCtor::self(exec);
- case HTMLTableSectionElementCtor:
- return HTMLTableSectionElementPseudoCtor::self(exec);
- case HTMLTableRowElementCtor:
- return HTMLTableRowElementPseudoCtor::self(exec);
- case HTMLTableCellElementCtor:
- return HTMLTableCellElementPseudoCtor::self(exec);
- case HTMLFrameSetElementCtor:
- return HTMLFrameSetElementPseudoCtor::self(exec);
- case HTMLLayerElementCtor:
- return HTMLLayerElementPseudoCtor::self(exec);
- case HTMLFrameElementCtor:
- return HTMLFrameElementPseudoCtor::self(exec);
- case HTMLIFrameElementCtor:
- return HTMLIFrameElementPseudoCtor::self(exec);
- case DocumentCtor:
- return DocumentPseudoCtor::self(exec);
- case HTMLDocumentCtor:
- return HTMLDocumentPseudoCtor::self(exec);
- case CSSStyleDeclarationCtor:
- return CSSStyleDeclarationPseudoCtor::self(exec);
- case EventCtor:
- return EventConstructor::self(exec);
- case MutationEventCtor:
- return getMutationEventConstructor(exec);
- case KeyboardEventCtor:
- return getKeyboardEventConstructor(exec);
- case EventExceptionCtor:
- return getEventExceptionConstructor(exec);
- case _History:
- return Value(history ? history :
- (const_cast<Window*>(this)->history = new History(exec,part)));
-
- case _External:
- return Value(external ? external :
- (const_cast<Window*>(this)->external = new External(exec,part)));
-
- case Event:
- if (m_evt)
- return getDOMEvent(exec,*m_evt);
- else {
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "WARNING: window(" << this << "," << part->name() << ").event, no event!" << endl;
-#endif
- return Undefined();
- }
- case InnerHeight:
- if (!part->view())
- return Undefined();
- khtml::RenderWidget::flushWidgetResizes(); // make sure frames have their final size
- return Number(part->view()->visibleHeight());
- case InnerWidth:
- if (!part->view())
- return Undefined();
- khtml::RenderWidget::flushWidgetResizes(); // make sure frames have their final size
- return Number(part->view()->visibleWidth());
- case Length:
- return Number(part->frames().count());
- case Name:
- return String(part->name());
- case SideBar:
- return Value(new MozillaSidebarExtension(exec, part));
- case _Navigator:
- case ClientInformation: {
- // Store the navigator in the object so we get the same one each time.
- Value nav( new Navigator(exec, part) );
- const_cast<Window *>(this)->put(exec, "navigator", nav, DontDelete|ReadOnly|Internal);
- const_cast<Window *>(this)->put(exec, "clientInformation", nav, DontDelete|ReadOnly|Internal);
- return nav;
- }
-#ifdef Q_WS_QWS
- case _Konqueror: {
- Value k( new Konqueror(part) );
- const_cast<Window *>(this)->put(exec, "konqueror", k, DontDelete|ReadOnly|Internal);
- return k;
- }
-#endif
- case OffscreenBuffering:
- return Boolean(true);
- case OuterHeight:
- case OuterWidth:
- {
-#if defined Q_WS_X11 && ! defined K_WS_QTONLY
- if (!part->widget())
- return Number(0);
- KWin::WindowInfo inf = KWin::windowInfo(part->widget()->topLevelWidget()->winId());
- return Number(entry->value == OuterHeight ?
- inf.geometry().height() : inf.geometry().width());
-#else
- return Number(entry->value == OuterHeight ?
- part->view()->height() : part->view()->width());
-#endif
- }
- case PageXOffset:
- return Number(part->view()->contentsX());
- case PageYOffset:
- return Number(part->view()->contentsY());
- case Personalbar:
- return Undefined(); // ###
- case ScreenLeft:
- case ScreenX: {
- if (!part->view())
- return Undefined();
- TQRect sg = TDEGlobalSettings::desktopGeometry(part->view());
- return Number(part->view()->mapToGlobal(TQPoint(0,0)).x() + sg.x());
- }
- case ScreenTop:
- case ScreenY: {
- if (!part->view())
- return Undefined();
- TQRect sg = TDEGlobalSettings::desktopGeometry(part->view());
- return Number(part->view()->mapToGlobal(TQPoint(0,0)).y() + sg.y());
- }
- case ScrollX: {
- if (!part->view())
- return Undefined();
- return Number(part->view()->contentsX());
- }
- case ScrollY: {
- if (!part->view())
- return Undefined();
- return Number(part->view()->contentsY());
- }
- case Scrollbars:
- return Undefined(); // ###
- case _Screen:
- return Value(screen ? screen :
- (const_cast<Window*>(this)->screen = new Screen(exec)));
- case Image:
- return Value(new ImageConstructorImp(exec, part->document()));
- case Option:
- return Value(new OptionConstructorImp(exec, part->document()));
- case XMLHttpRequest:
- return Value(new XMLHttpRequestConstructorImp(exec, part->document()));
- case XMLSerializer:
- return Value(new XMLSerializerConstructorImp(exec));
- case DOMParser:
- return Value(new DOMParserConstructorImp(exec, part->xmlDocImpl()));
- case Scroll: // compatibility
- case ScrollBy:
- case ScrollTo:
- case MoveBy:
- case MoveTo:
- case ResizeBy:
- case ResizeTo:
- case CaptureEvents:
- case ReleaseEvents:
- case AddEventListener:
- case RemoveEventListener:
- case SetTimeout:
- case ClearTimeout:
- case SetInterval:
- case ClearInterval:
- case Print:
- return lookupOrCreateFunction<WindowFunc>(exec,p,this,entry->value,entry->params,entry->attr);
- // IE extension
- case Navigate:
- // Disabled in NS-compat mode. Supported by default - can't hurt, unless someone uses
- // if (navigate) to test for IE (unlikely).
- if ( exec->interpreter()->compatMode() == Interpreter::NetscapeCompat )
- return Undefined();
- return lookupOrCreateFunction<WindowFunc>(exec,p,this,entry->value,entry->params,entry->attr);
- case Onabort:
- return getListener(exec,DOM::EventImpl::ABORT_EVENT);
- case Onblur:
- return getListener(exec,DOM::EventImpl::BLUR_EVENT);
- case Onchange:
- return getListener(exec,DOM::EventImpl::CHANGE_EVENT);
- case Onclick:
- return getListener(exec,DOM::EventImpl::KHTML_ECMA_CLICK_EVENT);
- case Ondblclick:
- return getListener(exec,DOM::EventImpl::KHTML_ECMA_DBLCLICK_EVENT);
- case Ondragdrop:
- return getListener(exec,DOM::EventImpl::KHTML_DRAGDROP_EVENT);
- case Onerror:
- return getListener(exec,DOM::EventImpl::ERROR_EVENT);
- case Onfocus:
- return getListener(exec,DOM::EventImpl::FOCUS_EVENT);
- case Onkeydown:
- return getListener(exec,DOM::EventImpl::KEYDOWN_EVENT);
- case Onkeypress:
- return getListener(exec,DOM::EventImpl::KEYPRESS_EVENT);
- case Onkeyup:
- return getListener(exec,DOM::EventImpl::KEYUP_EVENT);
- case Onload:
- return getListener(exec,DOM::EventImpl::LOAD_EVENT);
- case Onmousedown:
- return getListener(exec,DOM::EventImpl::MOUSEDOWN_EVENT);
- case Onmousemove:
- return getListener(exec,DOM::EventImpl::MOUSEMOVE_EVENT);
- case Onmouseout:
- return getListener(exec,DOM::EventImpl::MOUSEOUT_EVENT);
- case Onmouseover:
- return getListener(exec,DOM::EventImpl::MOUSEOVER_EVENT);
- case Onmouseup:
- return getListener(exec,DOM::EventImpl::MOUSEUP_EVENT);
- case Onmove:
- return getListener(exec,DOM::EventImpl::KHTML_MOVE_EVENT);
- case Onreset:
- return getListener(exec,DOM::EventImpl::RESET_EVENT);
- case Onresize:
- return getListener(exec,DOM::EventImpl::RESIZE_EVENT);
- case Onselect:
- return getListener(exec,DOM::EventImpl::SELECT_EVENT);
- case Onsubmit:
- return getListener(exec,DOM::EventImpl::SUBMIT_EVENT);
- case Onunload:
- return getListener(exec,DOM::EventImpl::UNLOAD_EVENT);
- }
- }
-
- // doing the remainder of ObjectImp::get() that is not covered by
- // the getDirect() call above.
- // #### guessed position. move further up or down?
- Object proto = Object::dynamicCast(prototype());
- assert(proto.isValid());
- if (p == specialPrototypePropertyName)
- return isSafeScript(exec) ? Value(proto) : Undefined();
- Value val2 = proto.get(exec, p);
- if (!val2.isA(UndefinedType)) {
- return isSafeScript(exec) ? val2 : Undefined();
- }
-
- KParts::ReadOnlyPart *rop = part->findFramePart( p.qstring() );
- if (rop)
- return retrieve(rop);
-
- // allow window[1] or parent[1] etc. (#56983)
- bool ok;
- unsigned int i = p.toArrayIndex(&ok);
- if (ok) {
- TQPtrList<KParts::ReadOnlyPart> frames = part->frames();
- unsigned int len = frames.count();
- if (i < len) {
- KParts::ReadOnlyPart* frame = frames.at(i);
- if (frame)
- return Window::retrieve(frame);
- }
- }
-
- //Check for images, forms, objects, etc.
- if (isSafeScript(exec) && part->document().isHTMLDocument()) { // might be XML
- DOM::DocumentImpl* docImpl = part->xmlDocImpl();
- DOM::ElementMappingCache::ItemInfo* info = docImpl->underDocNamedCache().get(p.qstring());
- if (info) {
- //May be a false positive, but we can try to avoid doing it the hard way in
- //simpler cases. The trickiness here is that the cache is kept under both
- //name and id, but we sometimes ignore id for IE compat
- DOM::DOMString propertyDOMString = p.string();
- if (info->nd && DOM::HTMLMappedNameCollectionImpl::matchesName(info->nd,
- DOM::HTMLCollectionImpl::WINDOW_NAMED_ITEMS, propertyDOMString)) {
- return getDOMNode(exec, info->nd);
- } else {
- //Can't tell it just like that, so better go through collection and count stuff. This is the slow path...
- DOM::HTMLMappedNameCollection coll(docImpl, DOM::HTMLCollectionImpl::WINDOW_NAMED_ITEMS, propertyDOMString);
-
- if (coll.length() == 1)
- return getDOMNode(exec, coll.firstItem());
- else if (coll.length() > 1)
- return getHTMLCollection(exec, coll);
- }
- }
- DOM::Element element = part->document().getElementById(p.string());
- if ( !element.isNull() )
- return getDOMNode(exec, element );
- }
-
- // This isn't necessarily a bug. Some code uses if(!window.blah) window.blah=1
- // But it can also mean something isn't loaded or implemented, hence the WARNING to help grepping.
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "WARNING: Window::get property not found: " << p.qstring() << endl;
-#endif
- return Undefined();
-}
-
-void Window::put(ExecState* exec, const Identifier &propertyName, const Value &value, int attr)
-{
- // we don't want any operations on a closed window
- if (m_frame.isNull() || m_frame->m_part.isNull()) {
- // ### throw exception? allow setting of some props like location?
- return;
- }
-
- // Called by an internal KJS call (e.g. InterpreterImp's constructor) ?
- // If yes, save time and jump directly to ObjectImp.
- if ( (attr != None && attr != DontDelete) ||
- // Same thing if we have a local override (e.g. "var location")
- ( isSafeScript( exec ) && ObjectImp::getDirect(propertyName) ) )
- {
- ObjectImp::put( exec, propertyName, value, attr );
- return;
- }
-
- const HashEntry* entry = Lookup::findEntry(&WindowTable, propertyName);
- if (entry && !m_frame.isNull() && !m_frame->m_part.isNull())
- {
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Window("<<this<<")::put " << propertyName.qstring() << endl;
-#endif
- switch( entry->value) {
- case _Location:
- goURL(exec, value.toString(exec).qstring(), false /*don't lock history*/);
- return;
- default:
- break;
- }
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (part) {
- switch( entry->value ) {
- case Status: {
- if (isSafeScript(exec) && part->settings()->windowStatusPolicy(part->url().host())
- == KHTMLSettings::KJSWindowStatusAllow) {
- String s = value.toString(exec);
- part->setJSStatusBarText(s.value().qstring());
- }
- return;
- }
- case DefaultStatus: {
- if (isSafeScript(exec) && part->settings()->windowStatusPolicy(part->url().host())
- == KHTMLSettings::KJSWindowStatusAllow) {
- String s = value.toString(exec);
- part->setJSDefaultStatusBarText(s.value().qstring());
- }
- return;
- }
- case Onabort:
- if (isSafeScript(exec))
- setListener(exec, DOM::EventImpl::ABORT_EVENT,value);
- return;
- case Onblur:
- if (isSafeScript(exec))
- setListener(exec, DOM::EventImpl::BLUR_EVENT,value);
- return;
- case Onchange:
- if (isSafeScript(exec))
- setListener(exec, DOM::EventImpl::CHANGE_EVENT,value);
- return;
- case Onclick:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KHTML_ECMA_CLICK_EVENT,value);
- return;
- case Ondblclick:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KHTML_ECMA_DBLCLICK_EVENT,value);
- return;
- case Ondragdrop:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KHTML_DRAGDROP_EVENT,value);
- return;
- case Onerror:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::ERROR_EVENT,value);
- return;
- case Onfocus:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::FOCUS_EVENT,value);
- return;
- case Onkeydown:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KEYDOWN_EVENT,value);
- return;
- case Onkeypress:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KEYPRESS_EVENT,value);
- return;
- case Onkeyup:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KEYUP_EVENT,value);
- return;
- case Onload:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::LOAD_EVENT,value);
- return;
- case Onmousedown:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::MOUSEDOWN_EVENT,value);
- return;
- case Onmousemove:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::MOUSEMOVE_EVENT,value);
- return;
- case Onmouseout:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::MOUSEOUT_EVENT,value);
- return;
- case Onmouseover:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::MOUSEOVER_EVENT,value);
- return;
- case Onmouseup:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::MOUSEUP_EVENT,value);
- return;
- case Onmove:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::KHTML_MOVE_EVENT,value);
- return;
- case Onreset:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::RESET_EVENT,value);
- return;
- case Onresize:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::RESIZE_EVENT,value);
- return;
- case Onselect:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::SELECT_EVENT,value);
- return;
- case Onsubmit:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::SUBMIT_EVENT,value);
- return;
- case Onunload:
- if (isSafeScript(exec))
- setListener(exec,DOM::EventImpl::UNLOAD_EVENT,value);
- return;
- case Name:
- if (isSafeScript(exec))
- part->setName( value.toString(exec).qstring().local8Bit().data() );
- return;
- default:
- break;
- }
- }
- }
- if (m_frame->m_liveconnect &&
- isSafeScript(exec) &&
- m_frame->m_liveconnect->put(0, propertyName.qstring(), value.toString(exec).qstring()))
- return;
- if (isSafeScript(exec)) {
- //kdDebug(6070) << "Window("<<this<<")::put storing " << propertyName.qstring() << endl;
- ObjectImp::put(exec, propertyName, value, attr);
- }
-}
-
-bool Window::toBoolean(ExecState *) const
-{
- return !m_frame.isNull() && !m_frame->m_part.isNull();
-}
-
-DOM::AbstractView Window::toAbstractView() const
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part)
- return DOM::AbstractView();
- return part->document().defaultView();
-}
-
-void Window::scheduleClose()
-{
- kdDebug(6070) << "Window::scheduleClose window.close() " << m_frame << endl;
- Q_ASSERT(winq);
- TQTimer::singleShot( 0, winq, TQT_SLOT( timeoutClose() ) );
-}
-
-void Window::closeNow()
-{
- if (m_frame.isNull() || m_frame->m_part.isNull()) {
- kdDebug(6070) << k_funcinfo << "part is deleted already" << endl;
- } else {
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part) {
- kdDebug(6070) << "closeNow on non KHTML part" << endl;
- } else {
- //kdDebug(6070) << k_funcinfo << " -> closing window" << endl;
- // We want to make sure that window.open won't find this part by name.
- part->setName( 0 );
- part->deleteLater();
- part = 0;
- }
- }
-}
-
-void Window::afterScriptExecution()
-{
- DOM::DocumentImpl::updateDocumentsRendering();
- TQValueList<DelayedAction> delayedActions = m_delayed;
- m_delayed.clear();
- TQValueList<DelayedAction>::Iterator it = delayedActions.begin();
- for ( ; it != delayedActions.end() ; ++it )
- {
- switch ((*it).actionId) {
- case DelayedClose:
- scheduleClose();
- return; // stop here, in case of multiple actions
- case DelayedGoHistory:
- goHistory( (*it).param.toInt() );
- break;
- case NullAction:
- // FIXME: anything needs to be done here? This is warning anyways.
- break;
- };
- }
-}
-
-bool Window::checkIsSafeScript(KParts::ReadOnlyPart *activePart) const
-{
- if (m_frame.isNull() || m_frame->m_part.isNull()) { // part deleted ? can't grant access
- kdDebug(6070) << "Window::isSafeScript: accessing deleted part !" << endl;
- return false;
- }
- if (!activePart) {
- kdDebug(6070) << "Window::isSafeScript: current interpreter's part is 0L!" << endl;
- return false;
- }
- if ( activePart == m_frame->m_part ) // Not calling from another frame, no problem.
- return true;
-
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part)
- return true; // not a KHTMLPart
-
- if ( part->document().isNull() )
- return true; // allow to access a window that was just created (e.g. with window.open("about:blank"))
-
- DOM::HTMLDocument thisDocument = part->htmlDocument();
- if ( thisDocument.isNull() ) {
- kdDebug(6070) << "Window::isSafeScript: trying to access an XML document !?" << endl;
- return false;
- }
-
- KHTMLPart *activeKHTMLPart = ::tqqt_cast<KHTMLPart *>(activePart);
- if (!activeKHTMLPart)
- return true; // not a KHTMLPart
-
- DOM::HTMLDocument actDocument = activeKHTMLPart->htmlDocument();
- if ( actDocument.isNull() ) {
- kdDebug(6070) << "Window::isSafeScript: active part has no document!" << endl;
- return false;
- }
- DOM::DOMString actDomain = actDocument.domain();
- DOM::DOMString thisDomain = thisDocument.domain();
-
- if ( actDomain == thisDomain ) {
-#ifdef KJS_VERBOSE
- //kdDebug(6070) << "JavaScript: access granted, domain is '" << actDomain.string() << "'" << endl;
-#endif
- return true;
- }
-
- kdDebug(6070) << "WARNING: JavaScript: access denied for current frame '" << actDomain.string() << "' to frame '" << thisDomain.string() << "'" << endl;
- // TODO after 3.1: throw security exception (exec->setException())
- return false;
-}
-
-void Window::setListener(ExecState *exec, int eventId, Value func)
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part || !isSafeScript(exec))
- return;
- DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl*>(part->htmlDocument().handle());
- if (!doc)
- return;
-
- doc->setHTMLWindowEventListener(eventId,getJSEventListener(func,true));
-}
-
-Value Window::getListener(ExecState *exec, int eventId) const
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part || !isSafeScript(exec))
- return Undefined();
- DOM::DocumentImpl *doc = static_cast<DOM::DocumentImpl*>(part->htmlDocument().handle());
- if (!doc)
- return Undefined();
-
- DOM::EventListener *listener = doc->getHTMLWindowEventListener(eventId);
- if (listener && static_cast<JSEventListener*>(listener)->listenerObjImp())
- return static_cast<JSEventListener*>(listener)->listenerObj();
- else
- return Null();
-}
-
-
-JSEventListener *Window::getJSEventListener(const Value& val, bool html)
-{
- // This function is so hot that it's worth coding it directly with imps.
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part || val.type() != ObjectType)
- return 0;
-
- // It's ObjectType, so it must be valid.
- Object listenerObject = Object::dynamicCast(val);
- ObjectImp *listenerObjectImp = listenerObject.imp();
-
- // 'listener' is not a simple ecma function. (Always use sanity checks: Better safe than sorry!)
- if (!listenerObject.implementsCall() && part && part->jScript() && part->jScript()->interpreter())
- {
- Interpreter *interpreter = part->jScript()->interpreter();
-
- // 'listener' probably is an EventListener object containing a 'handleEvent' function.
- Value handleEventValue = listenerObject.get(interpreter->globalExec(), Identifier("handleEvent"));
- Object handleEventObject = Object::dynamicCast(handleEventValue);
-
- if(handleEventObject.isValid() && handleEventObject.implementsCall())
- {
- listenerObject = handleEventObject;
- listenerObjectImp = handleEventObject.imp();
- }
- }
-
- JSEventListener *existingListener = jsEventListeners[listenerObjectImp];
- if (existingListener) {
- if ( existingListener->isHTMLEventListener() != html )
- // The existingListener will have the wrong type, so onclick= will behave like addEventListener or vice versa.
- kdWarning() << "getJSEventListener: event listener already found but with html=" << !html << " - please report this, we thought it would never happen" << endl;
- return existingListener;
- }
-
- // Note that the JSEventListener constructor adds it to our jsEventListeners list
- return new JSEventListener(listenerObject, listenerObjectImp, Object(this), html);
-}
-
-JSLazyEventListener *Window::getJSLazyEventListener(const TQString& code, const TQString& name, DOM::NodeImpl *node)
-{
- return new JSLazyEventListener(code, name, Object(this), node);
-}
-
-void Window::clear( ExecState *exec )
-{
- delete winq;
- winq = 0L;
- // Get rid of everything, those user vars could hold references to DOM nodes
- deleteAllProperties( exec );
-
- // Break the dependency between the listeners and their object
- TQPtrDictIterator<JSEventListener> it(jsEventListeners);
- for (; it.current(); ++it)
- it.current()->clear();
- // Forget about the listeners (the DOM::NodeImpls will delete them)
- jsEventListeners.clear();
-
- if (m_frame) {
- KJSProxy* proxy = m_frame->m_jscript;
- if (proxy) // i.e. JS not disabled
- {
- winq = new WindowQObject(this);
- // Now recreate a working global object for the next URL that will use us
- KJS::Interpreter *interpreter = proxy->interpreter();
- interpreter->initGlobalObject();
- }
- }
-}
-
-void Window::setCurrentEvent( DOM::Event *evt )
-{
- m_evt = evt;
- //kdDebug(6070) << "Window " << this << " (part=" << m_part << ")::setCurrentEvent m_evt=" << evt << endl;
-}
-
-void Window::goURL(ExecState* exec, const TQString& url, bool lockHistory)
-{
- Window* active = Window::retrieveActive(exec);
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- KHTMLPart *active_part = ::tqqt_cast<KHTMLPart *>(active->part());
- // Complete the URL using the "active part" (running interpreter)
- if (active_part && part) {
- if (url[0] == TQChar('#')) {
- part->gotoAnchor(url.mid(1));
- } else {
- TQString dstUrl = active_part->htmlDocument().completeURL(url).string();
- kdDebug(6070) << "Window::goURL dstUrl=" << dstUrl << endl;
-
- // check if we're allowed to inject javascript
- // SYNC check with khtml_part.cpp::slotRedirect!
- if ( isSafeScript(exec) ||
- dstUrl.find(TQString::fromLatin1("javascript:"), 0, false) != 0 )
- part->scheduleRedirection(-1,
- dstUrl,
- lockHistory);
- }
- } else if (!part && !m_frame->m_part.isNull()) {
- KParts::BrowserExtension *b = KParts::BrowserExtension::childObject(m_frame->m_part);
- if (b)
- b->emit openURLRequest(m_frame->m_frame->element()->getDocument()->completeURL(url));
- kdDebug() << "goURL for ROPart" << endl;
- }
-}
-
-KParts::ReadOnlyPart *Window::part() const {
- return m_frame.isNull() ? 0L : static_cast<KParts::ReadOnlyPart *>(m_frame->m_part);
-}
-
-void Window::delayedGoHistory( int steps )
-{
- m_delayed.append( DelayedAction( DelayedGoHistory, steps ) );
-}
-
-void Window::goHistory( int steps )
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if(!part)
- // TODO history readonlypart
- return;
- KParts::BrowserExtension *ext = part->browserExtension();
- if(!ext)
- return;
- KParts::BrowserInterface *iface = ext->browserInterface();
-
- if ( !iface )
- return;
-
- iface->callMethod( "goHistory(int)", steps );
- //emit ext->goHistory(steps);
-}
-
-void KJS::Window::resizeTo(TQWidget* tl, int width, int height)
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if(!part)
- // TODO resizeTo readonlypart
- return;
- KParts::BrowserExtension *ext = part->browserExtension();
- if (!ext) {
- kdDebug(6070) << "Window::resizeTo found no browserExtension" << endl;
- return;
- }
-
- // Security check: within desktop limits and bigger than 100x100 (per spec)
- if ( width < 100 || height < 100 ) {
- kdDebug(6070) << "Window::resizeTo refused, window would be too small ("<<width<<","<<height<<")" << endl;
- return;
- }
-
- TQRect sg = TDEGlobalSettings::desktopGeometry(tl);
-
- if ( width > sg.width() || height > sg.height() ) {
- kdDebug(6070) << "Window::resizeTo refused, window would be too big ("<<width<<","<<height<<")" << endl;
- return;
- }
-
- kdDebug(6070) << "resizing to " << width << "x" << height << endl;
-
- emit ext->resizeTopLevelWidget( width, height );
-
- // If the window is out of the desktop, move it up/left
- // (maybe we should use workarea instead of sg, otherwise the window ends up below kicker)
- int right = tl->x() + tl->frameGeometry().width();
- int bottom = tl->y() + tl->frameGeometry().height();
- int moveByX = 0;
- int moveByY = 0;
- if ( right > sg.right() )
- moveByX = - right + sg.right(); // always <0
- if ( bottom > sg.bottom() )
- moveByY = - bottom + sg.bottom(); // always <0
- if ( moveByX || moveByY )
- emit ext->moveTopLevelWidget( tl->x() + moveByX , tl->y() + moveByY );
-}
-
-Value Window::openWindow(ExecState *exec, const List& args)
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- if (!part)
- return Undefined();
- KHTMLView *widget = part->view();
- Value v = args[0];
- TQString str;
- if (v.isValid() && !v.isA(UndefinedType))
- str = v.toString(exec).qstring();
-
- // prepare arguments
- KURL url;
- if (!str.isEmpty())
- {
- KHTMLPart* p = ::tqqt_cast<KHTMLPart *>(Window::retrieveActive(exec)->m_frame->m_part);
- if ( p )
- url = p->htmlDocument().completeURL(str).string();
- if ( !p ||
- !static_cast<DOM::DocumentImpl*>(p->htmlDocument().handle())->isURLAllowed(url.url()) )
- return Undefined();
- }
-
- KHTMLSettings::KJSWindowOpenPolicy policy =
- part->settings()->windowOpenPolicy(part->url().host());
- if ( policy == KHTMLSettings::KJSWindowOpenAsk ) {
- emit part->browserExtension()->requestFocus(part);
- TQString caption;
- if (!part->url().host().isEmpty())
- caption = part->url().host() + " - ";
- caption += i18n( "Confirmation: JavaScript Popup" );
- if ( KMessageBox::questionYesNo(widget,
- str.isEmpty() ?
- i18n( "This site is requesting to open up a new browser "
- "window via JavaScript.\n"
- "Do you want to allow this?" ) :
- i18n( "<qt>This site is requesting to open<p>%1</p>in a new browser window via JavaScript.<br />"
- "Do you want to allow this?</qt>").arg(KStringHandler::csqueeze(url.htmlURL(), 100)),
- caption, i18n("Allow"), i18n("Do Not Allow") ) == KMessageBox::Yes )
- policy = KHTMLSettings::KJSWindowOpenAllow;
- } else if ( policy == KHTMLSettings::KJSWindowOpenSmart )
- {
- // window.open disabled unless from a key/mouse event
- if (static_cast<ScriptInterpreter *>(exec->interpreter())->isWindowOpenAllowed())
- policy = KHTMLSettings::KJSWindowOpenAllow;
- }
-
- TQString frameName = args.size() > 1 ? args[1].toString(exec).qstring() : TQString("_blank");
-
- v = args[2];
- TQString features;
- if (!v.isNull() && v.type() != UndefinedType && v.toString(exec).size() > 0) {
- features = v.toString(exec).qstring();
- // Buggy scripts have ' at beginning and end, cut those
- if (features.startsWith("\'") && features.endsWith("\'"))
- features = features.mid(1, features.length()-2);
- }
-
- if ( policy != KHTMLSettings::KJSWindowOpenAllow ) {
- if ( url.isEmpty() )
- part->setSuppressedPopupIndicator(true, 0);
- else {
- part->setSuppressedPopupIndicator(true, part);
- m_suppressedWindowInfo.append( SuppressedWindowInfo( url, frameName, features ) );
- }
- return Undefined();
- } else {
- return executeOpenWindow(exec, url, frameName, features);
- }
-}
-
-Value Window::executeOpenWindow(ExecState *exec, const KURL& url, const TQString& frameName, const TQString& features)
-{
- KHTMLPart *p = ::tqqt_cast<KHTMLPart *>(m_frame->m_part);
- KHTMLView *widget = p->view();
- KParts::WindowArgs winargs;
-
- // scan feature argument
- if (!features.isEmpty()) {
- // specifying window params means false defaults
- winargs.menuBarVisible = false;
- winargs.toolBarsVisible = false;
- winargs.statusBarVisible = false;
- winargs.scrollBarsVisible = false;
- TQStringList flist = TQStringList::split(',', features);
- TQStringList::ConstIterator it = flist.begin();
- while (it != flist.end()) {
- TQString s = *it++;
- TQString key, val;
- int pos = s.find('=');
- if (pos >= 0) {
- key = s.left(pos).stripWhiteSpace().lower();
- val = s.mid(pos + 1).stripWhiteSpace().lower();
- TQRect screen = TDEGlobalSettings::desktopGeometry(widget->topLevelWidget());
-
- if (key == "left" || key == "screenx") {
- winargs.x = (int)val.toFloat() + screen.x();
- if (winargs.x < screen.x() || winargs.x > screen.right())
- winargs.x = screen.x(); // only safe choice until size is determined
- } else if (key == "top" || key == "screeny") {
- winargs.y = (int)val.toFloat() + screen.y();
- if (winargs.y < screen.y() || winargs.y > screen.bottom())
- winargs.y = screen.y(); // only safe choice until size is determined
- } else if (key == "height") {
- winargs.height = (int)val.toFloat() + 2*tqApp->style().pixelMetric( TQStyle::PM_DefaultFrameWidth ) + 2;
- if (winargs.height > screen.height()) // should actually check workspace
- winargs.height = screen.height();
- if (winargs.height < 100)
- winargs.height = 100;
- } else if (key == "width") {
- winargs.width = (int)val.toFloat() + 2*tqApp->style().pixelMetric( TQStyle::PM_DefaultFrameWidth ) + 2;
- if (winargs.width > screen.width()) // should actually check workspace
- winargs.width = screen.width();
- if (winargs.width < 100)
- winargs.width = 100;
- } else {
- goto boolargs;
- }
- continue;
- } else {
- // leaving away the value gives true
- key = s.stripWhiteSpace().lower();
- val = "1";
- }
- boolargs:
- if (key == "menubar")
- winargs.menuBarVisible = (val == "1" || val == "yes");
- else if (key == "toolbar")
- winargs.toolBarsVisible = (val == "1" || val == "yes");
- else if (key == "location") // ### missing in WindowArgs
- winargs.toolBarsVisible = (val == "1" || val == "yes");
- else if (key == "status" || key == "statusbar")
- winargs.statusBarVisible = (val == "1" || val == "yes");
- else if (key == "scrollbars")
- winargs.scrollBarsVisible = (val == "1" || val == "yes");
- else if (key == "resizable")
- winargs.resizable = (val == "1" || val == "yes");
- else if (key == "fullscreen")
- winargs.fullscreen = (val == "1" || val == "yes");
- }
- }
-
- KParts::URLArgs uargs;
- uargs.frameName = frameName;
-
- if ( uargs.frameName.lower() == "_top" )
- {
- while ( p->parentPart() )
- p = p->parentPart();
- Window::retrieveWindow(p)->goURL(exec, url.url(), false /*don't lock history*/);
- return Window::retrieve(p);
- }
- if ( uargs.frameName.lower() == "_parent" )
- {
- if ( p->parentPart() )
- p = p->parentPart();
- Window::retrieveWindow(p)->goURL(exec, url.url(), false /*don't lock history*/);
- return Window::retrieve(p);
- }
- if ( uargs.frameName.lower() == "_self")
- {
- Window::retrieveWindow(p)->goURL(exec, url.url(), false /*don't lock history*/);
- return Window::retrieve(p);
- }
- if ( uargs.frameName.lower() == "replace" )
- {
- Window::retrieveWindow(p)->goURL(exec, url.url(), true /*lock history*/);
- return Window::retrieve(p);
- }
- uargs.serviceType = "text/html";
-
- // request window (new or existing if framename is set)
- KParts::ReadOnlyPart *newPart = 0L;
- emit p->browserExtension()->createNewWindow(KURL(), uargs,winargs,newPart);
- if (newPart && ::tqqt_cast<KHTMLPart*>(newPart)) {
- KHTMLPart *khtmlpart = static_cast<KHTMLPart*>(newPart);
- //tqDebug("opener set to %p (this Window's part) in new Window %p (this Window=%p)",part,win,window);
- khtmlpart->setOpener(p);
- khtmlpart->setOpenedByJS(true);
- if (khtmlpart->document().isNull()) {
- khtmlpart->begin();
- khtmlpart->write("<HTML><BODY>");
- khtmlpart->end();
- if ( p->docImpl() ) {
- //kdDebug(6070) << "Setting domain to " << p->docImpl()->domain().string() << endl;
- khtmlpart->docImpl()->setDomain( p->docImpl()->domain());
- khtmlpart->docImpl()->setBaseURL( p->docImpl()->baseURL() );
- }
- }
- uargs.serviceType = TQString::null;
- if (uargs.frameName.lower() == "_blank")
- uargs.frameName = TQString::null;
- if (!url.isEmpty())
- emit khtmlpart->browserExtension()->openURLRequest(url,uargs);
- return Window::retrieve(khtmlpart); // global object
- } else
- return Undefined();
-}
-
-void Window::forgetSuppressedWindows()
-{
- m_suppressedWindowInfo.clear();
-}
-
-void Window::showSuppressedWindows()
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>( m_frame->m_part );
- KJS::Interpreter *interpreter = part->jScript()->interpreter();
- ExecState *exec = interpreter->globalExec();
-
- TQValueList<SuppressedWindowInfo> suppressedWindowInfo = m_suppressedWindowInfo;
- m_suppressedWindowInfo.clear();
- TQValueList<SuppressedWindowInfo>::Iterator it = suppressedWindowInfo.begin();
- for ( ; it != suppressedWindowInfo.end() ; ++it ) {
- executeOpenWindow(exec, (*it).url, (*it).frameName, (*it).features);
- }
-}
-
-Value WindowFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
-{
- KJS_CHECK_THIS( Window, thisObj );
-
- // these should work no matter whether the window is already
- // closed or not
- if (id == Window::ValueOf || id == Window::ToString) {
- return String("[object Window]");
- }
-
- Window *window = static_cast<Window *>(thisObj.imp());
- TQString str, str2;
-
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(window->m_frame->m_part);
- if (!part)
- return Undefined();
-
- KHTMLView *widget = part->view();
- Value v = args[0];
- UString s;
- if (v.isValid() && !v.isA(UndefinedType)) {
- s = v.toString(exec);
- str = s.qstring();
- }
-
- TQString caption;
- if (part && !part->url().host().isEmpty())
- caption = part->url().host() + " - ";
- caption += "JavaScript"; // TODO: i18n
- // functions that work everywhere
- switch(id) {
- case Window::Alert:
- if (!widget->dialogsAllowed())
- return Undefined();
- if ( part && part->xmlDocImpl() )
- part->xmlDocImpl()->updateRendering();
- if ( part )
- emit part->browserExtension()->requestFocus(part);
- KMessageBox::error(widget, TQStyleSheet::convertFromPlainText(str, TQStyleSheetItem::WhiteSpaceNormal), caption);
- return Undefined();
- case Window::Confirm:
- if (!widget->dialogsAllowed())
- return Undefined();
- if ( part && part->xmlDocImpl() )
- part->xmlDocImpl()->updateRendering();
- if ( part )
- emit part->browserExtension()->requestFocus(part);
- return Boolean((KMessageBox::warningYesNo(widget, TQStyleSheet::convertFromPlainText(str), caption,
- KStdGuiItem::ok(), KStdGuiItem::cancel()) == KMessageBox::Yes));
- case Window::Prompt:
-#ifndef KONQ_EMBEDDED
- if (!widget->dialogsAllowed())
- return Undefined();
- if ( part && part->xmlDocImpl() )
- part->xmlDocImpl()->updateRendering();
- if ( part )
- emit part->browserExtension()->requestFocus(part);
- bool ok;
- if (args.size() >= 2)
- str2 = KInputDialog::getText(caption,
- TQStyleSheet::convertFromPlainText(str),
- args[1].toString(exec).qstring(), &ok, widget);
- else
- str2 = KInputDialog::getText(caption,
- TQStyleSheet::convertFromPlainText(str),
- TQString::null, &ok, widget);
- if ( ok )
- return String(str2);
- else
- return Null();
-#else
- return Undefined();
-#endif
- case Window::GetComputedStyle: {
- if ( !part || !part->xmlDocImpl() )
- return Undefined();
- DOM::Node arg0 = toNode(args[0]);
- if (arg0.nodeType() != DOM::Node::ELEMENT_NODE)
- return Undefined(); // throw exception?
- else
- return getDOMCSSStyleDeclaration(exec, part->document().defaultView().getComputedStyle(static_cast<DOM::Element>(arg0),
- args[1].toString(exec).string()));
- }
- case Window::Open:
- return window->openWindow(exec, args);
- case Window::Close: {
- /* From http://developer.netscape.com/docs/manuals/js/client/jsref/window.htm :
- The close method closes only windows opened by JavaScript using the open method.
- If you attempt to close any other window, a confirm is generated, which
- lets the user choose whether the window closes.
- This is a security feature to prevent "mail bombs" containing self.close().
- However, if the window has only one document (the current one) in its
- session history, the close is allowed without any confirm. This is a
- special case for one-off windows that need to open other windows and
- then dispose of themselves.
- */
- bool doClose = false;
- if (!part->openedByJS())
- {
- // To conform to the SPEC, we only ask if the window
- // has more than one entry in the history (NS does that too).
- History history(exec,part);
-
- if ( history.get( exec, "length" ).toInt32(exec) <= 1 )
- {
- doClose = true;
- }
- else
- {
- // Can we get this dialog with tabs??? Does it close the window or the tab in that case?
- emit part->browserExtension()->requestFocus(part);
- if ( KMessageBox::questionYesNo( window->part()->widget(),
- i18n("Close window?"), i18n("Confirmation Required"),
- KStdGuiItem::close(), KStdGuiItem::cancel() )
- == KMessageBox::Yes )
- doClose = true;
- }
- }
- else
- doClose = true;
-
- if (doClose)
- {
- // If this is the current window (the one the interpreter runs in),
- // then schedule a delayed close (so that the script terminates first).
- // But otherwise, close immediately. This fixes w=window.open("","name");w.close();window.open("name");
- if ( Window::retrieveActive(exec) == window ) {
- if (widget) {
- // quit all dialogs of this view
- // this fixes 'setTimeout('self.close()',1000); alert("Hi");' crash
- widget->closeChildDialogs();
- }
- //kdDebug() << "scheduling delayed close" << endl;
- // We'll close the window at the end of the script execution
- Window* w = const_cast<Window*>(window);
- w->m_delayed.append( Window::DelayedAction( Window::DelayedClose ) );
- } else {
- //kdDebug() << "closing NOW" << endl;
- (const_cast<Window*>(window))->closeNow();
- }
- }
- return Undefined();
- }
- case Window::Navigate:
- window->goURL(exec, args[0].toString(exec).qstring(), false /*don't lock history*/);
- return Undefined();
- case Window::Focus: {
- KHTMLSettings::KJSWindowFocusPolicy policy =
- part->settings()->windowFocusPolicy(part->url().host());
- if(policy == KHTMLSettings::KJSWindowFocusAllow && widget) {
- widget->topLevelWidget()->raise();
- KWin::deIconifyWindow( widget->topLevelWidget()->winId() );
- widget->setActiveWindow();
- emit part->browserExtension()->requestFocus(part);
- }
- return Undefined();
- }
- case Window::Blur:
- // TODO
- return Undefined();
- case Window::BToA:
- case Window::AToB: {
- if (!s.is8Bit())
- return Undefined();
- TQByteArray in, out;
- char *binData = s.ascii();
- in.setRawData( binData, s.size() );
- if (id == Window::AToB)
- KCodecs::base64Decode( in, out );
- else
- KCodecs::base64Encode( in, out );
- in.resetRawData( binData, s.size() );
- UChar *d = new UChar[out.size()];
- for (uint i = 0; i < out.size(); i++)
- d[i].uc = (uchar) out[i];
- UString ret(d, out.size(), false /*no copy*/);
- return String(ret);
- }
-
- };
-
-
- // now unsafe functions..
- if (!window->isSafeScript(exec))
- return Undefined();
-
- switch (id) {
- case Window::ScrollBy:
- if(args.size() == 2 && widget)
- widget->scrollBy(args[0].toInt32(exec), args[1].toInt32(exec));
- return Undefined();
- case Window::Scroll:
- case Window::ScrollTo:
- if(args.size() == 2 && widget)
- widget->setContentsPos(args[0].toInt32(exec), args[1].toInt32(exec));
- return Undefined();
- case Window::MoveBy: {
- KHTMLSettings::KJSWindowMovePolicy policy =
- part->settings()->windowMovePolicy(part->url().host());
- if(policy == KHTMLSettings::KJSWindowMoveAllow && args.size() == 2 && widget)
- {
- KParts::BrowserExtension *ext = part->browserExtension();
- if (ext) {
- TQWidget * tl = widget->topLevelWidget();
- TQRect sg = TDEGlobalSettings::desktopGeometry(tl);
-
- TQPoint dest = tl->pos() + TQPoint( args[0].toInt32(exec), args[1].toInt32(exec) );
- // Security check (the spec talks about UniversalBrowserWrite to disable this check...)
- if ( dest.x() >= sg.x() && dest.y() >= sg.x() &&
- dest.x()+tl->width() <= sg.width()+sg.x() &&
- dest.y()+tl->height() <= sg.height()+sg.y() )
- emit ext->moveTopLevelWidget( dest.x(), dest.y() );
- }
- }
- return Undefined();
- }
- case Window::MoveTo: {
- KHTMLSettings::KJSWindowMovePolicy policy =
- part->settings()->windowMovePolicy(part->url().host());
- if(policy == KHTMLSettings::KJSWindowMoveAllow && args.size() == 2 && widget)
- {
- KParts::BrowserExtension *ext = part->browserExtension();
- if (ext) {
- TQWidget * tl = widget->topLevelWidget();
- TQRect sg = TDEGlobalSettings::desktopGeometry(tl);
-
- TQPoint dest( args[0].toInt32(exec)+sg.x(), args[1].toInt32(exec)+sg.y() );
- // Security check (the spec talks about UniversalBrowserWrite to disable this check...)
- if ( dest.x() >= sg.x() && dest.y() >= sg.y() &&
- dest.x()+tl->width() <= sg.width()+sg.x() &&
- dest.y()+tl->height() <= sg.height()+sg.y() )
- emit ext->moveTopLevelWidget( dest.x(), dest.y() );
- }
- }
- return Undefined();
- }
- case Window::ResizeBy: {
- KHTMLSettings::KJSWindowResizePolicy policy =
- part->settings()->windowResizePolicy(part->url().host());
- if(policy == KHTMLSettings::KJSWindowResizeAllow
- && args.size() == 2 && widget)
- {
- TQWidget * tl = widget->topLevelWidget();
- TQRect geom = tl->frameGeometry();
- window->resizeTo( tl,
- geom.width() + args[0].toInt32(exec),
- geom.height() + args[1].toInt32(exec) );
- }
- return Undefined();
- }
- case Window::ResizeTo: {
- KHTMLSettings::KJSWindowResizePolicy policy =
- part->settings()->windowResizePolicy(part->url().host());
- if(policy == KHTMLSettings::KJSWindowResizeAllow
- && args.size() == 2 && widget)
- {
- TQWidget * tl = widget->topLevelWidget();
- window->resizeTo( tl, args[0].toInt32(exec), args[1].toInt32(exec) );
- }
- return Undefined();
- }
- case Window::SetTimeout:
- case Window::SetInterval: {
- bool singleShot;
- int i; // timeout interval
- if (args.size() == 0)
- return Undefined();
- if (args.size() > 1) {
- singleShot = (id == Window::SetTimeout);
- i = args[1].toInt32(exec);
- } else {
- // second parameter is missing. Emulate Mozilla behavior.
- singleShot = true;
- i = 4;
- }
- if (v.isA(StringType)) {
- int r = (const_cast<Window*>(window))->winq->installTimeout(Identifier(s), i, singleShot );
- return Number(r);
- }
- else if (v.isA(ObjectType) && Object::dynamicCast(v).implementsCall()) {
- Object func = Object::dynamicCast(v);
- List funcArgs;
- ListIterator it = args.begin();
- int argno = 0;
- while (it != args.end()) {
- Value arg = it++;
- if (argno++ >= 2)
- funcArgs.append(arg);
- }
- if (args.size() < 2)
- funcArgs.append(Number(i));
- int r = (const_cast<Window*>(window))->winq->installTimeout(func, funcArgs, i, singleShot );
- return Number(r);
- }
- else
- return Undefined();
- }
- case Window::ClearTimeout:
- case Window::ClearInterval:
- (const_cast<Window*>(window))->winq->clearTimeout(v.toInt32(exec));
- return Undefined();
- case Window::Print:
- if ( widget ) {
- // ### TODO emit onbeforeprint event
- widget->print();
- // ### TODO emit onafterprint event
- }
- case Window::CaptureEvents:
- case Window::ReleaseEvents:
- // Do nothing for now. These are NS-specific legacy calls.
- break;
- case Window::AddEventListener: {
- JSEventListener *listener = Window::retrieveActive(exec)->getJSEventListener(args[1]);
- if (listener) {
- DOM::DocumentImpl* docimpl = static_cast<DOM::DocumentImpl *>(part->document().handle());
- docimpl->addWindowEventListener(DOM::EventImpl::typeToId(args[0].toString(exec).string()),listener,args[2].toBoolean(exec));
- }
- return Undefined();
- }
- case Window::RemoveEventListener: {
- JSEventListener *listener = Window::retrieveActive(exec)->getJSEventListener(args[1]);
- if (listener) {
- DOM::DocumentImpl* docimpl = static_cast<DOM::DocumentImpl *>(part->document().handle());
- docimpl->removeWindowEventListener(DOM::EventImpl::typeToId(args[0].toString(exec).string()),listener,args[2].toBoolean(exec));
- }
- return Undefined();
- }
-
- }
- return Undefined();
-}
-
-////////////////////// ScheduledAction ////////////////////////
-
-// KDE 4: Make those parameters const ... &
-ScheduledAction::ScheduledAction(Object _func, List _args, DateTimeMS _nextTime, int _interval, bool _singleShot,
- int _timerId)
-{
- //kdDebug(6070) << "ScheduledAction::ScheduledAction(isFunction) " << this << endl;
- func = static_cast<ObjectImp*>(_func.imp());
- args = _args;
- isFunction = true;
- singleShot = _singleShot;
- nextTime = _nextTime;
- interval = _interval;
- executing = false;
- timerId = _timerId;
-}
-
-// KDE 4: Make it const TQString &
-ScheduledAction::ScheduledAction(TQString _code, DateTimeMS _nextTime, int _interval, bool _singleShot, int _timerId)
-{
- //kdDebug(6070) << "ScheduledAction::ScheduledAction(!isFunction) " << this << endl;
- //func = 0;
- //args = 0;
- func = 0;
- code = _code;
- isFunction = false;
- singleShot = _singleShot;
- nextTime = _nextTime;
- interval = _interval;
- executing = false;
- timerId = _timerId;
-}
-
-bool ScheduledAction::execute(Window *window)
-{
- KHTMLPart *part = ::tqqt_cast<KHTMLPart *>(window->m_frame->m_part);
- if (!part || !part->jScriptEnabled())
- return false;
- ScriptInterpreter *interpreter = static_cast<ScriptInterpreter *>(part->jScript()->interpreter());
-
- interpreter->setProcessingTimerCallback(true);
-
- //kdDebug(6070) << "ScheduledAction::execute " << this << endl;
- if (isFunction) {
- if (func->implementsCall()) {
- // #### check this
- Q_ASSERT( part );
- if ( part )
- {
- KJS::Interpreter *interpreter = part->jScript()->interpreter();
- ExecState *exec = interpreter->globalExec();
- Q_ASSERT( window == interpreter->globalObject().imp() );
- Object obj( window );
- func->call(exec,obj,args); // note that call() creates its own execution state for the func call
- if (exec->hadException())
- exec->clearException();
-
- // Update our document's rendering following the execution of the timeout callback.
- part->document().updateRendering();
- }
- }
- }
- else {
- part->executeScript(DOM::Node(), code);
- }
-
- interpreter->setProcessingTimerCallback(false);
- return true;
-}
-
-void ScheduledAction::mark()
-{
- if (func && !func->marked())
- func->mark();
- args.mark();
-}
-
-ScheduledAction::~ScheduledAction()
-{
- //kdDebug(6070) << "ScheduledAction::~ScheduledAction " << this << endl;
-}
-
-////////////////////// WindowQObject ////////////////////////
-
-WindowQObject::WindowQObject(Window *w)
- : parent(w)
-{
- //kdDebug(6070) << "WindowQObject::WindowQObject " << this << endl;
- if ( !parent->m_frame )
- kdDebug(6070) << "WARNING: null part in " << k_funcinfo << endl;
- else
- connect( parent->m_frame, TQT_SIGNAL( destroyed() ),
- this, TQT_SLOT( parentDestroyed() ) );
- pausedTime = 0;
- lastTimerId = 0;
- currentlyDispatching = false;
-}
-
-WindowQObject::~WindowQObject()
-{
- //kdDebug(6070) << "WindowQObject::~WindowQObject " << this << endl;
- parentDestroyed(); // reuse same code
-}
-
-void WindowQObject::parentDestroyed()
-{
- killTimers();
-
- TQPtrListIterator<ScheduledAction> it(scheduledActions);
- for (; it.current(); ++it)
- delete it.current();
- scheduledActions.clear();
-}
-
-int WindowQObject::installTimeout(const Identifier &handler, int t, bool singleShot)
-{
- int id = ++lastTimerId;
- if (t < 10) t = 10;
- DateTimeMS nextTime = DateTimeMS::now().addMSecs(-pausedTime + t);
-
- ScheduledAction *action = new ScheduledAction(handler.qstring(),nextTime,t,singleShot,id);
- scheduledActions.append(action);
- setNextTimer();
- return id;
-}
-
-int WindowQObject::installTimeout(const Value &func, List args, int t, bool singleShot)
-{
- Object objFunc = Object::dynamicCast( func );
- if (!objFunc.isValid())
- return 0;
- int id = ++lastTimerId;
- if (t < 10) t = 10;
-
- DateTimeMS nextTime = DateTimeMS::now().addMSecs(-pausedTime + t);
- ScheduledAction *action = new ScheduledAction(objFunc,args,nextTime,t,singleShot,id);
- scheduledActions.append(action);
- setNextTimer();
- return id;
-}
-
-void WindowQObject::clearTimeout(int timerId)
-{
- TQPtrListIterator<ScheduledAction> it(scheduledActions);
- for (; it.current(); ++it) {
- ScheduledAction *action = it.current();
- if (action->timerId == timerId) {
- scheduledActions.removeRef(action);
- if (!action->executing)
- delete action;
- return;
- }
- }
-}
-
-bool WindowQObject::hasTimers() const
-{
- return scheduledActions.count();
-}
-
-void WindowQObject::mark()
-{
- TQPtrListIterator<ScheduledAction> it(scheduledActions);
- for (; it.current(); ++it)
- it.current()->mark();
-}
-
-void WindowQObject::timerEvent(TQTimerEvent *)
-{
- killTimers();
-
- if (scheduledActions.isEmpty())
- return;
-
- currentlyDispatching = true;
-
-
- DateTimeMS currentActual = DateTimeMS::now();
- DateTimeMS currentAdjusted = currentActual.addMSecs(-pausedTime);
-
- // Work out which actions are to be executed. We take a separate copy of
- // this list since the main one may be modified during action execution
- TQPtrList<ScheduledAction> toExecute;
- TQPtrListIterator<ScheduledAction> it(scheduledActions);
- for (; it.current(); ++it)
- if (currentAdjusted >= it.current()->nextTime)
- toExecute.append(it.current());
-
- // ### verify that the window can't be closed (and action deleted) during execution
- it = TQPtrListIterator<ScheduledAction>(toExecute);
- for (; it.current(); ++it) {
- ScheduledAction *action = it.current();
- if (!scheduledActions.containsRef(action)) // removed by clearTimeout()
- continue;
-
- action->executing = true; // prevent deletion in clearTimeout()
-
- if (parent->part()) {
- bool ok = action->execute(parent);
- if ( !ok ) // e.g. JS disabled
- scheduledActions.removeRef( action );
- }
-
- if (action->singleShot) {
- scheduledActions.removeRef(action);
- }
-
- action->executing = false;
-
- if (!scheduledActions.containsRef(action))
- delete action;
- else
- action->nextTime = action->nextTime.addMSecs(action->interval);
- }
-
- pausedTime += currentActual.msecsTo(DateTimeMS::now());
-
- currentlyDispatching = false;
-
- // Work out when next event is to occur
- setNextTimer();
-}
-
-DateTimeMS DateTimeMS::addMSecs(int s) const
-{
- DateTimeMS c = *this;
- c.mTime = TQT_TQTIME_OBJECT(mTime.addMSecs(s));
- if (s > 0)
- {
- if (c.mTime < mTime)
- c.mDate = TQT_TQDATE_OBJECT(mDate.addDays(1));
- }
- else
- {
- if (c.mTime > mTime)
- c.mDate = TQT_TQDATE_OBJECT(mDate.addDays(-1));
- }
- return c;
-}
-
-bool DateTimeMS::operator >(const DateTimeMS &other) const
-{
- if (mDate > other.mDate)
- return true;
-
- if (mDate < other.mDate)
- return false;
-
- return mTime > other.mTime;
-}
-
-bool DateTimeMS::operator >=(const DateTimeMS &other) const
-{
- if (mDate > other.mDate)
- return true;
-
- if (mDate < other.mDate)
- return false;
-
- return mTime >= other.mTime;
-}
-
-int DateTimeMS::msecsTo(const DateTimeMS &other) const
-{
- int d = mDate.daysTo(other.mDate);
- int ms = mTime.msecsTo(other.mTime);
- return d*24*60*60*1000 + ms;
-}
-
-
-DateTimeMS DateTimeMS::now()
-{
- DateTimeMS t;
- TQTime before = TQTime::currentTime();
- t.mDate = TQDate::currentDate();
- t.mTime = TQTime::currentTime();
- if (t.mTime < before)
- t.mDate = TQDate::currentDate(); // prevent race condition in hacky way :)
- return t;
-}
-
-void WindowQObject::setNextTimer()
-{
- if (currentlyDispatching)
- return; // Will schedule at the end
-
- if (scheduledActions.isEmpty())
- return;
-
- TQPtrListIterator<ScheduledAction> it(scheduledActions);
- DateTimeMS nextTime = it.current()->nextTime;
- for (++it; it.current(); ++it)
- if (nextTime > it.current()->nextTime)
- nextTime = it.current()->nextTime;
-
- DateTimeMS nextTimeActual = nextTime.addMSecs(pausedTime);
- int nextInterval = DateTimeMS::now().msecsTo(nextTimeActual);
- if (nextInterval < 0)
- nextInterval = 0;
- startTimer(nextInterval);
-}
-
-void WindowQObject::timeoutClose()
-{
- parent->closeNow();
-}
-
-Value FrameArray::get(ExecState *exec, const Identifier &p) const
-{
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "FrameArray::get " << p.qstring() << " part=" << (void*)part << endl;
-#endif
- if (part.isNull())
- return Undefined();
-
- TQPtrList<KParts::ReadOnlyPart> frames = part->frames();
- unsigned int len = frames.count();
- if (p == lengthPropertyName)
- return Number(len);
- else if (p== "location") // non-standard property, but works in NS and IE
- {
- Object obj = Object::dynamicCast( Window::retrieve( part ) );
- if ( obj.isValid() )
- return obj.get( exec, "location" );
- return Undefined();
- }
-
- // check for the name or number
- KParts::ReadOnlyPart *frame = part->findFramePart(p.qstring());
- if (!frame) {
- bool ok;
- unsigned int i = p.toArrayIndex(&ok);
- if (ok && i < len)
- frame = frames.at(i);
- }
-
- // we are potentially fetching a reference to a another Window object here.
- // i.e. we may be accessing objects from another interpreter instance.
- // Therefore we have to be a bit careful with memory management.
- if (frame) {
- return Window::retrieve(frame);
- }
-
- // Fun IE quirk: name lookup in there is actually done by document.all
- // hence, it can find non-frame things (and even let them hide frame ones!)
- // We don't quite do that, but do this as a fallback.
- DOM::DocumentImpl* doc = static_cast<DOM::DocumentImpl*>(part->document().handle());
- if (doc) {
- DOM::HTMLCollectionImpl docuAll(doc, DOM::HTMLCollectionImpl::DOC_ALL);
- DOM::NodeImpl* node = docuAll.namedItem(p.string());
- if (node) {
- if (node->id() == ID_FRAME || node->id() == ID_IFRAME) {
- //Return the Window object.
- KHTMLPart* part = static_cast<DOM::HTMLFrameElementImpl*>(node)->contentPart();
- if (part)
- return Value(Window::retrieveWindow(part));
- else
- return Undefined();
- } else {
- //Just a regular node..
- return getDOMNode(exec, node);
- }
- }
- } else {
- kdWarning(6070) << "Missing own document in FrameArray::get()" << endl;
- }
-
- return ObjectImp::get(exec, p);
-}
-
-Value FrameArray::call(ExecState *exec, Object &/*thisObj*/, const List &args)
-{
- //IE supports a subset of the get functionality as call...
- //... basically, when the return is a window, it supports that, otherwise it
- //errors out. We do a cheap-and-easy emulation of that, and just do the same
- //thing as get does.
- if (args.size() == 1)
- return get(exec, Identifier(args[0].toString(exec)));
-
- return Undefined();
-}
-
-
-////////////////////// Location Object ////////////////////////
-
-const ClassInfo Location::info = { "Location", 0, &LocationTable, 0 };
-/*
-@begin LocationTable 11
- hash Location::Hash DontDelete
- host Location::Host DontDelete
- hostname Location::Hostname DontDelete
- href Location::Href DontDelete
- pathname Location::Pathname DontDelete
- port Location::Port DontDelete
- protocol Location::Protocol DontDelete
- search Location::Search DontDelete
- [[==]] Location::EqualEqual DontDelete|ReadOnly
- assign Location::Assign DontDelete|Function 1
- toString Location::ToString DontDelete|Function 0
- replace Location::Replace DontDelete|Function 1
- reload Location::Reload DontDelete|Function 0
-@end
-*/
-IMPLEMENT_PROTOFUNC_DOM(LocationFunc)
-Location::Location(khtml::ChildFrame *f) : m_frame(f)
-{
- //kdDebug(6070) << "Location::Location " << this << " m_part=" << (void*)m_part << endl;
-}
-
-Location::~Location()
-{
- //kdDebug(6070) << "Location::~Location " << this << " m_part=" << (void*)m_part << endl;
-}
-
-KParts::ReadOnlyPart *Location::part() const {
- return m_frame ? static_cast<KParts::ReadOnlyPart *>(m_frame->m_part) : 0L;
-}
-
-Value Location::get(ExecState *exec, const Identifier &p) const
-{
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Location::get " << p.qstring() << " m_part=" << (void*)m_frame->m_part << endl;
-#endif
-
- if (m_frame.isNull() || m_frame->m_part.isNull())
- return Undefined();
-
- const HashEntry *entry = Lookup::findEntry(&LocationTable, p);
-
- // properties that work on all Location objects
- if ( entry && entry->value == Replace )
- return lookupOrCreateFunction<LocationFunc>(exec,p,this,entry->value,entry->params,entry->attr);
-
- // XSS check
- const Window* window = Window::retrieveWindow( m_frame->m_part );
- if ( !window || !window->isSafeScript(exec) )
- return Undefined();
-
- KURL url = m_frame->m_part->url();
- if (entry)
- switch (entry->value) {
- case Hash:
- return String( url.ref().isNull() ? TQString("") : "#" + url.ref() );
- case Host: {
- UString str = url.host();
- if (url.port())
- str += ":" + TQString::number((int)url.port());
- return String(str);
- // Note: this is the IE spec. The NS spec swaps the two, it says
- // "The hostname property is the concatenation of the host and port properties, separated by a colon."
- // Bleh.
- }
- case Hostname:
- return String( url.host() );
- case Href:
- if (url.isEmpty())
- return String("about:blank");
- else if (!url.hasPath())
- return String( url.prettyURL()+"/" );
- else
- return String( url.prettyURL() );
- case Pathname:
- if (url.isEmpty())
- return String("");
- return String( url.path().isEmpty() ? TQString("/") : url.path() );
- case Port:
- return String( url.port() ? TQString::number((int)url.port()) : TQString::fromLatin1("") );
- case Protocol:
- return String( url.protocol()+":" );
- case Search:
- return String( url.query() );
- case EqualEqual: // [[==]]
- return String(toString(exec));
- case ToString:
- return lookupOrCreateFunction<LocationFunc>(exec,p,this,entry->value,entry->params,entry->attr);
- }
- // Look for overrides
- ValueImp * val = ObjectImp::getDirect(p);
- if (val)
- return Value(val);
- if (entry && (entry->attr & Function))
- return lookupOrCreateFunction<LocationFunc>(exec,p,this,entry->value,entry->params,entry->attr);
-
- return Undefined();
-}
-
-void Location::put(ExecState *exec, const Identifier &p, const Value &v, int attr)
-{
-#ifdef KJS_VERBOSE
- kdDebug(6070) << "Location::put " << p.qstring() << " m_part=" << (void*)m_frame->m_part << endl;
-#endif
- if (m_frame.isNull() || m_frame->m_part.isNull())
- return;
-
- const Window* window = Window::retrieveWindow( m_frame->m_part );
- if ( !window )
- return;
-
- KURL url = m_frame->m_part->url();
-
- const HashEntry *entry = Lookup::findEntry(&LocationTable, p);
-
- if (entry) {
-
- // XSS check. Only new hrefs can be set from other sites
- if (entry->value != Href && !window->isSafeScript(exec))
- return;
-
- TQString str = v.toString(exec).qstring();
- switch (entry->value) {
- case Href: {
- KHTMLPart* p =::tqqt_cast<KHTMLPart*>(Window::retrieveActive(exec)->part());
- if ( p )
- url = p->htmlDocument().completeURL( str ).string();
- else
- url = str;
- break;
- }
- case Hash:
- // when the hash is already the same ignore it
- if (str == url.ref()) return;
- url.setRef(str);
- break;
- case Host: {
- TQString host = str.left(str.find(":"));
- TQString port = str.mid(str.find(":")+1);
- url.setHost(host);
- url.setPort(port.toUInt());
- break;
- }
- case Hostname:
- url.setHost(str);
- break;
- case Pathname:
- url.setPath(str);
- break;
- case Port:
- url.setPort(str.toUInt());
- break;
- case Protocol:
- url.setProtocol(str);
- break;
- case Search:
- url.setQuery(str);
- break;
- }
- } else {
- ObjectImp::put(exec, p, v, attr);
- return;
- }
-
- Window::retrieveWindow(m_frame->m_part)->goURL(exec, url.url(), false /* don't lock history*/ );
-}
-
-Value Location::toPrimitive(ExecState *exec, Type) const
-{
- if (m_frame) {
- Window* window = Window::retrieveWindow( m_frame->m_part );
- if ( window && window->isSafeScript(exec) )
- return String(toString(exec));
- }
- return Undefined();
-}
-
-UString Location::toString(ExecState *exec) const
-{
- if (m_frame) {
- Window* window = Window::retrieveWindow( m_frame->m_part );
- if ( window && window->isSafeScript(exec) )
- {
- KURL url = m_frame->m_part->url();
- if (url.isEmpty())
- return "about:blank";
- else if (!url.hasPath())
- return url.prettyURL()+"/";
- else
- return url.prettyURL();
- }
- }
- return "";
-}
-
-Value LocationFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
-{
- KJS_CHECK_THIS( Location, thisObj );
- Location *location = static_cast<Location *>(thisObj.imp());
- KParts::ReadOnlyPart *part = location->part();
-
- if (!part) return Undefined();
-
- Window* window = Window::retrieveWindow(part);
-
- if ( !window->isSafeScript(exec) && id != Location::Replace)
- return Undefined();
-
- switch (id) {
- case Location::Assign:
- case Location::Replace:
- Window::retrieveWindow(part)->goURL(exec, args[0].toString(exec).qstring(),
- id == Location::Replace);
- break;
- case Location::Reload: {
- KHTMLPart *khtmlpart = ::tqqt_cast<KHTMLPart *>(part);
- if (khtmlpart)
- khtmlpart->scheduleRedirection(-1, part->url().url(), true/*lock history*/);
- else
- part->openURL(part->url());
- break;
- }
- case Location::ToString:
- return String(location->toString(exec));
- }
- return Undefined();
-}
-
-////////////////////// External Object ////////////////////////
-
-const ClassInfo External::info = { "External", 0, 0, 0 };
-/*
-@begin ExternalTable 4
- addFavorite External::AddFavorite DontDelete|Function 1
-@end
-*/
-IMPLEMENT_PROTOFUNC_DOM(ExternalFunc)
-
-Value External::get(ExecState *exec, const Identifier &p) const
-{
- return lookupGetFunction<ExternalFunc,ObjectImp>(exec,p,&ExternalTable,this);
-}
-
-Value ExternalFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
-{
- KJS_CHECK_THIS( External, thisObj );
- External *external = static_cast<External *>(thisObj.imp());
-
- KHTMLPart *part = external->part;
- if (!part)
- return Undefined();
-
- KHTMLView *widget = part->view();
-
- switch (id) {
- case External::AddFavorite:
- {
-#ifndef KONQ_EMBEDDED
- if (!widget->dialogsAllowed())
- return Undefined();
- part->xmlDocImpl()->updateRendering();
- if (args.size() != 1 && args.size() != 2)
- return Undefined();
-
- TQString url = args[0].toString(exec).qstring();
- TQString title;
- if (args.size() == 2)
- title = args[1].toString(exec).qstring();
-
- // AK - don't do anything yet, for the moment i
- // just wanted the base js handling code in cvs
- return Undefined();
-
- TQString question;
- if ( title.isEmpty() )
- question = i18n("Do you want a bookmark pointing to the location \"%1\" to be added to your collection?")
- .arg(url);
- else
- question = i18n("Do you want a bookmark pointing to the location \"%1\" titled \"%2\" to be added to your collection?")
- .arg(url).arg(title);
-
- emit part->browserExtension()->requestFocus(part);
-
- TQString caption;
- if (!part->url().host().isEmpty())
- caption = part->url().host() + " - ";
- caption += i18n("JavaScript Attempted Bookmark Insert");
-
- if (KMessageBox::warningYesNo(
- widget, question, caption,
- i18n("Insert"), i18n("Disallow")) == KMessageBox::Yes)
- {
- KBookmarkManager *mgr = KBookmarkManager::userBookmarksManager();
- mgr->addBookmarkDialog(url,title);
- }
-#else
- return Undefined();
-#endif
- break;
- }
- default:
- return Undefined();
- }
-
- return Undefined();
-}
-
-////////////////////// History Object ////////////////////////
-
-const ClassInfo History::info = { "History", 0, 0, 0 };
-/*
-@begin HistoryTable 4
- length History::Length DontDelete|ReadOnly
- back History::Back DontDelete|Function 0
- forward History::Forward DontDelete|Function 0
- go History::Go DontDelete|Function 1
-@end
-*/
-IMPLEMENT_PROTOFUNC_DOM(HistoryFunc)
-
-Value History::get(ExecState *exec, const Identifier &p) const
-{
- return lookupGet<HistoryFunc,History,ObjectImp>(exec,p,&HistoryTable,this);
-}
-
-Value History::getValueProperty(ExecState *, int token) const
-{
- // if previous or next is implemented, make sure its not a major
- // privacy leak (see i.e. http://security.greymagic.com/adv/gm005-op/)
- switch (token) {
- case Length:
- {
- if ( !part )
- return Number( 0 );
-
- KParts::BrowserExtension *ext = part->browserExtension();
- if ( !ext )
- return Number( 0 );
-
- KParts::BrowserInterface *iface = ext->browserInterface();
- if ( !iface )
- return Number( 0 );
-
- TQVariant length = iface->property( "historyLength" );
-
- if ( length.type() != TQVariant::UInt )
- return Number( 0 );
-
- return Number( length.toUInt() );
- }
- default:
- kdDebug(6070) << "WARNING: Unhandled token in History::getValueProperty : " << token << endl;
- return Undefined();
- }
-}
-
-Value HistoryFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
-{
- KJS_CHECK_THIS( History, thisObj );
- History *history = static_cast<History *>(thisObj.imp());
-
- Value v = args[0];
- Number n;
- if(v.isValid())
- n = v.toInteger(exec);
-
- int steps;
- switch (id) {
- case History::Back:
- steps = -1;
- break;
- case History::Forward:
- steps = 1;
- break;
- case History::Go:
- steps = n.intValue();
- break;
- default:
- return Undefined();
- }
-
- // Special case for go(0) from a frame -> reload only the frame
- // go(i!=0) from a frame navigates into the history of the frame only,
- // in both IE and NS (but not in Mozilla).... we can't easily do that
- // in Konqueror...
- if (!steps) // add && history->part->parentPart() to get only frames, but doesn't matter
- {
- history->part->openURL( history->part->url() ); /// ## need args.reload=true?
- } else
- {
- // Delay it.
- // Testcase: history.back(); alert("hello");
- Window* window = Window::retrieveWindow( history->part );
- window->delayedGoHistory( steps );
- }
- return Undefined();
-}
-
-/////////////////////////////////////////////////////////////////////////////
-
-#ifdef Q_WS_QWS
-
-const ClassInfo Konqueror::info = { "Konqueror", 0, 0, 0 };
-
-bool Konqueror::hasProperty(ExecState *exec, const Identifier &p) const
-{
- if ( p.qstring().startsWith( "goHistory" ) ) return false;
-
- return true;
-}
-
-Value Konqueror::get(ExecState *exec, const Identifier &p) const
-{
- if ( p == "goHistory" || part->url().protocol() != "http" || part->url().host() != "localhost" )
- return Undefined();
-
- KParts::BrowserExtension *ext = part->browserExtension();
- if ( ext ) {
- KParts::BrowserInterface *iface = ext->browserInterface();
- if ( iface ) {
- TQVariant prop = iface->property( p.qstring().latin1() );
-
- if ( prop.isValid() ) {
- switch( prop.type() ) {
- case TQVariant::Int:
- return Number( prop.toInt() );
- case TQVariant::String:
- return String( prop.toString() );
- default:
- break;
- }
- }
- }
- }
-
- return Value( new KonquerorFunc(exec, this, p.qstring().latin1() ) );
-}
-
-Value KonquerorFunc::tryCall(ExecState *exec, Object &, const List &args)
-{
- KParts::BrowserExtension *ext = konqueror->part->browserExtension();
-
- if (!ext)
- return Undefined();
-
- KParts::BrowserInterface *iface = ext->browserInterface();
-
- if ( !iface )
- return Undefined();
-
- TQCString n = m_name.data();
- n += "()";
- iface->callMethod( n.data(), TQVariant() );
-
- return Undefined();
-}
-
-UString Konqueror::toString(ExecState *) const
-{
- return UString("[object Konqueror]");
-}
-
-#endif
-/////////////////////////////////////////////////////////////////////////////
-} //namespace KJS
-
-#include "kjs_window.moc"