dribbling to file "ole\\samples\\tech_corner\\msxdefs.cl"
nil
cl-user(10): (pprint (macroexpand
'(ole:def-ole-linkage #:msx :application "InternetExplorer")))
Warning: ;; Reusing prior version of package msx
(progn (defpackage #:msx (:use)
(:export msx:decode-OLECMDF msx:Count
msx:NotifySearchSettingsChanged
msx:OLECMDID_DONTDOWNLOADCSS
msx:-ClientToHostWindow
msx:OLECMDID_SHOWPAGEACTIONMENU
msx:OLECMDID_ONUNLOAD msx:StatusBar msx:StatusText
msx:-NewWindow msx:ToolBar msx:Refresh2
msx:FindComputer msx:OLECMDID_SHOWFIND msx:Root
msx:AddNextMenuItem msx:-PropertyChange
msx:SWFO_INCLUDEPENDING msx:Import msx:-OnQuit
msx:-WindowActivate msx:advanceError msx:Navigate
msx:ShellSearchAssistantOC msx:ShowFindPrinter
msx:-WindowSetWidth msx:NavigateToDefaultSearch
msx:OLECMDID_PREREFRESH msx:SWC_CALLBACK
msx:ShowBrowserUI msx:-WindowSetResizable
msx:Searches msx:secureLockIconUnsecure
msx:-OnVisible msx:NETDetectNextNavigate
msx:READYSTATE_UNINITIALIZED msx:SelectedItems
msx:-FrameBeforeNavigate msx:SetRoot
msx:retreatError msx:OLECMDF_DEFHIDEONCTXTMENU
msx:decode-SecureLockIconConstants msx:HWND
msx:TopLevelContainer msx:OLECMDID_PASTESPECIAL
msx:IsSubscribed msx:ShellBrowserWindow
msx:OLECMDEXECOPT_SHOWHELP msx:OLECMDID_OPEN
msx:getErrorCode msx:SetDefaultSearchUrl
msx:-WindowSetLeft msx:OLECMDID_SETPRINTTEMPLATE
msx:QueryStatusWB msx:OLECMDID_FIND
msx:OLECMDID_PRINTPREVIEW2 msx:PutProperty msx:Type
msx:-FrameNewWindow msx:CSC_UPDATECOMMANDS
msx:ShellShellNameSpace msx:SWC_3RDPARTY msx:Item
msx:READYSTATE_LOADED msx:OLECMDID_UPDATEPAGESTATUS
msx:-OnNextMenuSelect msx:SWC_EXPLORER
msx:-DocumentComplete msx:READYSTATE_COMPLETE
msx:-ProgressChange msx:-FavoritesSelectionChange
msx:Version msx:MoveSelectionUp msx:SetViewType
msx:-PrivacyImpactedStateChange msx:getErrorLine
msx:SearchCompanionAvailable msx:ResetSort
msx:CSC_NAVIGATEBACK msx:ShowBrowserBar
msx:OLECMDEXECOPT_DONTPROMPTUSER msx:SWC_BROWSER
msx:decode-OLECMDID msx:-WindowResize
msx:ProcessAttachDetach msx:READYSTATE_INTERACTIVE
msx:GoBack msx:OLECMDID_SHOWPAGESETUP
msx:decode-OLECMDEXECOPT
msx:OLECMDID_PAGEACTIONBLOCKED msx:OLECMDID_CUT
msx:-WindowClosing msx:AutoCompleteAttach
msx:-NewWindow2 msx:Height msx:OLECMDID_REDO
msx:-WindowRevoked msx:-WindowSetHeight
msx:-OnStatusBar msx:AutoCompleteSaveForm
msx:EncodeString msx:ClientToWindow
msx:-NavigateComplete msx:AddFavorite msx:GoSearch
msx:FindOnWeb msx:OLECMDID_SETTITLE msx:Document
msx:OLECMDID_PROPERTIES msx:-DownloadComplete
msx:MenuBar msx:CreateSubscriptionForSelection
msx:OLECMDID_SELECTALL msx:ShellUIHelper
msx:OLECMDID_SETDOWNLOADSTATE msx:OLECMDID_STOP
msx:Stop msx:Revoke msx:Visible
msx:decode-ShellWindowFindWindowOptions msx:Columns
msx:OnNavigate msx:WebBrowser
msx:GetSearchAssistantURL msx:ASSetting
msx:-SetSecureLockIcon msx:RefreshOfflineDesktop
msx:AddDesktopComponent msx:OLECMDID_SAVE
msx:RegisterAsBrowser msx:AutoScan
msx:OLECMDF_LATCHED msx:Container
msx:secureLockIconMixed msx:OnActivated
msx:OLECMDID_ALLOWUILESSSAVEAS msx:RegisterPending
msx:secureLockIconSecure128Bit
msx:secureLockIconSecureUnknownBits msx:UnselectAll
msx:OnCreated msx:-Quit msx:OLECMDID_SHOWPRINT
msx:setDetailsPaneOpen msx:ShellFeaturesEnabled
msx:SearchAssistantOC msx:OLECMDID_SETPROGRESSMAX
msx:ASProvider msx:getDetailsPaneOpen
msx:OLECMDF_NINCHED msx:OLECMDID_HIDETOOLBARS
msx:OLECMDID_HTTPEQUIV msx:OLECMDID_SHOWMESSAGE
msx:getErrorMsg msx:-FileDownload
msx:RegisterAsDropTarget msx:CScriptErrorList
msx:OLECMDID_ENABLE_INTERACTION msx:Depth msx:Busy
msx:OLECMDID_STOPDOWNLOAD msx:_NewEnum msx:Parent
msx:Navigate2 msx:-WindowMove msx:Width
msx:ResetNextMenu msx:TVFlags
msx:SubscriptionsEnabled msx:OLECMDID_UNDO
msx:FindWindowSW msx:IsRestricted msx:ReadyState
msx:WebBrowser_V1 msx:GetProperty
msx:canRetreatError msx:FullName msx:Resizable
msx:-OnMenuBar msx:OLECMDID_SAVEAS msx:InWebFolder
msx:OLECMDID_FOCUSVIEWCONTROLSQUERY msx:FindPeople
msx:OLECMDID_ZOOM msx:FullScreen msx:Flags
msx:NewFolder msx:EventHandled
msx:OLECMDID_PAGEACTIONUIQUERY
msx:InvokeContextMenuCommand msx:-OnFullScreen
msx:NavigateAndFind msx:decode-tagREADYSTATE
msx:Name msx:OLECMDID_SETPROGRESSTEXT
msx:OLECMDID_GETZOOMRANGE msx:setPerErrorDisplay
msx:OLECMDF_INVISIBLE
msx:OLECMDID_ONTOOLBARACTIVATED
msx:getPerErrorDisplay msx:-StatusTextChange
msx:OLECMDID_CLEARSELECTION msx:Expand
msx:OLECMDID_REFRESH msx:Mode
msx:-FrameNavigateComplete msx:Synchronize
msx:secureLockIconSecureFortezza msx:Path
msx:-WindowSetTop msx:LocationName
msx:OLECMDID_PRINT2 msx:-OnTheaterMode
msx:UseSearchCompanion msx:GoForward
msx:OLECMDID_PAGESETUP msx:-Initialized msx:Export
msx:getErrorUrl msx:SWFO_NEEDDISPATCH
msx:OLECMDEXECOPT_PROMPTUSER msx:-SelectionChange
msx:OLECMDID_NEW msx:-NavigateError
msx:CSC_NAVIGATEFORWARD msx:OLECMDID_COPY
msx:OLECMDID_HTTPEQUIV_DONE msx:OLECMDID_DELETE
msx:MoveSelectionTo msx:OLECMDID_PRINTPREVIEW
msx:getErrorChar msx:SearchAssistantDefault
msx:READYSTATE_LOADING msx:Silent
msx:OLECMDID_PRINT msx:canAdvanceError
msx:OLECMDID_PASTE msx:OLECMDF_ENABLED
msx:-BeforeNavigate2 msx:-WindowRegistered
msx:ShellNameSpace msx:CountViewTypes
msx:TheaterMode msx:AddChannel
msx:OLECMDID_GETPRINTTEMPLATE msx:-DoubleClick
msx:FindPrinter msx:OLECMDID_FOCUSVIEWCONTROLS
msx:LocationURL msx:Register
msx:-PrintTemplateTeardown msx:-TitleChange
msx:getAlwaysShowLockState msx:SWFO_COOKIEPASSED
msx:-OnToolBar msx:InternetExplorer
msx:OLECMDID_SAVECOPYAS msx:-OnNewSearch
msx:OLECMDID_SPELL
msx:decode-CommandStateChangeConstants
msx:-UpdatePageStatus msx:ResetFirstBootMode
msx:OLECMDID_UPDATECOMMANDS msx:SelectedItem
msx:-NavigateComplete2 msx:Quit msx:Application
msx:FindFilesOrFolders msx:OLECMDID_SHOWSCRIPTERROR
msx:-DownloadBegin msx:-CommandStateChange
msx:OLECMDID_CLOSE msx:Refresh
msx:OLECMDF_SUPPORTED msx:ShellWindows
msx:secureLockIconSecure56Bit
msx:OLECMDEXECOPT_DODEFAULT msx:GoHome
msx:secureLockIconSecure40Bit msx:ExecWB
msx:MoveSelectionDown msx:PutFindText
msx:ResetSafeMode msx:AddressBar
msx:ImportExportFavorites msx:-BeforeNavigate
msx:OLECMDID_SETPROGRESSPOS msx:EnumOptions
msx:decode-ShellWindowTypeConstants msx:Left
msx:DeleteSubscriptionForSelection msx:Offline
msx:OLECMDID_PROPERTYBAG2 msx:-NewWindow3 msx:Top
msx:-PrintTemplateInstantiation))
(eval-when (compile load eval)
(ole:require-modules :ocx-container :control-client))
(ole:require-client-interfaces ole:IDispatch
ole:IConnectionPoint ole:IConnectionPointContainer)
(ole:require-server-interfaces ole:IDispatch)
(ole:def-ole-interface ole.control:_SearchAssistantEvents
(:base ole:IDispatch)
(:iid "{1611fdda-445b-11d2-85de-00c04fa35c89}"))
(ole:def-ole-interface ole.control:ISearchAssistantOC
(:base ole:IDispatch)
(:iid "{72423e8f-8011-11d2-be79-00a0c9a83da1}"))
(ole:def-ole-interface ole.control:ISearchAssistantOC2
(:base ole.control:ISearchAssistantOC)
(:iid "{72423e8f-8011-11d2-be79-00a0c9a83da2}"))
(ole:def-ole-interface ole.control:ISearchAssistantOC3
(:base ole.control:ISearchAssistantOC2)
(:iid "{72423e8f-8011-11d2-be79-00a0c9a83da3}"))
(ole:def-ole-interface ole.control:ISearches
(:base ole:IDispatch)
(:iid "{47c922a2-3dd5-11d2-bf8b-00c04fb93661}"))
(ole:def-ole-interface ole.control:ISearch (:base ole:IDispatch)
(:iid "{ba9239a4-3dd5-11d2-bf8b-00c04fb93661}"))
(ole:def-ole-interface ole.control:IScriptErrorList
(:base ole:IDispatch)
(:iid "{f3470f24-15fd-11d2-bb2e-00805ff7efca}"))
(ole:def-ole-interface ole.control:IShellFavoritesNameSpace
(:base ole:IDispatch)
(:iid "{55136804-b2de-11d1-b9f2-00a0c98bc547}"))
(ole:def-ole-interface ole.control:IShellNameSpace
(:base ole.control:IShellFavoritesNameSpace)
(:iid "{e572d3c9-37be-4ae2-825d-d521763e3108}"))
(ole:def-ole-interface ole.control:DShellNameSpaceEvents
(:base ole:IDispatch)
(:iid "{55136806-b2de-11d1-b9f2-00a0c98bc547}"))
(ole:def-ole-interface ole.control:IShellUIHelper
(:base ole:IDispatch)
(:iid "{729fe2f8-1ea8-11d1-8f85-00c04fc2fbe1}"))
(ole:def-ole-interface ole.control:IShellWindows
(:base ole:IDispatch)
(:iid "{85cb6900-4d95-11cf-960c-0080c7f4ee85}"))
(ole:def-ole-interface ole.control:DShellWindowsEvents
(:base ole:IDispatch)
(:iid "{fe4106e0-399a-11d0-a48c-00a0c90a8f39}"))
(ole:def-ole-interface ole.control:DWebBrowserEvents2
(:base ole:IDispatch)
(:iid "{34a715a0-6587-11d0-924a-0020afc7ac4d}"))
(ole:def-ole-interface ole.control:IWebBrowser
(:base ole:IDispatch)
(:iid "{eab22ac1-30c1-11cf-a7eb-0000c05bae0b}"))
(ole:def-ole-interface ole.control:IWebBrowserApp
(:base ole.control:IWebBrowser)
(:iid "{0002df05-0000-0000-c000-000000000046}"))
(ole:def-ole-interface ole.control:IWebBrowser2
(:base ole.control:IWebBrowserApp)
(:iid "{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"))
(ole:def-ole-interface ole.control:DWebBrowserEvents
(:base ole:IDispatch)
(:iid "{eab22ac2-30c1-11cf-a7eb-0000c05bae0b}"))
(defun msx:decode-CommandStateChangeConstants (ole::v)
(case ole::v
(2 'msx:CSC_NAVIGATEBACK)
(1 'msx:CSC_NAVIGATEFORWARD)
(-1 'msx:CSC_UPDATECOMMANDS)
(t ole::v)))
(defconstant msx:CSC_NAVIGATEBACK 2)
(defconstant msx:CSC_NAVIGATEFORWARD 1)
(defconstant msx:CSC_UPDATECOMMANDS -1)
(defun msx:decode-OLECMDID (ole::v)
(case ole::v
(59 'msx:OLECMDID_SHOWPAGEACTIONMENU)
(58 'msx:OLECMDID_FOCUSVIEWCONTROLSQUERY)
(57 'msx:OLECMDID_FOCUSVIEWCONTROLS)
(56 'msx:OLECMDID_PAGEACTIONUIQUERY)
(55 'msx:OLECMDID_PAGEACTIONBLOCKED)
(52 'msx:OLECMDID_GETPRINTTEMPLATE)
(51 'msx:OLECMDID_SETPRINTTEMPLATE)
(50 'msx:OLECMDID_PRINTPREVIEW2)
(49 'msx:OLECMDID_PRINT2)
(48 'msx:OLECMDID_UPDATEPAGESTATUS)
(47 'msx:OLECMDID_DONTDOWNLOADCSS)
(46 'msx:OLECMDID_ALLOWUILESSSAVEAS)
(45 'msx:OLECMDID_CLOSE)
(44 'msx:OLECMDID_SHOWPRINT)
(43 'msx:OLECMDID_SHOWPAGESETUP)
(42 'msx:OLECMDID_SHOWFIND)
(41 'msx:OLECMDID_SHOWMESSAGE)
(40 'msx:OLECMDID_SHOWSCRIPTERROR)
(39 'msx:OLECMDID_PREREFRESH)
(38 'msx:OLECMDID_PROPERTYBAG2)
(37 'msx:OLECMDID_ONUNLOAD)
(36 'msx:OLECMDID_ENABLE_INTERACTION)
(35 'msx:OLECMDID_HTTPEQUIV_DONE)
(34 'msx:OLECMDID_HTTPEQUIV)
(33 'msx:OLECMDID_DELETE)
(32 'msx:OLECMDID_FIND)
(31 'msx:OLECMDID_ONTOOLBARACTIVATED)
(30 'msx:OLECMDID_STOPDOWNLOAD)
(29 'msx:OLECMDID_SETDOWNLOADSTATE)
(28 'msx:OLECMDID_SETTITLE)
(27 'msx:OLECMDID_SETPROGRESSTEXT)
(26 'msx:OLECMDID_SETPROGRESSPOS)
(25 'msx:OLECMDID_SETPROGRESSMAX)
(24 'msx:OLECMDID_HIDETOOLBARS)
(23 'msx:OLECMDID_STOP)
(22 'msx:OLECMDID_REFRESH)
(21 'msx:OLECMDID_UPDATECOMMANDS)
(20 'msx:OLECMDID_GETZOOMRANGE)
(19 'msx:OLECMDID_ZOOM)
(18 'msx:OLECMDID_CLEARSELECTION)
(17 'msx:OLECMDID_SELECTALL)
(16 'msx:OLECMDID_REDO)
(15 'msx:OLECMDID_UNDO)
(14 'msx:OLECMDID_PASTESPECIAL)
(13 'msx:OLECMDID_PASTE)
(12 'msx:OLECMDID_COPY)
(11 'msx:OLECMDID_CUT)
(10 'msx:OLECMDID_PROPERTIES)
(9 'msx:OLECMDID_SPELL)
(8 'msx:OLECMDID_PAGESETUP)
(7 'msx:OLECMDID_PRINTPREVIEW)
(6 'msx:OLECMDID_PRINT)
(5 'msx:OLECMDID_SAVECOPYAS)
(4 'msx:OLECMDID_SAVEAS)
(3 'msx:OLECMDID_SAVE)
(2 'msx:OLECMDID_NEW)
(1 'msx:OLECMDID_OPEN)
(t ole::v)))
(defconstant msx:OLECMDID_SHOWPAGEACTIONMENU 59)
(defconstant msx:OLECMDID_FOCUSVIEWCONTROLSQUERY 58)
(defconstant msx:OLECMDID_FOCUSVIEWCONTROLS 57)
(defconstant msx:OLECMDID_PAGEACTIONUIQUERY 56)
(defconstant msx:OLECMDID_PAGEACTIONBLOCKED 55)
(defconstant msx:OLECMDID_GETPRINTTEMPLATE 52)
(defconstant msx:OLECMDID_SETPRINTTEMPLATE 51)
(defconstant msx:OLECMDID_PRINTPREVIEW2 50)
(defconstant msx:OLECMDID_PRINT2 49)
(defconstant msx:OLECMDID_UPDATEPAGESTATUS 48)
(defconstant msx:OLECMDID_DONTDOWNLOADCSS 47)
(defconstant msx:OLECMDID_ALLOWUILESSSAVEAS 46)
(defconstant msx:OLECMDID_CLOSE 45)
(defconstant msx:OLECMDID_SHOWPRINT 44)
(defconstant msx:OLECMDID_SHOWPAGESETUP 43)
(defconstant msx:OLECMDID_SHOWFIND 42)
(defconstant msx:OLECMDID_SHOWMESSAGE 41)
(defconstant msx:OLECMDID_SHOWSCRIPTERROR 40)
(defconstant msx:OLECMDID_PREREFRESH 39)
(defconstant msx:OLECMDID_PROPERTYBAG2 38)
(defconstant msx:OLECMDID_ONUNLOAD 37)
(defconstant msx:OLECMDID_ENABLE_INTERACTION 36)
(defconstant msx:OLECMDID_HTTPEQUIV_DONE 35)
(defconstant msx:OLECMDID_HTTPEQUIV 34)
(defconstant msx:OLECMDID_DELETE 33)
(defconstant msx:OLECMDID_FIND 32)
(defconstant msx:OLECMDID_ONTOOLBARACTIVATED 31)
(defconstant msx:OLECMDID_STOPDOWNLOAD 30)
(defconstant msx:OLECMDID_SETDOWNLOADSTATE 29)
(defconstant msx:OLECMDID_SETTITLE 28)
(defconstant msx:OLECMDID_SETPROGRESSTEXT 27)
(defconstant msx:OLECMDID_SETPROGRESSPOS 26)
(defconstant msx:OLECMDID_SETPROGRESSMAX 25)
(defconstant msx:OLECMDID_HIDETOOLBARS 24)
(defconstant msx:OLECMDID_STOP 23)
(defconstant msx:OLECMDID_REFRESH 22)
(defconstant msx:OLECMDID_UPDATECOMMANDS 21)
(defconstant msx:OLECMDID_GETZOOMRANGE 20)
(defconstant msx:OLECMDID_ZOOM 19)
(defconstant msx:OLECMDID_CLEARSELECTION 18)
(defconstant msx:OLECMDID_SELECTALL 17)
(defconstant msx:OLECMDID_REDO 16)
(defconstant msx:OLECMDID_UNDO 15)
(defconstant msx:OLECMDID_PASTESPECIAL 14)
(defconstant msx:OLECMDID_PASTE 13)
(defconstant msx:OLECMDID_COPY 12)
(defconstant msx:OLECMDID_CUT 11)
(defconstant msx:OLECMDID_PROPERTIES 10)
(defconstant msx:OLECMDID_SPELL 9)
(defconstant msx:OLECMDID_PAGESETUP 8)
(defconstant msx:OLECMDID_PRINTPREVIEW 7)
(defconstant msx:OLECMDID_PRINT 6)
(defconstant msx:OLECMDID_SAVECOPYAS 5)
(defconstant msx:OLECMDID_SAVEAS 4)
(defconstant msx:OLECMDID_SAVE 3)
(defconstant msx:OLECMDID_NEW 2)
(defconstant msx:OLECMDID_OPEN 1)
(defun msx:decode-OLECMDF (ole::v)
(case ole::v
(32 'msx:OLECMDF_DEFHIDEONCTXTMENU)
(16 'msx:OLECMDF_INVISIBLE)
(8 'msx:OLECMDF_NINCHED)
(4 'msx:OLECMDF_LATCHED)
(2 'msx:OLECMDF_ENABLED)
(1 'msx:OLECMDF_SUPPORTED)
(t ole::v)))
(defconstant msx:OLECMDF_DEFHIDEONCTXTMENU 32)
(defconstant msx:OLECMDF_INVISIBLE 16)
(defconstant msx:OLECMDF_NINCHED 8)
(defconstant msx:OLECMDF_LATCHED 4)
(defconstant msx:OLECMDF_ENABLED 2)
(defconstant msx:OLECMDF_SUPPORTED 1)
(defun msx:decode-OLECMDEXECOPT (ole::v)
(case ole::v
(3 'msx:OLECMDEXECOPT_SHOWHELP)
(2 'msx:OLECMDEXECOPT_DONTPROMPTUSER)
(1 'msx:OLECMDEXECOPT_PROMPTUSER)
(0 'msx:OLECMDEXECOPT_DODEFAULT)
(t ole::v)))
(defconstant msx:OLECMDEXECOPT_SHOWHELP 3)
(defconstant msx:OLECMDEXECOPT_DONTPROMPTUSER 2)
(defconstant msx:OLECMDEXECOPT_PROMPTUSER 1)
(defconstant msx:OLECMDEXECOPT_DODEFAULT 0)
(defun msx:decode-tagREADYSTATE (ole::v)
(case ole::v
(4 'msx:READYSTATE_COMPLETE)
(3 'msx:READYSTATE_INTERACTIVE)
(2 'msx:READYSTATE_LOADED)
(1 'msx:READYSTATE_LOADING)
(0 'msx:READYSTATE_UNINITIALIZED)
(t ole::v)))
(defconstant msx:READYSTATE_COMPLETE 4)
(defconstant msx:READYSTATE_INTERACTIVE 3)
(defconstant msx:READYSTATE_LOADED 2)
(defconstant msx:READYSTATE_LOADING 1)
(defconstant msx:READYSTATE_UNINITIALIZED 0)
(defun msx:decode-SecureLockIconConstants (ole::v)
(case ole::v
(6 'msx:secureLockIconSecure128Bit)
(5 'msx:secureLockIconSecureFortezza)
(4 'msx:secureLockIconSecure56Bit)
(3 'msx:secureLockIconSecure40Bit)
(2 'msx:secureLockIconSecureUnknownBits)
(1 'msx:secureLockIconMixed)
(0 'msx:secureLockIconUnsecure)
(t ole::v)))
(defconstant msx:secureLockIconSecure128Bit 6)
(defconstant msx:secureLockIconSecureFortezza 5)
(defconstant msx:secureLockIconSecure56Bit 4)
(defconstant msx:secureLockIconSecure40Bit 3)
(defconstant msx:secureLockIconSecureUnknownBits 2)
(defconstant msx:secureLockIconMixed 1)
(defconstant msx:secureLockIconUnsecure 0)
(defun msx:decode-ShellWindowTypeConstants (ole::v)
(case ole::v
(4 'msx:SWC_CALLBACK)
(2 'msx:SWC_3RDPARTY)
(1 'msx:SWC_BROWSER)
(0 'msx:SWC_EXPLORER)
(t ole::v)))
(defconstant msx:SWC_CALLBACK 4)
(defconstant msx:SWC_3RDPARTY 2) (defconstant msx:SWC_BROWSER 1)
(defconstant msx:SWC_EXPLORER 0)
(defun msx:decode-ShellWindowFindWindowOptions (ole::v)
(case ole::v
(4 'msx:SWFO_COOKIEPASSED)
(2 'msx:SWFO_INCLUDEPENDING)
(1 'msx:SWFO_NEEDDISPATCH)
(t ole::v)))
(defconstant msx:SWFO_COOKIEPASSED 4)
(defconstant msx:SWFO_INCLUDEPENDING 2)
(defconstant msx:SWFO_NEEDDISPATCH 1)
(without-redefinition-warnings
(ole:def-server-interface ole.control:_SearchAssistantEvents)
(ole:def-ocx-class ole.control::channel-_SearchAssistantEvents
(ole::control-event-channel :interfaces
ole.control:_SearchAssistantEvents)
((ole::uuid :allocation :class :initform
(ole:unique-guid "{1611fdda-445b-11d2-85de-00c04fa35c89}"))))
(progn (defun ole.control::event._SearchAssistantEvents.OnNextMenuSelect
(ole::this.control ole::this.channel
ole.control::idItem)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event._SearchAssistantEvents.OnNextMenuSelect on ~s~%"
ole::this.control))
(msx:-OnNextMenuSelect ole::this.control
ole::this.channel ole.control::idItem))
(defmethod msx:-OnNextMenuSelect ((ole::this.control t)
(ole::this.channel
ole.control::channel-_SearchAssistantEvents)
ole.control::idItem)
(declare (ignore ole.control::idItem)) nil))
(progn (defun ole.control::event._SearchAssistantEvents.OnNewSearch
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event._SearchAssistantEvents.OnNewSearch on ~s~%"
ole::this.control))
(msx:-OnNewSearch ole::this.control
ole::this.channel))
(defmethod msx:-OnNewSearch ((ole::this.control t)
(ole::this.channel
ole.control::channel-_SearchAssistantEvents))
(declare (ignore)) nil))
(defmethod ole::dispatch-invocation ((ole::this.channel
ole.control::channel-_SearchAssistantEvents)
ole::memid
ole::mode
ole::parms)
(declare (ignore-if-unused ole::mode ole::parms))
(let ((ole::this.control
(slot-value ole::this.channel 'ole::host)))
(case ole::memid
(1
(let ((ole.control::idItem
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event._SearchAssistantEvents.OnNextMenuSelect
ole::this.control ole::this.channel
ole.control::idItem)
nil)))
(2
(let ()
(prog1 (ole.control::event._SearchAssistantEvents.OnNewSearch
ole::this.control ole::this.channel)
nil)))
(t (signal 'ole::member-not-found))))))
(declaim (ftype function msx:-OnNewSearch
ole.control::event._SearchAssistantEvents.OnNewSearch
msx:-OnNextMenuSelect
ole.control::event._SearchAssistantEvents.OnNextMenuSelect))
(progn (without-redefinition-warnings
(ole:def-client-interface
ole.control:ISearchAssistantOC))
(without-redefinition-warnings
(defclass ole.control::object-with-ISearchAssistantOC-client
(ole::object-with-interfaces)
((ole.control::i.ISearchAssistantOC :initform
nil :initarg
ole.control::object-with-ISearchAssistantOC-client))))
(without-redefinition-warnings
(defmethod ole.control:ISearchAssistantOC ((ole::object
ole.control::object-with-ISearchAssistantOC-client))
(or (slot-value ole::object
'ole.control::i.ISearchAssistantOC)
(setf (slot-value ole::object
'ole.control::i.ISearchAssistantOC)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearchAssistantOC)))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.EncodeString ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)
(ole::control.invoke.3 (ole.control:ISearchAssistantOC
ole::this.object)
25
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.Version ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
24
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.PutFindText ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::FindText)
(ole::control.invoke.1-
(ole.control:ISearchAssistantOC ole::this.object)
23
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::FindText)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.NETDetectNextNavigate ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
22
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.ASSetting ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
21
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC.ASSetting) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC ole::this.object)
21 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.ASProvider ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
20
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC.ASProvider) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC ole::this.object)
20 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.NotifySearchSettingsChanged ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
19
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.GetSearchAssistantURL ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bSubstitute
ole.control::bCustomize)
(ole::control.invoke.2 (ole.control:ISearchAssistantOC
ole::this.object)
18
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bSubstitute
ole.control::bCustomize)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.FindPeople ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
17
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.FindPrinter ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
16
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.FindComputer ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
15
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.FindFilesOrFolders ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
14
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.FindOnWeb ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
13
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.ResetNextMenu ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object)
12
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC.EventHandled) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC ole::this.object)
11 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.GetProperty ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bPerLocale
ole.control::bstrName)
(ole::control.invoke.2 (ole.control:ISearchAssistantOC
ole::this.object)
10
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bPerLocale
ole.control::bstrName)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.PutProperty ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bPerLocale
ole.control::bstrName
ole.control::bstrValue)
(ole::control.invoke.3-
(ole.control:ISearchAssistantOC ole::this.object) 9
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bPerLocale ole.control::bstrName
ole.control::bstrValue)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.InWebFolder ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
8
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.Searches ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
7
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.SearchAssistantDefault ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
6
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.ShellFeaturesEnabled ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC
ole::this.object)
5
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.IsRestricted ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bstrGuid)
(ole::control.invoke.1 (ole.control:ISearchAssistantOC
ole::this.object)
4
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrGuid)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.NavigateToDefaultSearch ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC ole::this.object) 3
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.SetDefaultSearchUrl ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bstrUrl)
(ole::control.invoke.1-
(ole.control:ISearchAssistantOC ole::this.object) 2
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrUrl)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC.AddNextMenuItem ((ole::this.object
ole.control::object-with-ISearchAssistantOC-client)
ole.control::bstrText
ole.control::idItem)
(ole::control.invoke.2-
(ole.control:ISearchAssistantOC ole::this.object) 1
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrText ole.control::idItem))))
(declaim (ftype function ole.control:ISearchAssistantOC))
(declaim (ftype function
ole.control::ISearchAssistantOC.AddNextMenuItem
ole.control::ISearchAssistantOC.SetDefaultSearchUrl
ole.control::ISearchAssistantOC.NavigateToDefaultSearch
ole.control::ISearchAssistantOC.IsRestricted
ole.control::ISearchAssistantOC.ShellFeaturesEnabled
ole.control::ISearchAssistantOC.SearchAssistantDefault
ole.control::ISearchAssistantOC.Searches
ole.control::ISearchAssistantOC.InWebFolder
ole.control::ISearchAssistantOC.PutProperty
ole.control::ISearchAssistantOC.GetProperty
(setf ole.control::ISearchAssistantOC.EventHandled)
ole.control::ISearchAssistantOC.ResetNextMenu
ole.control::ISearchAssistantOC.FindOnWeb
ole.control::ISearchAssistantOC.FindFilesOrFolders
ole.control::ISearchAssistantOC.FindComputer
ole.control::ISearchAssistantOC.FindPrinter
ole.control::ISearchAssistantOC.FindPeople
ole.control::ISearchAssistantOC.GetSearchAssistantURL
ole.control::ISearchAssistantOC.NotifySearchSettingsChanged
(setf ole.control::ISearchAssistantOC.ASProvider)
ole.control::ISearchAssistantOC.ASProvider
(setf ole.control::ISearchAssistantOC.ASSetting)
ole.control::ISearchAssistantOC.ASSetting
ole.control::ISearchAssistantOC.NETDetectNextNavigate
ole.control::ISearchAssistantOC.PutFindText
ole.control::ISearchAssistantOC.Version
ole.control::ISearchAssistantOC.EncodeString))
(progn (without-redefinition-warnings
(ole:def-client-interface
ole.control:ISearchAssistantOC2))
(without-redefinition-warnings
(defclass ole.control::object-with-ISearchAssistantOC2-client
(ole.control::object-with-ISearchAssistantOC-client)
((ole.control::i.ISearchAssistantOC2
:initform nil :initarg
ole.control::object-with-ISearchAssistantOC2-client))))
(without-redefinition-warnings
(defmethod ole.control:ISearchAssistantOC2 ((ole::object
ole.control::object-with-ISearchAssistantOC2-client))
(or (slot-value ole::object
'ole.control::i.ISearchAssistantOC2)
(setf (slot-value ole::object
'ole.control::i.ISearchAssistantOC2)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearchAssistantOC2)))))
(without-redefinition-warnings
(defmethod ole.control:ISearchAssistantOC ((ole::object
ole.control::object-with-ISearchAssistantOC2-client))
(or (slot-value ole::object
'ole.control::i.ISearchAssistantOC2)
(setf (slot-value ole::object
'ole.control::i.ISearchAssistantOC2)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearchAssistantOC2)))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.ShowFindPrinter ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
26
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.EncodeString ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)
(ole::control.invoke.3 (ole.control:ISearchAssistantOC2
ole::this.object)
25
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.Version ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
24
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.PutFindText ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::FindText)
(ole::control.invoke.1-
(ole.control:ISearchAssistantOC2 ole::this.object)
23
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::FindText)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.NETDetectNextNavigate ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
22
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.ASSetting ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
21
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC2.ASSetting) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC2 ole::this.object)
21 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.ASProvider ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
20
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC2.ASProvider) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC2 ole::this.object)
20 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.NotifySearchSettingsChanged ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
19
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.GetSearchAssistantURL ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bSubstitute
ole.control::bCustomize)
(ole::control.invoke.2 (ole.control:ISearchAssistantOC2
ole::this.object)
18
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bSubstitute
ole.control::bCustomize)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.FindPeople ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
17
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.FindPrinter ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
16
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.FindComputer ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
15
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.FindFilesOrFolders ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
14
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.FindOnWeb ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
13
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.ResetNextMenu ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
12
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC2.EventHandled) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC2 ole::this.object)
11 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.GetProperty ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bPerLocale
ole.control::bstrName)
(ole::control.invoke.2 (ole.control:ISearchAssistantOC2
ole::this.object)
10
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bPerLocale
ole.control::bstrName)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.PutProperty ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bPerLocale
ole.control::bstrName
ole.control::bstrValue)
(ole::control.invoke.3-
(ole.control:ISearchAssistantOC2 ole::this.object)
9
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bPerLocale ole.control::bstrName
ole.control::bstrValue)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.InWebFolder ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
8
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.Searches ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
7
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.SearchAssistantDefault ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
6
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.ShellFeaturesEnabled ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC2
ole::this.object)
5
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.IsRestricted ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bstrGuid)
(ole::control.invoke.1 (ole.control:ISearchAssistantOC2
ole::this.object)
4
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrGuid)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.NavigateToDefaultSearch ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC2 ole::this.object)
3
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.SetDefaultSearchUrl ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bstrUrl)
(ole::control.invoke.1-
(ole.control:ISearchAssistantOC2 ole::this.object)
2
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrUrl)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC2.AddNextMenuItem ((ole::this.object
ole.control::object-with-ISearchAssistantOC2-client)
ole.control::bstrText
ole.control::idItem)
(ole::control.invoke.2-
(ole.control:ISearchAssistantOC2 ole::this.object)
1
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrText ole.control::idItem))))
(declaim (ftype function ole.control:ISearchAssistantOC
ole.control:ISearchAssistantOC2))
(declaim (ftype function
ole.control::ISearchAssistantOC2.AddNextMenuItem
ole.control::ISearchAssistantOC2.SetDefaultSearchUrl
ole.control::ISearchAssistantOC2.NavigateToDefaultSearch
ole.control::ISearchAssistantOC2.IsRestricted
ole.control::ISearchAssistantOC2.ShellFeaturesEnabled
ole.control::ISearchAssistantOC2.SearchAssistantDefault
ole.control::ISearchAssistantOC2.Searches
ole.control::ISearchAssistantOC2.InWebFolder
ole.control::ISearchAssistantOC2.PutProperty
ole.control::ISearchAssistantOC2.GetProperty
(setf ole.control::ISearchAssistantOC2.EventHandled)
ole.control::ISearchAssistantOC2.ResetNextMenu
ole.control::ISearchAssistantOC2.FindOnWeb
ole.control::ISearchAssistantOC2.FindFilesOrFolders
ole.control::ISearchAssistantOC2.FindComputer
ole.control::ISearchAssistantOC2.FindPrinter
ole.control::ISearchAssistantOC2.FindPeople
ole.control::ISearchAssistantOC2.GetSearchAssistantURL
ole.control::ISearchAssistantOC2.NotifySearchSettingsChanged
(setf ole.control::ISearchAssistantOC2.ASProvider)
ole.control::ISearchAssistantOC2.ASProvider
(setf ole.control::ISearchAssistantOC2.ASSetting)
ole.control::ISearchAssistantOC2.ASSetting
ole.control::ISearchAssistantOC2.NETDetectNextNavigate
ole.control::ISearchAssistantOC2.PutFindText
ole.control::ISearchAssistantOC2.Version
ole.control::ISearchAssistantOC2.EncodeString
ole.control::ISearchAssistantOC2.ShowFindPrinter))
(progn (without-redefinition-warnings
(ole:def-client-interface
ole.control:ISearchAssistantOC3))
(without-redefinition-warnings
(defclass ole.control::object-with-ISearchAssistantOC3-client
(ole.control::object-with-ISearchAssistantOC2-client)
((ole.control::i.ISearchAssistantOC3
:initform nil :initarg
ole.control::object-with-ISearchAssistantOC3-client))))
(without-redefinition-warnings
(defmethod ole.control:ISearchAssistantOC3 ((ole::object
ole.control::object-with-ISearchAssistantOC3-client))
(or (slot-value ole::object
'ole.control::i.ISearchAssistantOC3)
(setf (slot-value ole::object
'ole.control::i.ISearchAssistantOC3)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearchAssistantOC3)))))
(without-redefinition-warnings
(defmethod ole.control:ISearchAssistantOC2 ((ole::object
ole.control::object-with-ISearchAssistantOC3-client))
(or (slot-value ole::object
'ole.control::i.ISearchAssistantOC3)
(setf (slot-value ole::object
'ole.control::i.ISearchAssistantOC3)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearchAssistantOC3)))))
(without-redefinition-warnings
(defmethod ole.control:ISearchAssistantOC ((ole::object
ole.control::object-with-ISearchAssistantOC3-client))
(or (slot-value ole::object
'ole.control::i.ISearchAssistantOC3)
(setf (slot-value ole::object
'ole.control::i.ISearchAssistantOC3)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearchAssistantOC3)))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.UseSearchCompanion ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
28
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC3.UseSearchCompanion) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC3 ole::this.object)
28 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.SearchCompanionAvailable ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
27
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.ShowFindPrinter ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
26
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.EncodeString ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)
(ole::control.invoke.3 (ole.control:ISearchAssistantOC3
ole::this.object)
25
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.Version ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
24
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.PutFindText ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::FindText)
(ole::control.invoke.1-
(ole.control:ISearchAssistantOC3 ole::this.object)
23
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::FindText)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.NETDetectNextNavigate ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
22
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.ASSetting ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
21
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC3.ASSetting) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC3 ole::this.object)
21 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.ASProvider ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
20
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC3.ASProvider) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC3 ole::this.object)
20 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.NotifySearchSettingsChanged ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
19
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.GetSearchAssistantURL ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bSubstitute
ole.control::bCustomize)
(ole::control.invoke.2 (ole.control:ISearchAssistantOC3
ole::this.object)
18
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bSubstitute
ole.control::bCustomize)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.FindPeople ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
17
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.FindPrinter ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
16
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.FindComputer ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
15
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.FindFilesOrFolders ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
14
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.FindOnWeb ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
13
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.ResetNextMenu ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
12
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod (setf ole.control::ISearchAssistantOC3.EventHandled) (ole::set.value
(ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.setf.1
(ole.control:ISearchAssistantOC3 ole::this.object)
11 ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.GetProperty ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bPerLocale
ole.control::bstrName)
(ole::control.invoke.2 (ole.control:ISearchAssistantOC3
ole::this.object)
10
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bPerLocale
ole.control::bstrName)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.PutProperty ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bPerLocale
ole.control::bstrName
ole.control::bstrValue)
(ole::control.invoke.3-
(ole.control:ISearchAssistantOC3 ole::this.object)
9
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bPerLocale ole.control::bstrName
ole.control::bstrValue)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.InWebFolder ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
8
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.Searches ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
7
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.SearchAssistantDefault ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
6
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.ShellFeaturesEnabled ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0 (ole.control:ISearchAssistantOC3
ole::this.object)
5
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.IsRestricted ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bstrGuid)
(ole::control.invoke.1 (ole.control:ISearchAssistantOC3
ole::this.object)
4
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrGuid)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.NavigateToDefaultSearch ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client))
(ole::control.invoke.0-
(ole.control:ISearchAssistantOC3 ole::this.object)
3
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.SetDefaultSearchUrl ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bstrUrl)
(ole::control.invoke.1-
(ole.control:ISearchAssistantOC3 ole::this.object)
2
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrUrl)))
(without-redefinition-warnings
(defmethod ole.control::ISearchAssistantOC3.AddNextMenuItem ((ole::this.object
ole.control::object-with-ISearchAssistantOC3-client)
ole.control::bstrText
ole.control::idItem)
(ole::control.invoke.2-
(ole.control:ISearchAssistantOC3 ole::this.object)
1
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrText ole.control::idItem))))
(declaim (ftype function ole.control:ISearchAssistantOC
ole.control:ISearchAssistantOC2
ole.control:ISearchAssistantOC3))
(declaim (ftype function
ole.control::ISearchAssistantOC3.AddNextMenuItem
ole.control::ISearchAssistantOC3.SetDefaultSearchUrl
ole.control::ISearchAssistantOC3.NavigateToDefaultSearch
ole.control::ISearchAssistantOC3.IsRestricted
ole.control::ISearchAssistantOC3.ShellFeaturesEnabled
ole.control::ISearchAssistantOC3.SearchAssistantDefault
ole.control::ISearchAssistantOC3.Searches
ole.control::ISearchAssistantOC3.InWebFolder
ole.control::ISearchAssistantOC3.PutProperty
ole.control::ISearchAssistantOC3.GetProperty
(setf ole.control::ISearchAssistantOC3.EventHandled)
ole.control::ISearchAssistantOC3.ResetNextMenu
ole.control::ISearchAssistantOC3.FindOnWeb
ole.control::ISearchAssistantOC3.FindFilesOrFolders
ole.control::ISearchAssistantOC3.FindComputer
ole.control::ISearchAssistantOC3.FindPrinter
ole.control::ISearchAssistantOC3.FindPeople
ole.control::ISearchAssistantOC3.GetSearchAssistantURL
ole.control::ISearchAssistantOC3.NotifySearchSettingsChanged
(setf ole.control::ISearchAssistantOC3.ASProvider)
ole.control::ISearchAssistantOC3.ASProvider
(setf ole.control::ISearchAssistantOC3.ASSetting)
ole.control::ISearchAssistantOC3.ASSetting
ole.control::ISearchAssistantOC3.NETDetectNextNavigate
ole.control::ISearchAssistantOC3.PutFindText
ole.control::ISearchAssistantOC3.Version
ole.control::ISearchAssistantOC3.EncodeString
ole.control::ISearchAssistantOC3.ShowFindPrinter
ole.control::ISearchAssistantOC3.SearchCompanionAvailable
(setf ole.control::ISearchAssistantOC3.UseSearchCompanion)
ole.control::ISearchAssistantOC3.UseSearchCompanion))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:ISearches))
(without-redefinition-warnings
(defclass ole.control::object-with-ISearches-client
(ole::object-with-interfaces)
((ole.control::i.ISearches :initform nil
:initarg
ole.control::object-with-ISearches-client))))
(without-redefinition-warnings
(defmethod ole.control:ISearches ((ole::object
ole.control::object-with-ISearches-client))
(or (slot-value ole::object
'ole.control::i.ISearches)
(setf (slot-value ole::object
'ole.control::i.ISearches)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearches)))))
(without-redefinition-warnings
(defmethod ole.control::ISearches._NewEnum ((ole::this.object
ole.control::object-with-ISearches-client))
(ole::control.invoke.0 (ole.control:ISearches
ole::this.object)
4294967292
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearches.Item ((ole::this.object
ole.control::object-with-ISearches-client)
&key
(ole.control::index
:missing))
(ole::control.invoke.1 (ole.control:ISearches
ole::this.object)
1610743810
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::index)))
(without-redefinition-warnings
(defmethod ole.control::ISearches.Default ((ole::this.object
ole.control::object-with-ISearches-client))
(ole::control.invoke.0 (ole.control:ISearches
ole::this.object)
1610743809
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearches.Count ((ole::this.object
ole.control::object-with-ISearches-client))
(ole::control.invoke.0 (ole.control:ISearches
ole::this.object)
1610743808
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil))))
(declaim (ftype function ole.control:ISearches))
(declaim (ftype function ole.control::ISearches.Count
ole.control::ISearches.Default
ole.control::ISearches.Item
ole.control::ISearches._NewEnum))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:ISearch))
(without-redefinition-warnings
(defclass ole.control::object-with-ISearch-client
(ole::object-with-interfaces)
((ole.control::i.ISearch :initform nil
:initarg
ole.control::object-with-ISearch-client))))
(without-redefinition-warnings
(defmethod ole.control:ISearch ((ole::object
ole.control::object-with-ISearch-client))
(or (slot-value ole::object 'ole.control::i.ISearch)
(setf (slot-value ole::object
'ole.control::i.ISearch)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_ISearch)))))
(without-redefinition-warnings
(defmethod ole.control::ISearch.URL ((ole::this.object
ole.control::object-with-ISearch-client))
(ole::control.invoke.0 (ole.control:ISearch
ole::this.object)
1610743810
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearch.Id ((ole::this.object
ole.control::object-with-ISearch-client))
(ole::control.invoke.0 (ole.control:ISearch
ole::this.object)
1610743809
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::ISearch.Title ((ole::this.object
ole.control::object-with-ISearch-client))
(ole::control.invoke.0 (ole.control:ISearch
ole::this.object)
1610743808
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil))))
(declaim (ftype function ole.control:ISearch))
(declaim (ftype function ole.control::ISearch.Title
ole.control::ISearch.Id ole.control::ISearch.URL))
(progn (without-redefinition-warnings
(ole:def-client-interface
ole.control:IScriptErrorList))
(without-redefinition-warnings
(defclass ole.control::object-with-IScriptErrorList-client
(ole::object-with-interfaces)
((ole.control::i.IScriptErrorList :initform
nil :initarg
ole.control::object-with-IScriptErrorList-client))))
(without-redefinition-warnings
(defmethod ole.control:IScriptErrorList ((ole::object
ole.control::object-with-IScriptErrorList-client))
(or (slot-value ole::object
'ole.control::i.IScriptErrorList)
(setf (slot-value ole::object
'ole.control::i.IScriptErrorList)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IScriptErrorList)))))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.setPerErrorDisplay ((ole::this.object
ole.control::object-with-IScriptErrorList-client)
ole.control::fPerErrorDisplay)
(ole::control.invoke.1-
(ole.control:IScriptErrorList ole::this.object) 22
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::fPerErrorDisplay)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getPerErrorDisplay ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
21
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.setDetailsPaneOpen ((ole::this.object
ole.control::object-with-IScriptErrorList-client)
ole.control::fDetailsPaneOpen)
(ole::control.invoke.1-
(ole.control:IScriptErrorList ole::this.object) 20
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::fDetailsPaneOpen)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getDetailsPaneOpen ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
19
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getAlwaysShowLockState ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
23
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getErrorUrl ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
18
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getErrorMsg ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
17
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getErrorCode ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
16
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getErrorChar ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
15
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.getErrorLine ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
14
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.canRetreatError ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
13
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.canAdvanceError ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0 (ole.control:IScriptErrorList
ole::this.object)
12
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.retreatError ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0-
(ole.control:IScriptErrorList ole::this.object) 11
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IScriptErrorList.advanceError ((ole::this.object
ole.control::object-with-IScriptErrorList-client))
(ole::control.invoke.0-
(ole.control:IScriptErrorList ole::this.object) 10
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IScriptErrorList))
(declaim (ftype function
ole.control::IScriptErrorList.advanceError
ole.control::IScriptErrorList.retreatError
ole.control::IScriptErrorList.canAdvanceError
ole.control::IScriptErrorList.canRetreatError
ole.control::IScriptErrorList.getErrorLine
ole.control::IScriptErrorList.getErrorChar
ole.control::IScriptErrorList.getErrorCode
ole.control::IScriptErrorList.getErrorMsg
ole.control::IScriptErrorList.getErrorUrl
ole.control::IScriptErrorList.getAlwaysShowLockState
ole.control::IScriptErrorList.getDetailsPaneOpen
ole.control::IScriptErrorList.setDetailsPaneOpen
ole.control::IScriptErrorList.getPerErrorDisplay
ole.control::IScriptErrorList.setPerErrorDisplay))
(progn (without-redefinition-warnings
(ole:def-client-interface
ole.control:IShellFavoritesNameSpace))
(without-redefinition-warnings
(defclass ole.control::object-with-IShellFavoritesNameSpace-client
(ole::object-with-interfaces)
((ole.control::i.IShellFavoritesNameSpace
:initform nil :initarg
ole.control::object-with-IShellFavoritesNameSpace-client))))
(without-redefinition-warnings
(defmethod ole.control:IShellFavoritesNameSpace ((ole::object
ole.control::object-with-IShellFavoritesNameSpace-client))
(or (slot-value ole::object
'ole.control::i.IShellFavoritesNameSpace)
(setf (slot-value ole::object
'ole.control::i.IShellFavoritesNameSpace)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IShellFavoritesNameSpace)))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.SetRoot ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client)
ole.control::bstrFullPath)
(ole::control.invoke.1-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
13
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrFullPath)))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellFavoritesNameSpace
ole::this.object)
12
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellFavoritesNameSpace
ole::this.object)
11
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellFavoritesNameSpace
ole::this.object)
10
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.MoveSelectionTo ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
9
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client)
ole.control::strCommand)
(ole::control.invoke.1-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
8
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::strCommand)))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.Export ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
7
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.Import ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
6
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.Synchronize ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
5
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.NewFolder ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
4
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.ResetSort ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
3
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.MoveSelectionDown ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
2
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellFavoritesNameSpace.MoveSelectionUp ((ole::this.object
ole.control::object-with-IShellFavoritesNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellFavoritesNameSpace
ole::this.object)
1
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IShellFavoritesNameSpace))
(declaim (ftype function
ole.control::IShellFavoritesNameSpace.MoveSelectionUp
ole.control::IShellFavoritesNameSpace.MoveSelectionDown
ole.control::IShellFavoritesNameSpace.ResetSort
ole.control::IShellFavoritesNameSpace.NewFolder
ole.control::IShellFavoritesNameSpace.Synchronize
ole.control::IShellFavoritesNameSpace.Import
ole.control::IShellFavoritesNameSpace.Export
ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand
ole.control::IShellFavoritesNameSpace.MoveSelectionTo
ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled
ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection
ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection
ole.control::IShellFavoritesNameSpace.SetRoot))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:IShellNameSpace))
(without-redefinition-warnings
(defclass ole.control::object-with-IShellNameSpace-client
(ole.control::object-with-IShellFavoritesNameSpace-client)
((ole.control::i.IShellNameSpace :initform
nil :initarg
ole.control::object-with-IShellNameSpace-client))))
(without-redefinition-warnings
(defmethod ole.control:IShellNameSpace ((ole::object
ole.control::object-with-IShellNameSpace-client))
(or (slot-value ole::object
'ole.control::i.IShellNameSpace)
(setf (slot-value ole::object
'ole.control::i.IShellNameSpace)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IShellNameSpace)))))
(without-redefinition-warnings
(defmethod ole.control:IShellFavoritesNameSpace ((ole::object
ole.control::object-with-IShellNameSpace-client))
(or (slot-value ole::object
'ole.control::i.IShellNameSpace)
(setf (slot-value ole::object
'ole.control::i.IShellNameSpace)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IShellNameSpace)))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.UnselectAll ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 26
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Expand ((ole::this.object
ole.control::object-with-IShellNameSpace-client)
ole.control::var
ole.control::iDepth)
(ole::control.invoke.2-
(ole.control:IShellNameSpace ole::this.object) 25
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::var ole.control::iDepth)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.SelectedItems ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
24
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.SetViewType ((ole::this.object
ole.control::object-with-IShellNameSpace-client)
ole.control::iType)
(ole::control.invoke.1-
(ole.control:IShellNameSpace ole::this.object) 23
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::iType)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.CountViewTypes ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
22
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Columns ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
21
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.Columns) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 21
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.TVFlags ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
20
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.TVFlags) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 20
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Flags ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
19
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.Flags) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 19
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Mode ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
18
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.Mode) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 18
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Depth ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
17
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.Depth) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 17
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Root ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
16
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.Root) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 16
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.SelectedItem ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
15
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.SelectedItem) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 15
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.EnumOptions ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
14
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IShellNameSpace.EnumOptions) (ole::set.value
(ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.setf.1
(ole.control:IShellNameSpace ole::this.object) 14
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.SetRoot ((ole::this.object
ole.control::object-with-IShellNameSpace-client)
ole.control::bstrFullPath)
(ole::control.invoke.1-
(ole.control:IShellNameSpace ole::this.object) 13
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::bstrFullPath)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.DeleteSubscriptionForSelection ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
12
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.CreateSubscriptionForSelection ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
11
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.SubscriptionsEnabled ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0 (ole.control:IShellNameSpace
ole::this.object)
10
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.MoveSelectionTo ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 9
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.InvokeContextMenuCommand ((ole::this.object
ole.control::object-with-IShellNameSpace-client)
ole.control::strCommand)
(ole::control.invoke.1-
(ole.control:IShellNameSpace ole::this.object) 8
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::strCommand)))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Export ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 7
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Import ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 6
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.Synchronize ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 5
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.NewFolder ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 4
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.ResetSort ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 3
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.MoveSelectionDown ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 2
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellNameSpace.MoveSelectionUp ((ole::this.object
ole.control::object-with-IShellNameSpace-client))
(ole::control.invoke.0-
(ole.control:IShellNameSpace ole::this.object) 1
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IShellFavoritesNameSpace
ole.control:IShellNameSpace))
(declaim (ftype function
ole.control::IShellNameSpace.MoveSelectionUp
ole.control::IShellNameSpace.MoveSelectionDown
ole.control::IShellNameSpace.ResetSort
ole.control::IShellNameSpace.NewFolder
ole.control::IShellNameSpace.Synchronize
ole.control::IShellNameSpace.Import
ole.control::IShellNameSpace.Export
ole.control::IShellNameSpace.InvokeContextMenuCommand
ole.control::IShellNameSpace.MoveSelectionTo
ole.control::IShellNameSpace.SubscriptionsEnabled
ole.control::IShellNameSpace.CreateSubscriptionForSelection
ole.control::IShellNameSpace.DeleteSubscriptionForSelection
ole.control::IShellNameSpace.SetRoot
(setf ole.control::IShellNameSpace.EnumOptions)
ole.control::IShellNameSpace.EnumOptions
(setf ole.control::IShellNameSpace.SelectedItem)
ole.control::IShellNameSpace.SelectedItem
(setf ole.control::IShellNameSpace.Root)
ole.control::IShellNameSpace.Root
(setf ole.control::IShellNameSpace.Depth)
ole.control::IShellNameSpace.Depth
(setf ole.control::IShellNameSpace.Mode)
ole.control::IShellNameSpace.Mode
(setf ole.control::IShellNameSpace.Flags)
ole.control::IShellNameSpace.Flags
(setf ole.control::IShellNameSpace.TVFlags)
ole.control::IShellNameSpace.TVFlags
(setf ole.control::IShellNameSpace.Columns)
ole.control::IShellNameSpace.Columns
ole.control::IShellNameSpace.CountViewTypes
ole.control::IShellNameSpace.SetViewType
ole.control::IShellNameSpace.SelectedItems
ole.control::IShellNameSpace.Expand
ole.control::IShellNameSpace.UnselectAll))
(without-redefinition-warnings
(ole:def-server-interface ole.control:DShellNameSpaceEvents)
(ole:def-ocx-class ole.control::channel-DShellNameSpaceEvents
(ole::control-event-channel :interfaces
ole.control:DShellNameSpaceEvents)
((ole::uuid :allocation :class :initform
(ole:unique-guid "{55136806-b2de-11d1-b9f2-00a0c98bc547}"))))
(progn (defun ole.control::event.DShellNameSpaceEvents.FavoritesSelectionChange
(ole::this.control ole::this.channel
ole.control::cItems ole.control::hItem
ole.control::strName ole.control::strUrl
ole.control::cVisits ole.control::strDate
ole.control::fAvailableOffline)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DShellNameSpaceEvents.FavoritesSelectionChange on ~s~%"
ole::this.control))
(msx:-FavoritesSelectionChange ole::this.control
ole::this.channel ole.control::cItems
ole.control::hItem ole.control::strName
ole.control::strUrl ole.control::cVisits
ole.control::strDate
ole.control::fAvailableOffline))
(defmethod msx:-FavoritesSelectionChange ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DShellNameSpaceEvents)
ole.control::cItems
ole.control::hItem
ole.control::strName
ole.control::strUrl
ole.control::cVisits
ole.control::strDate
ole.control::fAvailableOffline)
(declare
(ignore ole.control::cItems ole.control::hItem
ole.control::strName ole.control::strUrl
ole.control::cVisits ole.control::strDate
ole.control::fAvailableOffline))
nil))
(progn (defun ole.control::event.DShellNameSpaceEvents.SelectionChange
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DShellNameSpaceEvents.SelectionChange on ~s~%"
ole::this.control))
(msx:-SelectionChange ole::this.control
ole::this.channel))
(defmethod msx:-SelectionChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DShellNameSpaceEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DShellNameSpaceEvents.DoubleClick
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DShellNameSpaceEvents.DoubleClick on ~s~%"
ole::this.control))
(msx:-DoubleClick ole::this.control
ole::this.channel))
(defmethod msx:-DoubleClick ((ole::this.control t)
(ole::this.channel
ole.control::channel-DShellNameSpaceEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DShellNameSpaceEvents.Initialized
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DShellNameSpaceEvents.Initialized on ~s~%"
ole::this.control))
(msx:-Initialized ole::this.control
ole::this.channel))
(defmethod msx:-Initialized ((ole::this.control t)
(ole::this.channel
ole.control::channel-DShellNameSpaceEvents))
(declare (ignore)) nil))
(defmethod ole::dispatch-invocation ((ole::this.channel
ole.control::channel-DShellNameSpaceEvents)
ole::memid
ole::mode
ole::parms)
(declare (ignore-if-unused ole::mode ole::parms))
(let ((ole::this.control
(slot-value ole::this.channel 'ole::host)))
(case ole::memid
(1
(let ((ole.control::fAvailableOffline
(ole::get-nth-arg ole::parms 6))
(ole.control::strDate
(ole::get-nth-arg ole::parms 5))
(ole.control::cVisits
(ole::get-nth-arg ole::parms 4))
(ole.control::strUrl
(ole::get-nth-arg ole::parms 3))
(ole.control::strName
(ole::get-nth-arg ole::parms 2))
(ole.control::hItem
(ole::get-nth-arg ole::parms 1))
(ole.control::cItems
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DShellNameSpaceEvents.FavoritesSelectionChange
ole::this.control ole::this.channel
ole.control::cItems ole.control::hItem
ole.control::strName ole.control::strUrl
ole.control::cVisits ole.control::strDate
ole.control::fAvailableOffline)
nil)))
(2
(let ()
(prog1 (ole.control::event.DShellNameSpaceEvents.SelectionChange
ole::this.control ole::this.channel)
nil)))
(3
(let ()
(prog1 (ole.control::event.DShellNameSpaceEvents.DoubleClick
ole::this.control ole::this.channel)
nil)))
(4
(let ()
(prog1 (ole.control::event.DShellNameSpaceEvents.Initialized
ole::this.control ole::this.channel)
nil)))
(t (signal 'ole::member-not-found))))))
(declaim (ftype function msx:-Initialized
ole.control::event.DShellNameSpaceEvents.Initialized
msx:-DoubleClick
ole.control::event.DShellNameSpaceEvents.DoubleClick
msx:-SelectionChange
ole.control::event.DShellNameSpaceEvents.SelectionChange
msx:-FavoritesSelectionChange
ole.control::event.DShellNameSpaceEvents.FavoritesSelectionChange))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:IShellUIHelper))
(without-redefinition-warnings
(defclass ole.control::object-with-IShellUIHelper-client
(ole::object-with-interfaces)
((ole.control::i.IShellUIHelper :initform nil
:initarg
ole.control::object-with-IShellUIHelper-client))))
(without-redefinition-warnings
(defmethod ole.control:IShellUIHelper ((ole::object
ole.control::object-with-IShellUIHelper-client))
(or (slot-value ole::object
'ole.control::i.IShellUIHelper)
(setf (slot-value ole::object
'ole.control::i.IShellUIHelper)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IShellUIHelper)))))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.ShowBrowserUI ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::bstrName
ole.control::pvarIn)
(ole::control.invoke.2 (ole.control:IShellUIHelper
ole::this.object)
13
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::bstrName
ole.control::pvarIn)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.AutoCompleteAttach ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
&key
(ole.control::Reserved
:missing))
(ole::control.invoke.1-
(ole.control:IShellUIHelper ole::this.object) 12
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Reserved)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.AutoScan ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::strSearch
ole.control::strFailureUrl
&key
(ole.control::pvarTargetFrame
:missing))
(ole::control.invoke.3-
(ole.control:IShellUIHelper ole::this.object) 11
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::strSearch ole.control::strFailureUrl
ole.control::pvarTargetFrame)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.AutoCompleteSaveForm ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
&key
(ole.control::Form
:missing))
(ole::control.invoke.1-
(ole.control:IShellUIHelper ole::this.object) 10
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Form)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.ImportExportFavorites ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::fImport
ole.control::strImpExpPath)
(ole::control.invoke.2-
(ole.control:IShellUIHelper ole::this.object) 9
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::fImport ole.control::strImpExpPath)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.NavigateAndFind ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::URL
ole.control::strQuery
ole.control::varTargetFrame)
(ole::control.invoke.3-
(ole.control:IShellUIHelper ole::this.object) 8
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::strQuery
ole.control::varTargetFrame)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.IsSubscribed ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::URL)
(ole::control.invoke.1 (ole.control:IShellUIHelper
ole::this.object)
7
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::URL)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.AddDesktopComponent ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::URL
ole.control::Type
&key
(ole.control::Left
:missing)
(ole.control::Top
:missing)
(ole.control::Width
:missing)
(ole.control::Height
:missing))
(ole::control.invoke.6-
(ole.control:IShellUIHelper ole::this.object) 6
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::Type
ole.control::Left ole.control::Top
ole.control::Width ole.control::Height)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.AddChannel ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::URL)
(ole::control.invoke.1-
(ole.control:IShellUIHelper ole::this.object) 5
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.AddFavorite ((ole::this.object
ole.control::object-with-IShellUIHelper-client)
ole.control::URL
&key
(ole.control::Title
:missing))
(ole::control.invoke.2-
(ole.control:IShellUIHelper ole::this.object) 4
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::Title)))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.RefreshOfflineDesktop ((ole::this.object
ole.control::object-with-IShellUIHelper-client))
(ole::control.invoke.0-
(ole.control:IShellUIHelper ole::this.object) 3
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.ResetSafeMode ((ole::this.object
ole.control::object-with-IShellUIHelper-client))
(ole::control.invoke.0-
(ole.control:IShellUIHelper ole::this.object) 2
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IShellUIHelper.ResetFirstBootMode ((ole::this.object
ole.control::object-with-IShellUIHelper-client))
(ole::control.invoke.0-
(ole.control:IShellUIHelper ole::this.object) 1
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IShellUIHelper))
(declaim (ftype function
ole.control::IShellUIHelper.ResetFirstBootMode
ole.control::IShellUIHelper.ResetSafeMode
ole.control::IShellUIHelper.RefreshOfflineDesktop
ole.control::IShellUIHelper.AddFavorite
ole.control::IShellUIHelper.AddChannel
ole.control::IShellUIHelper.AddDesktopComponent
ole.control::IShellUIHelper.IsSubscribed
ole.control::IShellUIHelper.NavigateAndFind
ole.control::IShellUIHelper.ImportExportFavorites
ole.control::IShellUIHelper.AutoCompleteSaveForm
ole.control::IShellUIHelper.AutoScan
ole.control::IShellUIHelper.AutoCompleteAttach
ole.control::IShellUIHelper.ShowBrowserUI))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:IShellWindows))
(without-redefinition-warnings
(defclass ole.control::object-with-IShellWindows-client
(ole::object-with-interfaces)
((ole.control::i.IShellWindows :initform nil
:initarg
ole.control::object-with-IShellWindows-client))))
(without-redefinition-warnings
(defmethod ole.control:IShellWindows ((ole::object
ole.control::object-with-IShellWindows-client))
(or (slot-value ole::object
'ole.control::i.IShellWindows)
(setf (slot-value ole::object
'ole.control::i.IShellWindows)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IShellWindows)))))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.ProcessAttachDetach ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::fAttach)
(ole::control.invoke.1-
(ole.control:IShellWindows ole::this.object)
1610743818
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::fAttach)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.OnCreated ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::lCookie
ole.control::punk)
(ole::control.invoke.2-
(ole.control:IShellWindows ole::this.object)
1610743817
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::lCookie ole.control::punk)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.FindWindowSW ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::pvarloc
ole.control::pvarlocRoot
ole.control::swClass
ole.control::swfwOptions)
(ole::with-retareas ((ole::m.parms ole::dispparams)
(ole::m.vret ole:variant)
(ole::m.arg-variant-array
(:array ole:variant 5))
(ole.control::slotfor.pHWND
:long)
(ole::m.argerr :int)
(ole::m.excep ole:excepinfo))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 1)
':long ole.control::slotfor.pHWND)
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
4))
(setf (ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cArgs)
5
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cNamedArgs)
0
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgvarg)
ole::m.arg-variant-array
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgdispidNamedArgs)
0)
(ole::variant-astore ole::m.arg-variant-array 0
ole.control::swfwOptions)
(ole::variant-astore ole::m.arg-variant-array 2
ole.control::swClass)
(ole::variant-astore ole::m.arg-variant-array 3
ole.control::pvarlocRoot)
(ole::variant-astore ole::m.arg-variant-array 4
ole.control::pvarloc)
(unwind-protect
(progn nil
(ole:check-return
(ole::IDispatch.Invoke
(ole:h
(ole.control:IShellWindows
ole::this.object))
1610743816
(ole:guid-binary ole:IID_NULL)
ole:*ole-locale*
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole::m.parms
ole::m.vret
ole::m.excep
ole::m.argerr))
nil
(values
(ole:variant-value ole::m.vret)
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
4))))))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.OnActivated ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::lCookie
ole.control::fActive)
(ole::control.invoke.2-
(ole.control:IShellWindows ole::this.object)
1610743815
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::lCookie ole.control::fActive)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.OnNavigate ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::lCookie
ole.control::pvarloc)
(ole::control.invoke.2-
(ole.control:IShellWindows ole::this.object)
1610743814
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::lCookie ole.control::pvarloc)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.Revoke ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::lCookie)
(ole::control.invoke.1-
(ole.control:IShellWindows ole::this.object)
1610743813
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::lCookie)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.RegisterPending ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::lThreadId
ole.control::pvarloc
ole.control::pvarlocRoot
ole.control::swClass)
(ole::with-retareas ((ole::m.parms ole::dispparams)
(ole::m.arg-variant-array
(:array ole:variant 5))
(ole.control::slotfor.plCookie
:long)
(ole::m.argerr :int)
(ole::m.excep ole:excepinfo))
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 0)
':long ole.control::slotfor.plCookie)
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
4))
(setf (ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cArgs)
5
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cNamedArgs)
0
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgvarg)
ole::m.arg-variant-array
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgdispidNamedArgs)
0)
(ole::variant-astore ole::m.arg-variant-array 1
ole.control::swClass)
(ole::variant-astore ole::m.arg-variant-array 2
ole.control::pvarlocRoot)
(ole::variant-astore ole::m.arg-variant-array 3
ole.control::pvarloc)
(ole::variant-astore ole::m.arg-variant-array 4
ole.control::lThreadId)
(unwind-protect
(progn nil
(ole:check-return
(ole::IDispatch.Invoke
(ole:h
(ole.control:IShellWindows
ole::this.object))
1610743812
(ole:guid-binary ole:IID_NULL)
ole:*ole-locale*
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole::m.parms
0
ole::m.excep
ole::m.argerr))
nil
(values
nil
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
4))))))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.Register ((ole::this.object
ole.control::object-with-IShellWindows-client)
ole.control::pid
ole.control::HWND
ole.control::swClass)
(ole::with-retareas ((ole::m.parms ole::dispparams)
(ole::m.arg-variant-array
(:array ole:variant 4))
(ole.control::slotfor.plCookie
:long)
(ole::m.argerr :int)
(ole::m.excep ole:excepinfo))
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 0)
':long ole.control::slotfor.plCookie)
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))
(setf (ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cArgs)
4
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cNamedArgs)
0
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgvarg)
ole::m.arg-variant-array
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgdispidNamedArgs)
0)
(ole::variant-astore ole::m.arg-variant-array 1
ole.control::swClass)
(ole::variant-astore ole::m.arg-variant-array 2
ole.control::HWND)
(ole::variant-astore ole::m.arg-variant-array 3
ole.control::pid)
(unwind-protect
(progn nil
(ole:check-return
(ole::IDispatch.Invoke
(ole:h
(ole.control:IShellWindows
ole::this.object))
1610743811
(ole:guid-binary ole:IID_NULL)
ole:*ole-locale*
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole::m.parms
0
ole::m.excep
ole::m.argerr))
nil
(values
nil
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))))))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows._NewEnum ((ole::this.object
ole.control::object-with-IShellWindows-client))
(ole::control.invoke.0 (ole.control:IShellWindows
ole::this.object)
4294967292
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.Item ((ole::this.object
ole.control::object-with-IShellWindows-client)
&key
(ole.control::index
:missing))
(ole::control.invoke.1 (ole.control:IShellWindows
ole::this.object)
0
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::index)))
(without-redefinition-warnings
(defmethod ole.control::IShellWindows.Count ((ole::this.object
ole.control::object-with-IShellWindows-client))
(ole::control.invoke.0 (ole.control:IShellWindows
ole::this.object)
1610743808
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil))))
(declaim (ftype function ole.control:IShellWindows))
(declaim (ftype function ole.control::IShellWindows.Count
ole.control::IShellWindows.Item
ole.control::IShellWindows._NewEnum
ole.control::IShellWindows.Register
ole.control::IShellWindows.RegisterPending
ole.control::IShellWindows.Revoke
ole.control::IShellWindows.OnNavigate
ole.control::IShellWindows.OnActivated
ole.control::IShellWindows.FindWindowSW
ole.control::IShellWindows.OnCreated
ole.control::IShellWindows.ProcessAttachDetach))
(without-redefinition-warnings
(ole:def-server-interface ole.control:DShellWindowsEvents)
(ole:def-ocx-class ole.control::channel-DShellWindowsEvents
(ole::control-event-channel :interfaces
ole.control:DShellWindowsEvents)
((ole::uuid :allocation :class :initform
(ole:unique-guid "{fe4106e0-399a-11d0-a48c-00a0c90a8f39}"))))
(progn (defun ole.control::event.DShellWindowsEvents.WindowRegistered
(ole::this.control ole::this.channel
ole.control::lCookie)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DShellWindowsEvents.WindowRegistered on ~s~%"
ole::this.control))
(msx:-WindowRegistered ole::this.control
ole::this.channel ole.control::lCookie))
(defmethod msx:-WindowRegistered ((ole::this.control t)
(ole::this.channel
ole.control::channel-DShellWindowsEvents)
ole.control::lCookie)
(declare (ignore ole.control::lCookie)) nil))
(progn (defun ole.control::event.DShellWindowsEvents.WindowRevoked
(ole::this.control ole::this.channel
ole.control::lCookie)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DShellWindowsEvents.WindowRevoked on ~s~%"
ole::this.control))
(msx:-WindowRevoked ole::this.control
ole::this.channel
ole.control::lCookie))
(defmethod msx:-WindowRevoked ((ole::this.control t)
(ole::this.channel
ole.control::channel-DShellWindowsEvents)
ole.control::lCookie)
(declare (ignore ole.control::lCookie)) nil))
(defmethod ole::dispatch-invocation ((ole::this.channel
ole.control::channel-DShellWindowsEvents)
ole::memid
ole::mode
ole::parms)
(declare (ignore-if-unused ole::mode ole::parms))
(let ((ole::this.control
(slot-value ole::this.channel 'ole::host)))
(case ole::memid
(200
(let ((ole.control::lCookie
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DShellWindowsEvents.WindowRegistered
ole::this.control ole::this.channel
ole.control::lCookie)
nil)))
(201
(let ((ole.control::lCookie
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DShellWindowsEvents.WindowRevoked
ole::this.control ole::this.channel
ole.control::lCookie)
nil)))
(t (signal 'ole::member-not-found))))))
(declaim (ftype function msx:-WindowRevoked
ole.control::event.DShellWindowsEvents.WindowRevoked
msx:-WindowRegistered
ole.control::event.DShellWindowsEvents.WindowRegistered))
(without-redefinition-warnings
(ole:def-server-interface ole.control:DWebBrowserEvents2)
(ole:def-ocx-class ole.control::channel-DWebBrowserEvents2
(ole::control-event-channel :interfaces
ole.control:DWebBrowserEvents2)
((ole::uuid :allocation :class :initform
(ole:unique-guid "{34a715a0-6587-11d0-924a-0020afc7ac4d}"))))
(progn (defun ole.control::event.DWebBrowserEvents2.StatusTextChange
(ole::this.control ole::this.channel
ole.control::Text)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.StatusTextChange on ~s~%"
ole::this.control))
(msx:-StatusTextChange ole::this.control
ole::this.channel ole.control::Text))
(defmethod msx:-StatusTextChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Text)
(declare (ignore ole.control::Text)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.ProgressChange
(ole::this.control ole::this.channel
ole.control::Progress ole.control::ProgressMax)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.ProgressChange on ~s~%"
ole::this.control))
(msx:-ProgressChange ole::this.control
ole::this.channel
ole.control::Progress
ole.control::ProgressMax))
(defmethod msx:-ProgressChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Progress
ole.control::ProgressMax)
(declare
(ignore ole.control::Progress
ole.control::ProgressMax))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.CommandStateChange
(ole::this.control ole::this.channel
ole.control::Command ole.control::Enable)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.CommandStateChange on ~s~%"
ole::this.control))
(msx:-CommandStateChange ole::this.control
ole::this.channel ole.control::Command
ole.control::Enable))
(defmethod msx:-CommandStateChange ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Command
ole.control::Enable)
(declare
(ignore ole.control::Command ole.control::Enable))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.DownloadBegin
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.DownloadBegin on ~s~%"
ole::this.control))
(msx:-DownloadBegin ole::this.control
ole::this.channel))
(defmethod msx:-DownloadBegin ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.DownloadComplete
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.DownloadComplete on ~s~%"
ole::this.control))
(msx:-DownloadComplete ole::this.control
ole::this.channel))
(defmethod msx:-DownloadComplete ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.TitleChange
(ole::this.control ole::this.channel
ole.control::Text)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.TitleChange on ~s~%"
ole::this.control))
(msx:-TitleChange ole::this.control ole::this.channel
ole.control::Text))
(defmethod msx:-TitleChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Text)
(declare (ignore ole.control::Text)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.PropertyChange
(ole::this.control ole::this.channel
ole.control::szProperty)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.PropertyChange on ~s~%"
ole::this.control))
(msx:-PropertyChange ole::this.control
ole::this.channel
ole.control::szProperty))
(defmethod msx:-PropertyChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::szProperty)
(declare (ignore ole.control::szProperty)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.BeforeNavigate2
(ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL
ole.control::Flags ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.BeforeNavigate2 on ~s~%"
ole::this.control))
(msx:-BeforeNavigate2 ole::this.control
ole::this.channel
ole.control::pDisp
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Cancel))
(defmethod msx:-BeforeNavigate2 ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Cancel)
(declare
(ignore ole.control::pDisp ole.control::URL
ole.control::Flags ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Cancel))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.NewWindow2
(ole::this.control ole::this.channel
ole.control::ppDisp ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.NewWindow2 on ~s~%"
ole::this.control))
(msx:-NewWindow2 ole::this.control ole::this.channel
ole.control::ppDisp
ole.control::Cancel))
(defmethod msx:-NewWindow2 ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::ppDisp
ole.control::Cancel)
(declare
(ignore ole.control::ppDisp ole.control::Cancel))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.NavigateComplete2
(ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.NavigateComplete2 on ~s~%"
ole::this.control))
(msx:-NavigateComplete2 ole::this.control
ole::this.channel ole.control::pDisp
ole.control::URL))
(defmethod msx:-NavigateComplete2 ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp
ole.control::URL)
(declare
(ignore ole.control::pDisp ole.control::URL))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.DocumentComplete
(ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.DocumentComplete on ~s~%"
ole::this.control))
(msx:-DocumentComplete ole::this.control
ole::this.channel ole.control::pDisp
ole.control::URL))
(defmethod msx:-DocumentComplete ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp
ole.control::URL)
(declare
(ignore ole.control::pDisp ole.control::URL))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnQuit
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnQuit on ~s~%"
ole::this.control))
(msx:-OnQuit ole::this.control ole::this.channel))
(defmethod msx:-OnQuit ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnVisible
(ole::this.control ole::this.channel
ole.control::Visible)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnVisible on ~s~%"
ole::this.control))
(msx:-OnVisible ole::this.control ole::this.channel
ole.control::Visible))
(defmethod msx:-OnVisible ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Visible)
(declare (ignore ole.control::Visible)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnToolBar
(ole::this.control ole::this.channel
ole.control::ToolBar)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnToolBar on ~s~%"
ole::this.control))
(msx:-OnToolBar ole::this.control ole::this.channel
ole.control::ToolBar))
(defmethod msx:-OnToolBar ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::ToolBar)
(declare (ignore ole.control::ToolBar)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnMenuBar
(ole::this.control ole::this.channel
ole.control::MenuBar)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnMenuBar on ~s~%"
ole::this.control))
(msx:-OnMenuBar ole::this.control ole::this.channel
ole.control::MenuBar))
(defmethod msx:-OnMenuBar ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::MenuBar)
(declare (ignore ole.control::MenuBar)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnStatusBar
(ole::this.control ole::this.channel
ole.control::StatusBar)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnStatusBar on ~s~%"
ole::this.control))
(msx:-OnStatusBar ole::this.control ole::this.channel
ole.control::StatusBar))
(defmethod msx:-OnStatusBar ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::StatusBar)
(declare (ignore ole.control::StatusBar)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnFullScreen
(ole::this.control ole::this.channel
ole.control::FullScreen)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnFullScreen on ~s~%"
ole::this.control))
(msx:-OnFullScreen ole::this.control
ole::this.channel
ole.control::FullScreen))
(defmethod msx:-OnFullScreen ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::FullScreen)
(declare (ignore ole.control::FullScreen)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.OnTheaterMode
(ole::this.control ole::this.channel
ole.control::TheaterMode)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.OnTheaterMode on ~s~%"
ole::this.control))
(msx:-OnTheaterMode ole::this.control
ole::this.channel
ole.control::TheaterMode))
(defmethod msx:-OnTheaterMode ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::TheaterMode)
(declare (ignore ole.control::TheaterMode)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.WindowSetResizable
(ole::this.control ole::this.channel
ole.control::Resizable)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.WindowSetResizable on ~s~%"
ole::this.control))
(msx:-WindowSetResizable ole::this.control
ole::this.channel ole.control::Resizable))
(defmethod msx:-WindowSetResizable ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Resizable)
(declare (ignore ole.control::Resizable)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.WindowSetLeft
(ole::this.control ole::this.channel
ole.control::Left)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.WindowSetLeft on ~s~%"
ole::this.control))
(msx:-WindowSetLeft ole::this.control
ole::this.channel
ole.control::Left))
(defmethod msx:-WindowSetLeft ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Left)
(declare (ignore ole.control::Left)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.WindowSetTop
(ole::this.control ole::this.channel
ole.control::Top)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.WindowSetTop on ~s~%"
ole::this.control))
(msx:-WindowSetTop ole::this.control
ole::this.channel
ole.control::Top))
(defmethod msx:-WindowSetTop ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Top)
(declare (ignore ole.control::Top)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.WindowSetWidth
(ole::this.control ole::this.channel
ole.control::Width)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.WindowSetWidth on ~s~%"
ole::this.control))
(msx:-WindowSetWidth ole::this.control
ole::this.channel
ole.control::Width))
(defmethod msx:-WindowSetWidth ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Width)
(declare (ignore ole.control::Width)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.WindowSetHeight
(ole::this.control ole::this.channel
ole.control::Height)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.WindowSetHeight on ~s~%"
ole::this.control))
(msx:-WindowSetHeight ole::this.control
ole::this.channel
ole.control::Height))
(defmethod msx:-WindowSetHeight ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Height)
(declare (ignore ole.control::Height)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.WindowClosing
(ole::this.control ole::this.channel
ole.control::IsChildWindow ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.WindowClosing on ~s~%"
ole::this.control))
(msx:-WindowClosing ole::this.control
ole::this.channel
ole.control::IsChildWindow
ole.control::Cancel))
(defmethod msx:-WindowClosing ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::IsChildWindow
ole.control::Cancel)
(declare
(ignore ole.control::IsChildWindow
ole.control::Cancel))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.ClientToHostWindow
(ole::this.control ole::this.channel
ole.control::CX ole.control::CY)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.ClientToHostWindow on ~s~%"
ole::this.control))
(msx:-ClientToHostWindow ole::this.control
ole::this.channel ole.control::CX ole.control::CY))
(defmethod msx:-ClientToHostWindow ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::CX
ole.control::CY)
(declare (ignore ole.control::CX ole.control::CY))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.SetSecureLockIcon
(ole::this.control ole::this.channel
ole.control::SecureLockIcon)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.SetSecureLockIcon on ~s~%"
ole::this.control))
(msx:-SetSecureLockIcon ole::this.control
ole::this.channel ole.control::SecureLockIcon))
(defmethod msx:-SetSecureLockIcon ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::SecureLockIcon)
(declare (ignore ole.control::SecureLockIcon)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.FileDownload
(ole::this.control ole::this.channel
ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.FileDownload on ~s~%"
ole::this.control))
(msx:-FileDownload ole::this.control
ole::this.channel
ole.control::Cancel))
(defmethod msx:-FileDownload ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::Cancel)
(declare (ignore ole.control::Cancel)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.NavigateError
(ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL
ole.control::Frame ole.control::StatusCode
ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.NavigateError on ~s~%"
ole::this.control))
(msx:-NavigateError ole::this.control
ole::this.channel
ole.control::pDisp
ole.control::URL
ole.control::Frame
ole.control::StatusCode
ole.control::Cancel))
(defmethod msx:-NavigateError ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp
ole.control::URL
ole.control::Frame
ole.control::StatusCode
ole.control::Cancel)
(declare
(ignore ole.control::pDisp ole.control::URL
ole.control::Frame ole.control::StatusCode
ole.control::Cancel))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.PrintTemplateInstantiation
(ole::this.control ole::this.channel
ole.control::pDisp)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.PrintTemplateInstantiation on ~s~%"
ole::this.control))
(msx:-PrintTemplateInstantiation ole::this.control
ole::this.channel ole.control::pDisp))
(defmethod msx:-PrintTemplateInstantiation ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp)
(declare (ignore ole.control::pDisp)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.PrintTemplateTeardown
(ole::this.control ole::this.channel
ole.control::pDisp)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.PrintTemplateTeardown on ~s~%"
ole::this.control))
(msx:-PrintTemplateTeardown ole::this.control
ole::this.channel ole.control::pDisp))
(defmethod msx:-PrintTemplateTeardown ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp)
(declare (ignore ole.control::pDisp)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.UpdatePageStatus
(ole::this.control ole::this.channel
ole.control::pDisp ole.control::nPage
ole.control::fDone)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.UpdatePageStatus on ~s~%"
ole::this.control))
(msx:-UpdatePageStatus ole::this.control
ole::this.channel ole.control::pDisp
ole.control::nPage ole.control::fDone))
(defmethod msx:-UpdatePageStatus ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::pDisp
ole.control::nPage
ole.control::fDone)
(declare
(ignore ole.control::pDisp ole.control::nPage
ole.control::fDone))
nil))
(progn (defun ole.control::event.DWebBrowserEvents2.PrivacyImpactedStateChange
(ole::this.control ole::this.channel
ole.control::bImpacted)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.PrivacyImpactedStateChange on ~s~%"
ole::this.control))
(msx:-PrivacyImpactedStateChange ole::this.control
ole::this.channel ole.control::bImpacted))
(defmethod msx:-PrivacyImpactedStateChange ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::bImpacted)
(declare (ignore ole.control::bImpacted)) nil))
(progn (defun ole.control::event.DWebBrowserEvents2.NewWindow3
(ole::this.control ole::this.channel
ole.control::ppDisp ole.control::Cancel
ole.control::dwFlags ole.control::bstrUrlContext
ole.control::bstrUrl)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents2.NewWindow3 on ~s~%"
ole::this.control))
(msx:-NewWindow3 ole::this.control ole::this.channel
ole.control::ppDisp
ole.control::Cancel
ole.control::dwFlags
ole.control::bstrUrlContext
ole.control::bstrUrl))
(defmethod msx:-NewWindow3 ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole.control::ppDisp
ole.control::Cancel
ole.control::dwFlags
ole.control::bstrUrlContext
ole.control::bstrUrl)
(declare
(ignore ole.control::ppDisp ole.control::Cancel
ole.control::dwFlags ole.control::bstrUrlContext
ole.control::bstrUrl))
nil))
(defmethod ole::dispatch-invocation ((ole::this.channel
ole.control::channel-DWebBrowserEvents2)
ole::memid
ole::mode
ole::parms)
(declare (ignore-if-unused ole::mode ole::parms))
(let ((ole::this.control
(slot-value ole::this.channel 'ole::host)))
(case ole::memid
(102
(let ((ole.control::Text
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.StatusTextChange
ole::this.control ole::this.channel
ole.control::Text)
nil)))
(108
(let ((ole.control::ProgressMax
(ole::get-nth-arg ole::parms 1))
(ole.control::Progress
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.ProgressChange
ole::this.control ole::this.channel
ole.control::Progress
ole.control::ProgressMax)
nil)))
(105
(let ((ole.control::Enable
(ole::get-nth-arg ole::parms 1))
(ole.control::Command
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.CommandStateChange
ole::this.control ole::this.channel
ole.control::Command ole.control::Enable)
nil)))
(106
(let ()
(prog1 (ole.control::event.DWebBrowserEvents2.DownloadBegin
ole::this.control ole::this.channel)
nil)))
(104
(let ()
(prog1 (ole.control::event.DWebBrowserEvents2.DownloadComplete
ole::this.control ole::this.channel)
nil)))
(113
(let ((ole.control::Text
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.TitleChange
ole::this.control ole::this.channel
ole.control::Text)
nil)))
(112
(let ((ole.control::szProperty
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.PropertyChange
ole::this.control ole::this.channel
ole.control::szProperty)
nil)))
(250
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 6))
(ole.control::Headers
(ole::get-nth-arg ole::parms 5))
(ole.control::PostData
(ole::get-nth-arg ole::parms 4))
(ole.control::TargetFrameName
(ole::get-nth-arg ole::parms 3))
(ole.control::Flags
(ole::get-nth-arg ole::parms 2))
(ole.control::URL
(ole::get-nth-arg ole::parms 1))
(ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.BeforeNavigate2
ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(251
(let ((ole::event-outval-values
(make-array 2 :initial-element :unchanged))
(ole::event-outval-slots #(0 1))
(ole::event-outval-names #(:Cancel :ppDisp))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 1))
(ole.control::ppDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.NewWindow2
ole::this.control ole::this.channel
ole.control::ppDisp ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(252
(let ((ole.control::URL
(ole::get-nth-arg ole::parms 1))
(ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.NavigateComplete2
ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL)
nil)))
(259
(let ((ole.control::URL
(ole::get-nth-arg ole::parms 1))
(ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.DocumentComplete
ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL)
nil)))
(253
(let ()
(prog1 (ole.control::event.DWebBrowserEvents2.OnQuit
ole::this.control ole::this.channel)
nil)))
(254
(let ((ole.control::Visible
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.OnVisible
ole::this.control ole::this.channel
ole.control::Visible)
nil)))
(255
(let ((ole.control::ToolBar
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.OnToolBar
ole::this.control ole::this.channel
ole.control::ToolBar)
nil)))
(256
(let ((ole.control::MenuBar
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.OnMenuBar
ole::this.control ole::this.channel
ole.control::MenuBar)
nil)))
(257
(let ((ole.control::StatusBar
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.OnStatusBar
ole::this.control ole::this.channel
ole.control::StatusBar)
nil)))
(258
(let ((ole.control::FullScreen
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.OnFullScreen
ole::this.control ole::this.channel
ole.control::FullScreen)
nil)))
(260
(let ((ole.control::TheaterMode
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.OnTheaterMode
ole::this.control ole::this.channel
ole.control::TheaterMode)
nil)))
(262
(let ((ole.control::Resizable
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.WindowSetResizable
ole::this.control ole::this.channel
ole.control::Resizable)
nil)))
(264
(let ((ole.control::Left
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.WindowSetLeft
ole::this.control ole::this.channel
ole.control::Left)
nil)))
(265
(let ((ole.control::Top
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.WindowSetTop
ole::this.control ole::this.channel
ole.control::Top)
nil)))
(266
(let ((ole.control::Width
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.WindowSetWidth
ole::this.control ole::this.channel
ole.control::Width)
nil)))
(267
(let ((ole.control::Height
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.WindowSetHeight
ole::this.control ole::this.channel
ole.control::Height)
nil)))
(263
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 1))
(ole.control::IsChildWindow
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.WindowClosing
ole::this.control ole::this.channel
ole.control::IsChildWindow
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(268
(let ((ole::event-outval-values
(make-array 2 :initial-element :unchanged))
(ole::event-outval-slots #(0 1))
(ole::event-outval-names #(:CY :CX))
(ole.control::CY (ole::get-nth-arg ole::parms 1))
(ole.control::CX
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.ClientToHostWindow
ole::this.control ole::this.channel
ole.control::CX ole.control::CY)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(269
(let ((ole.control::SecureLockIcon
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.SetSecureLockIcon
ole::this.control ole::this.channel
ole.control::SecureLockIcon)
nil)))
(270
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.FileDownload
ole::this.control ole::this.channel
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(271
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 4))
(ole.control::StatusCode
(ole::get-nth-arg ole::parms 3))
(ole.control::Frame
(ole::get-nth-arg ole::parms 2))
(ole.control::URL
(ole::get-nth-arg ole::parms 1))
(ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.NavigateError
ole::this.control ole::this.channel
ole.control::pDisp ole.control::URL
ole.control::Frame ole.control::StatusCode
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(225
(let ((ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.PrintTemplateInstantiation
ole::this.control ole::this.channel
ole.control::pDisp)
nil)))
(226
(let ((ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.PrintTemplateTeardown
ole::this.control ole::this.channel
ole.control::pDisp)
nil)))
(227
(let ((ole.control::fDone
(ole::get-nth-arg ole::parms 2))
(ole.control::nPage
(ole::get-nth-arg ole::parms 1))
(ole.control::pDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.UpdatePageStatus
ole::this.control ole::this.channel
ole.control::pDisp ole.control::nPage
ole.control::fDone)
nil)))
(272
(let ((ole.control::bImpacted
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.PrivacyImpactedStateChange
ole::this.control ole::this.channel
ole.control::bImpacted)
nil)))
(273
(let ((ole::event-outval-values
(make-array 2 :initial-element :unchanged))
(ole::event-outval-slots #(3 4))
(ole::event-outval-names #(:Cancel :ppDisp))
(ole.control::bstrUrl
(ole::get-nth-arg ole::parms 4))
(ole.control::bstrUrlContext
(ole::get-nth-arg ole::parms 3))
(ole.control::dwFlags
(ole::get-nth-arg ole::parms 2))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 1))
(ole.control::ppDisp
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents2.NewWindow3
ole::this.control ole::this.channel
ole.control::ppDisp ole.control::Cancel
ole.control::dwFlags
ole.control::bstrUrlContext
ole.control::bstrUrl)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(t (signal 'ole::member-not-found))))))
(declaim (ftype function msx:-NewWindow3
ole.control::event.DWebBrowserEvents2.NewWindow3
msx:-PrivacyImpactedStateChange
ole.control::event.DWebBrowserEvents2.PrivacyImpactedStateChange
msx:-UpdatePageStatus
ole.control::event.DWebBrowserEvents2.UpdatePageStatus
msx:-PrintTemplateTeardown
ole.control::event.DWebBrowserEvents2.PrintTemplateTeardown
msx:-PrintTemplateInstantiation
ole.control::event.DWebBrowserEvents2.PrintTemplateInstantiation
msx:-NavigateError
ole.control::event.DWebBrowserEvents2.NavigateError
msx:-FileDownload
ole.control::event.DWebBrowserEvents2.FileDownload
msx:-SetSecureLockIcon
ole.control::event.DWebBrowserEvents2.SetSecureLockIcon
msx:-ClientToHostWindow
ole.control::event.DWebBrowserEvents2.ClientToHostWindow
msx:-WindowClosing
ole.control::event.DWebBrowserEvents2.WindowClosing
msx:-WindowSetHeight
ole.control::event.DWebBrowserEvents2.WindowSetHeight
msx:-WindowSetWidth
ole.control::event.DWebBrowserEvents2.WindowSetWidth
msx:-WindowSetTop
ole.control::event.DWebBrowserEvents2.WindowSetTop
msx:-WindowSetLeft
ole.control::event.DWebBrowserEvents2.WindowSetLeft
msx:-WindowSetResizable
ole.control::event.DWebBrowserEvents2.WindowSetResizable
msx:-OnTheaterMode
ole.control::event.DWebBrowserEvents2.OnTheaterMode
msx:-OnFullScreen
ole.control::event.DWebBrowserEvents2.OnFullScreen
msx:-OnStatusBar
ole.control::event.DWebBrowserEvents2.OnStatusBar
msx:-OnMenuBar
ole.control::event.DWebBrowserEvents2.OnMenuBar
msx:-OnToolBar
ole.control::event.DWebBrowserEvents2.OnToolBar
msx:-OnVisible
ole.control::event.DWebBrowserEvents2.OnVisible
msx:-OnQuit
ole.control::event.DWebBrowserEvents2.OnQuit
msx:-DocumentComplete
ole.control::event.DWebBrowserEvents2.DocumentComplete
msx:-NavigateComplete2
ole.control::event.DWebBrowserEvents2.NavigateComplete2
msx:-NewWindow2
ole.control::event.DWebBrowserEvents2.NewWindow2
msx:-BeforeNavigate2
ole.control::event.DWebBrowserEvents2.BeforeNavigate2
msx:-PropertyChange
ole.control::event.DWebBrowserEvents2.PropertyChange
msx:-TitleChange
ole.control::event.DWebBrowserEvents2.TitleChange
msx:-DownloadComplete
ole.control::event.DWebBrowserEvents2.DownloadComplete
msx:-DownloadBegin
ole.control::event.DWebBrowserEvents2.DownloadBegin
msx:-CommandStateChange
ole.control::event.DWebBrowserEvents2.CommandStateChange
msx:-ProgressChange
ole.control::event.DWebBrowserEvents2.ProgressChange
msx:-StatusTextChange
ole.control::event.DWebBrowserEvents2.StatusTextChange))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:IWebBrowser))
(without-redefinition-warnings
(defclass ole.control::object-with-IWebBrowser-client
(ole::object-with-interfaces)
((ole.control::i.IWebBrowser :initform nil
:initarg
ole.control::object-with-IWebBrowser-client))))
(without-redefinition-warnings
(defmethod ole.control:IWebBrowser ((ole::object
ole.control::object-with-IWebBrowser-client))
(or (slot-value ole::object
'ole.control::i.IWebBrowser)
(setf (slot-value ole::object
'ole.control::i.IWebBrowser)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IWebBrowser)))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Busy ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
212
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.LocationURL ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
211
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.LocationName ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
210
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Height ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
209
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser.Height) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser ole::this.object) 209
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Width ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
208
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser.Width) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser ole::this.object) 208
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Top ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
207
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser.Top) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser ole::this.object) 207
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Left ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
206
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser.Left) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser ole::this.object) 206
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Type ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
205
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.TopLevelContainer ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
204
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Document ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
203
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Container ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
202
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Parent ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
201
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Application ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0 (ole.control:IWebBrowser
ole::this.object)
200
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Stop ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser ole::this.object) 106
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Refresh2 ((ole::this.object
ole.control::object-with-IWebBrowser-client)
&key
(ole.control::Level
:missing))
(ole::control.invoke.1-
(ole.control:IWebBrowser ole::this.object) 105
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Level)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Refresh ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser ole::this.object)
4294966746
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.Navigate ((ole::this.object
ole.control::object-with-IWebBrowser-client)
ole.control::URL
&key
(ole.control::Flags
:missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData
:missing)
(ole.control::Headers
:missing))
(ole::control.invoke.5-
(ole.control:IWebBrowser ole::this.object) 104
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.GoSearch ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser ole::this.object) 103
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.GoHome ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser ole::this.object) 102
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.GoForward ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser ole::this.object) 101
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser.GoBack ((ole::this.object
ole.control::object-with-IWebBrowser-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser ole::this.object) 100
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IWebBrowser))
(declaim (ftype function ole.control::IWebBrowser.GoBack
ole.control::IWebBrowser.GoForward
ole.control::IWebBrowser.GoHome
ole.control::IWebBrowser.GoSearch
ole.control::IWebBrowser.Navigate
ole.control::IWebBrowser.Refresh
ole.control::IWebBrowser.Refresh2
ole.control::IWebBrowser.Stop
ole.control::IWebBrowser.Application
ole.control::IWebBrowser.Parent
ole.control::IWebBrowser.Container
ole.control::IWebBrowser.Document
ole.control::IWebBrowser.TopLevelContainer
ole.control::IWebBrowser.Type
(setf ole.control::IWebBrowser.Left)
ole.control::IWebBrowser.Left
(setf ole.control::IWebBrowser.Top)
ole.control::IWebBrowser.Top
(setf ole.control::IWebBrowser.Width)
ole.control::IWebBrowser.Width
(setf ole.control::IWebBrowser.Height)
ole.control::IWebBrowser.Height
ole.control::IWebBrowser.LocationName
ole.control::IWebBrowser.LocationURL
ole.control::IWebBrowser.Busy))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:IWebBrowserApp))
(without-redefinition-warnings
(defclass ole.control::object-with-IWebBrowserApp-client
(ole.control::object-with-IWebBrowser-client)
((ole.control::i.IWebBrowserApp :initform nil
:initarg
ole.control::object-with-IWebBrowserApp-client))))
(without-redefinition-warnings
(defmethod ole.control:IWebBrowserApp ((ole::object
ole.control::object-with-IWebBrowserApp-client))
(or (slot-value ole::object
'ole.control::i.IWebBrowserApp)
(setf (slot-value ole::object
'ole.control::i.IWebBrowserApp)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IWebBrowserApp)))))
(without-redefinition-warnings
(defmethod ole.control:IWebBrowser ((ole::object
ole.control::object-with-IWebBrowserApp-client))
(or (slot-value ole::object
'ole.control::i.IWebBrowserApp)
(setf (slot-value ole::object
'ole.control::i.IWebBrowserApp)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IWebBrowserApp)))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.FullScreen ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
407
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.FullScreen) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 407
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.MenuBar ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
406
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.MenuBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 406
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.ToolBar ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
405
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.ToolBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 405
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.StatusText ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
404
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.StatusText) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 404
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.StatusBar ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
403
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.StatusBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 403
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Visible ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
402
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.Visible) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 402
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Path ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
401
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.FullName ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
400
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.HWND ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
4294966781
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Name ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
0
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.GetProperty ((ole::this.object
ole.control::object-with-IWebBrowserApp-client)
ole.control::Property)
(ole::control.invoke.1 (ole.control:IWebBrowserApp
ole::this.object)
303
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::Property)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.PutProperty ((ole::this.object
ole.control::object-with-IWebBrowserApp-client)
ole.control::Property
ole.control::vtValue)
(ole::control.invoke.2-
(ole.control:IWebBrowserApp ole::this.object) 302
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Property ole.control::vtValue)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.ClientToWindow ((ole::this.object
ole.control::object-with-IWebBrowserApp-client)
ole.control::pcx
ole.control::pcy)
(ole::with-retareas ((ole::m.parms ole::dispparams)
(ole::m.arg-variant-array
(:array ole:variant 2))
(ole.control::slotfor.pcy :int)
(ole.control::slotfor.pcx :int)
(ole::m.argerr :int)
(ole::m.excep ole:excepinfo))
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 0)
':int ole.control::slotfor.pcy)
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 1)
':int ole.control::slotfor.pcx)
(setf (ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cArgs)
2
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cNamedArgs)
0
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgvarg)
ole::m.arg-variant-array
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgdispidNamedArgs)
0)
(ole::variant-astore ole::m.arg-variant-array 0
ole.control::pcy)
(ole::variant-astore ole::m.arg-variant-array 1
ole.control::pcx)
(unwind-protect
(progn nil
(ole:check-return
(ole::IDispatch.Invoke
(ole:h
(ole.control:IWebBrowserApp
ole::this.object))
301
(ole:guid-binary ole:IID_NULL)
ole:*ole-locale*
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole::m.parms
0
ole::m.excep
ole::m.argerr))
nil
(values
nil
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Quit ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object) 300
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Busy ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
212
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.LocationURL ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
211
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.LocationName ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
210
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Height ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
209
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.Height) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 209
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Width ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
208
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.Width) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 208
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Top ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
207
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.Top) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 207
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Left ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
206
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowserApp.Left) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowserApp ole::this.object) 206
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Type ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
205
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.TopLevelContainer ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
204
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Document ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
203
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Container ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
202
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Parent ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
201
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Application ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0 (ole.control:IWebBrowserApp
ole::this.object)
200
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Stop ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object) 106
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Refresh2 ((ole::this.object
ole.control::object-with-IWebBrowserApp-client)
&key
(ole.control::Level
:missing))
(ole::control.invoke.1-
(ole.control:IWebBrowserApp ole::this.object) 105
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Level)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Refresh ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object)
4294966746
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.Navigate ((ole::this.object
ole.control::object-with-IWebBrowserApp-client)
ole.control::URL
&key
(ole.control::Flags
:missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData
:missing)
(ole.control::Headers
:missing))
(ole::control.invoke.5-
(ole.control:IWebBrowserApp ole::this.object) 104
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.GoSearch ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object) 103
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.GoHome ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object) 102
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.GoForward ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object) 101
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowserApp.GoBack ((ole::this.object
ole.control::object-with-IWebBrowserApp-client))
(ole::control.invoke.0-
(ole.control:IWebBrowserApp ole::this.object) 100
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IWebBrowser
ole.control:IWebBrowserApp))
(declaim (ftype function ole.control::IWebBrowserApp.GoBack
ole.control::IWebBrowserApp.GoForward
ole.control::IWebBrowserApp.GoHome
ole.control::IWebBrowserApp.GoSearch
ole.control::IWebBrowserApp.Navigate
ole.control::IWebBrowserApp.Refresh
ole.control::IWebBrowserApp.Refresh2
ole.control::IWebBrowserApp.Stop
ole.control::IWebBrowserApp.Application
ole.control::IWebBrowserApp.Parent
ole.control::IWebBrowserApp.Container
ole.control::IWebBrowserApp.Document
ole.control::IWebBrowserApp.TopLevelContainer
ole.control::IWebBrowserApp.Type
(setf ole.control::IWebBrowserApp.Left)
ole.control::IWebBrowserApp.Left
(setf ole.control::IWebBrowserApp.Top)
ole.control::IWebBrowserApp.Top
(setf ole.control::IWebBrowserApp.Width)
ole.control::IWebBrowserApp.Width
(setf ole.control::IWebBrowserApp.Height)
ole.control::IWebBrowserApp.Height
ole.control::IWebBrowserApp.LocationName
ole.control::IWebBrowserApp.LocationURL
ole.control::IWebBrowserApp.Busy
ole.control::IWebBrowserApp.Quit
ole.control::IWebBrowserApp.ClientToWindow
ole.control::IWebBrowserApp.PutProperty
ole.control::IWebBrowserApp.GetProperty
ole.control::IWebBrowserApp.Name
ole.control::IWebBrowserApp.HWND
ole.control::IWebBrowserApp.FullName
ole.control::IWebBrowserApp.Path
(setf ole.control::IWebBrowserApp.Visible)
ole.control::IWebBrowserApp.Visible
(setf ole.control::IWebBrowserApp.StatusBar)
ole.control::IWebBrowserApp.StatusBar
(setf ole.control::IWebBrowserApp.StatusText)
ole.control::IWebBrowserApp.StatusText
(setf ole.control::IWebBrowserApp.ToolBar)
ole.control::IWebBrowserApp.ToolBar
(setf ole.control::IWebBrowserApp.MenuBar)
ole.control::IWebBrowserApp.MenuBar
(setf ole.control::IWebBrowserApp.FullScreen)
ole.control::IWebBrowserApp.FullScreen))
(progn (without-redefinition-warnings
(ole:def-client-interface ole.control:IWebBrowser2))
(without-redefinition-warnings
(defclass ole.control::object-with-IWebBrowser2-client
(ole.control::object-with-IWebBrowserApp-client)
((ole.control::i.IWebBrowser2 :initform nil
:initarg
ole.control::object-with-IWebBrowser2-client))))
(without-redefinition-warnings
(defmethod ole.control:IWebBrowser2 ((ole::object
ole.control::object-with-IWebBrowser2-client))
(or (slot-value ole::object
'ole.control::i.IWebBrowser2)
(setf (slot-value ole::object
'ole.control::i.IWebBrowser2)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IWebBrowser2)))))
(without-redefinition-warnings
(defmethod ole.control:IWebBrowserApp ((ole::object
ole.control::object-with-IWebBrowser2-client))
(or (slot-value ole::object
'ole.control::i.IWebBrowser2)
(setf (slot-value ole::object
'ole.control::i.IWebBrowser2)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IWebBrowser2)))))
(without-redefinition-warnings
(defmethod ole.control:IWebBrowser ((ole::object
ole.control::object-with-IWebBrowser2-client))
(or (slot-value ole::object
'ole.control::i.IWebBrowser2)
(setf (slot-value ole::object
'ole.control::i.IWebBrowser2)
(ole:query-interface (ole::client-interface
ole::object)
ole.control::IID_IWebBrowser2)))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Resizable ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
556
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Resizable) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 556
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.AddressBar ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
555
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.AddressBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 555
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.TheaterMode ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
554
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.TheaterMode) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 554
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.RegisterAsDropTarget ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
553
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.RegisterAsDropTarget) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 553
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.RegisterAsBrowser ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
552
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.RegisterAsBrowser) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 552
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Silent ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
551
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Silent) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 551
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Offline ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
550
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Offline) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 550
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.ReadyState ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
4294966771
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.ShowBrowserBar ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::pvaClsid
&key
(ole.control::pvarShow
:missing)
(ole.control::pvarSize
:missing))
(ole::control.invoke.3-
(ole.control:IWebBrowser2 ole::this.object) 503
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::pvaClsid ole.control::pvarShow
ole.control::pvarSize)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.ExecWB ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::cmdID
ole.control::cmdexecopt
&key
(ole.control::pvaIn
:missing)
(ole.control::pvaOut
:missing))
(ole::with-retareas ((ole::m.parms ole::dispparams)
(ole::m.arg-variant-array
(:array ole:variant 4))
(ole.control::slotfor.pvaOut
ole:variant)
(ole::m.argerr :int)
(ole::m.excep ole:excepinfo))
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 0)
'ole:variant ole.control::slotfor.pvaOut)
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantInit (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))
(ole:VariantInit ole.control::slotfor.pvaOut)
(setf (ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cArgs)
4
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cNamedArgs)
0
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgvarg)
ole::m.arg-variant-array
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgdispidNamedArgs)
0)
(ole::variant-astore ole::m.arg-variant-array 0
ole.control::pvaOut)
(ole::variant-astore ole::m.arg-variant-array 1
ole.control::pvaIn)
(ole::variant-astore ole::m.arg-variant-array 2
ole.control::cmdexecopt)
(ole::variant-astore ole::m.arg-variant-array 3
ole.control::cmdID)
(unwind-protect
(progn nil
(ole:check-return
(ole::IDispatch.Invoke
(ole:h
(ole.control:IWebBrowser2
ole::this.object))
502
(ole:guid-binary ole:IID_NULL)
ole:*ole-locale*
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole::m.parms
0
ole::m.excep
ole::m.argerr))
nil
(values
nil
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
2))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
3))))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.QueryStatusWB ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::cmdID)
(ole::control.invoke.1 (ole.control:IWebBrowser2
ole::this.object)
501
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::cmdID)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Navigate2 ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::URL
&key
(ole.control::Flags
:missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData
:missing)
(ole.control::Headers
:missing))
(ole::control.invoke.5-
(ole.control:IWebBrowser2 ole::this.object) 500
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.FullScreen ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
407
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.FullScreen) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 407
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.MenuBar ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
406
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.MenuBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 406
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.ToolBar ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
405
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.ToolBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 405
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.StatusText ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
404
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.StatusText) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 404
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.StatusBar ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
403
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.StatusBar) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 403
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Visible ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
402
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Visible) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 402
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Path ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
401
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.FullName ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
400
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.HWND ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
4294966781
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Name ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
0
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.GetProperty ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::Property)
(ole::control.invoke.1 (ole.control:IWebBrowser2
ole::this.object)
303
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil ole.control::Property)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.PutProperty ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::Property
ole.control::vtValue)
(ole::control.invoke.2-
(ole.control:IWebBrowser2 ole::this.object) 302
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Property ole.control::vtValue)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.ClientToWindow ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::pcx
ole.control::pcy)
(ole::with-retareas ((ole::m.parms ole::dispparams)
(ole::m.arg-variant-array
(:array ole:variant 2))
(ole.control::slotfor.pcy :int)
(ole.control::slotfor.pcx :int)
(ole::m.argerr :int)
(ole::m.excep ole:excepinfo))
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 0)
':int ole.control::slotfor.pcy)
(ole::init-variant-reference
(ole:xeno-address '(:array ole:variant)
ole::m.arg-variant-array 1)
':int ole.control::slotfor.pcx)
(setf (ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cArgs)
2
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::cNamedArgs)
0
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgvarg)
ole::m.arg-variant-array
(ole:xeno-slot 'ole::dispparams ole::m.parms
'ole::rgdispidNamedArgs)
0)
(ole::variant-astore ole::m.arg-variant-array 0
ole.control::pcy)
(ole::variant-astore ole::m.arg-variant-array 1
ole.control::pcx)
(unwind-protect
(progn nil
(ole:check-return
(ole::IDispatch.Invoke
(ole:h
(ole.control:IWebBrowser2
ole::this.object))
301
(ole:guid-binary ole:IID_NULL)
ole:*ole-locale*
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole::m.parms
0
ole::m.excep
ole::m.argerr))
nil
(values
nil
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))
(ole:variant-value
(ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
0))
(ole:VariantClear (ole:xeno-address
'(:array ole:variant)
ole::m.arg-variant-array
1))))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Quit ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object) 300
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Busy ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
212
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.LocationURL ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
211
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.LocationName ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
210
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Height ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
209
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Height) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 209
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Width ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
208
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Width) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 208
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Top ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
207
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Top) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 207
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Left ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
206
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod (setf ole.control::IWebBrowser2.Left) (ole::set.value
(ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.setf.1
(ole.control:IWebBrowser2 ole::this.object) 206
ole::set.value)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Type ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
205
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.TopLevelContainer ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
204
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Document ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
203
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Container ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
202
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Parent ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
201
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Application ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0 (ole.control:IWebBrowser2
ole::this.object)
200
(logior
ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
nil)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Stop ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object) 106
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Refresh2 ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
&key
(ole.control::Level
:missing))
(ole::control.invoke.1-
(ole.control:IWebBrowser2 ole::this.object) 105
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::Level)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Refresh ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object)
4294966746
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.Navigate ((ole::this.object
ole.control::object-with-IWebBrowser2-client)
ole.control::URL
&key
(ole.control::Flags
:missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData
:missing)
(ole.control::Headers
:missing))
(ole::control.invoke.5-
(ole.control:IWebBrowser2 ole::this.object) 104
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers)))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.GoSearch ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object) 103
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.GoHome ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object) 102
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.GoForward ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object) 101
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET))))
(without-redefinition-warnings
(defmethod ole.control::IWebBrowser2.GoBack ((ole::this.object
ole.control::object-with-IWebBrowser2-client))
(ole::control.invoke.0-
(ole.control:IWebBrowser2 ole::this.object) 100
(logior ole:DISPATCH_METHOD
ole:DISPATCH_PROPERTYGET)))))
(declaim (ftype function ole.control:IWebBrowser
ole.control:IWebBrowserApp ole.control:IWebBrowser2))
(declaim (ftype function ole.control::IWebBrowser2.GoBack
ole.control::IWebBrowser2.GoForward
ole.control::IWebBrowser2.GoHome
ole.control::IWebBrowser2.GoSearch
ole.control::IWebBrowser2.Navigate
ole.control::IWebBrowser2.Refresh
ole.control::IWebBrowser2.Refresh2
ole.control::IWebBrowser2.Stop
ole.control::IWebBrowser2.Application
ole.control::IWebBrowser2.Parent
ole.control::IWebBrowser2.Container
ole.control::IWebBrowser2.Document
ole.control::IWebBrowser2.TopLevelContainer
ole.control::IWebBrowser2.Type
(setf ole.control::IWebBrowser2.Left)
ole.control::IWebBrowser2.Left
(setf ole.control::IWebBrowser2.Top)
ole.control::IWebBrowser2.Top
(setf ole.control::IWebBrowser2.Width)
ole.control::IWebBrowser2.Width
(setf ole.control::IWebBrowser2.Height)
ole.control::IWebBrowser2.Height
ole.control::IWebBrowser2.LocationName
ole.control::IWebBrowser2.LocationURL
ole.control::IWebBrowser2.Busy
ole.control::IWebBrowser2.Quit
ole.control::IWebBrowser2.ClientToWindow
ole.control::IWebBrowser2.PutProperty
ole.control::IWebBrowser2.GetProperty
ole.control::IWebBrowser2.Name
ole.control::IWebBrowser2.HWND
ole.control::IWebBrowser2.FullName
ole.control::IWebBrowser2.Path
(setf ole.control::IWebBrowser2.Visible)
ole.control::IWebBrowser2.Visible
(setf ole.control::IWebBrowser2.StatusBar)
ole.control::IWebBrowser2.StatusBar
(setf ole.control::IWebBrowser2.StatusText)
ole.control::IWebBrowser2.StatusText
(setf ole.control::IWebBrowser2.ToolBar)
ole.control::IWebBrowser2.ToolBar
(setf ole.control::IWebBrowser2.MenuBar)
ole.control::IWebBrowser2.MenuBar
(setf ole.control::IWebBrowser2.FullScreen)
ole.control::IWebBrowser2.FullScreen
ole.control::IWebBrowser2.Navigate2
ole.control::IWebBrowser2.QueryStatusWB
ole.control::IWebBrowser2.ExecWB
ole.control::IWebBrowser2.ShowBrowserBar
ole.control::IWebBrowser2.ReadyState
(setf ole.control::IWebBrowser2.Offline)
ole.control::IWebBrowser2.Offline
(setf ole.control::IWebBrowser2.Silent)
ole.control::IWebBrowser2.Silent
(setf ole.control::IWebBrowser2.RegisterAsBrowser)
ole.control::IWebBrowser2.RegisterAsBrowser
(setf ole.control::IWebBrowser2.RegisterAsDropTarget)
ole.control::IWebBrowser2.RegisterAsDropTarget
(setf ole.control::IWebBrowser2.TheaterMode)
ole.control::IWebBrowser2.TheaterMode
(setf ole.control::IWebBrowser2.AddressBar)
ole.control::IWebBrowser2.AddressBar
(setf ole.control::IWebBrowser2.Resizable)
ole.control::IWebBrowser2.Resizable))
(without-redefinition-warnings
(ole:def-server-interface ole.control:DWebBrowserEvents)
(ole:def-ocx-class ole.control::channel-DWebBrowserEvents
(ole::control-event-channel :interfaces
ole.control:DWebBrowserEvents)
((ole::uuid :allocation :class :initform
(ole:unique-guid "{eab22ac2-30c1-11cf-a7eb-0000c05bae0b}"))))
(progn (defun ole.control::event.DWebBrowserEvents.BeforeNavigate
(ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.BeforeNavigate on ~s~%"
ole::this.control))
(msx:-BeforeNavigate ole::this.control
ole::this.channel
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Cancel))
(defmethod msx:-BeforeNavigate ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Cancel)
(declare
(ignore ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Cancel))
nil))
(progn (defun ole.control::event.DWebBrowserEvents.NavigateComplete
(ole::this.control ole::this.channel
ole.control::URL)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.NavigateComplete on ~s~%"
ole::this.control))
(msx:-NavigateComplete ole::this.control
ole::this.channel ole.control::URL))
(defmethod msx:-NavigateComplete ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::URL)
(declare (ignore ole.control::URL)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.StatusTextChange
(ole::this.control ole::this.channel
ole.control::Text)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.StatusTextChange on ~s~%"
ole::this.control))
(msx:-StatusTextChange ole::this.control
ole::this.channel ole.control::Text))
(defmethod msx:-StatusTextChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::Text)
(declare (ignore ole.control::Text)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.ProgressChange
(ole::this.control ole::this.channel
ole.control::Progress ole.control::ProgressMax)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.ProgressChange on ~s~%"
ole::this.control))
(msx:-ProgressChange ole::this.control
ole::this.channel
ole.control::Progress
ole.control::ProgressMax))
(defmethod msx:-ProgressChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::Progress
ole.control::ProgressMax)
(declare
(ignore ole.control::Progress
ole.control::ProgressMax))
nil))
(progn (defun ole.control::event.DWebBrowserEvents.DownloadComplete
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.DownloadComplete on ~s~%"
ole::this.control))
(msx:-DownloadComplete ole::this.control
ole::this.channel))
(defmethod msx:-DownloadComplete ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.CommandStateChange
(ole::this.control ole::this.channel
ole.control::Command ole.control::Enable)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.CommandStateChange on ~s~%"
ole::this.control))
(msx:-CommandStateChange ole::this.control
ole::this.channel ole.control::Command
ole.control::Enable))
(defmethod msx:-CommandStateChange ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::Command
ole.control::Enable)
(declare
(ignore ole.control::Command ole.control::Enable))
nil))
(progn (defun ole.control::event.DWebBrowserEvents.DownloadBegin
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.DownloadBegin on ~s~%"
ole::this.control))
(msx:-DownloadBegin ole::this.control
ole::this.channel))
(defmethod msx:-DownloadBegin ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.NewWindow
(ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Processed)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.NewWindow on ~s~%"
ole::this.control))
(msx:-NewWindow ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Processed))
(defmethod msx:-NewWindow ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Processed)
(declare
(ignore ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Processed))
nil))
(progn (defun ole.control::event.DWebBrowserEvents.TitleChange
(ole::this.control ole::this.channel
ole.control::Text)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.TitleChange on ~s~%"
ole::this.control))
(msx:-TitleChange ole::this.control ole::this.channel
ole.control::Text))
(defmethod msx:-TitleChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::Text)
(declare (ignore ole.control::Text)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.FrameBeforeNavigate
(ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.FrameBeforeNavigate on ~s~%"
ole::this.control))
(msx:-FrameBeforeNavigate ole::this.control
ole::this.channel ole.control::URL
ole.control::Flags ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Cancel))
(defmethod msx:-FrameBeforeNavigate ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Cancel)
(declare
(ignore ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Cancel))
nil))
(progn (defun ole.control::event.DWebBrowserEvents.FrameNavigateComplete
(ole::this.control ole::this.channel
ole.control::URL)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.FrameNavigateComplete on ~s~%"
ole::this.control))
(msx:-FrameNavigateComplete ole::this.control
ole::this.channel ole.control::URL))
(defmethod msx:-FrameNavigateComplete ((ole::this.control
t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::URL)
(declare (ignore ole.control::URL)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.FrameNewWindow
(ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Processed)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.FrameNewWindow on ~s~%"
ole::this.control))
(msx:-FrameNewWindow ole::this.control
ole::this.channel
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Processed))
(defmethod msx:-FrameNewWindow ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::URL
ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData
ole.control::Headers
ole.control::Processed)
(declare
(ignore ole.control::URL ole.control::Flags
ole.control::TargetFrameName ole.control::PostData
ole.control::Headers ole.control::Processed))
nil))
(progn (defun ole.control::event.DWebBrowserEvents.Quit
(ole::this.control ole::this.channel
ole.control::Cancel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.Quit on ~s~%"
ole::this.control))
(msx:-Quit ole::this.control ole::this.channel
ole.control::Cancel))
(defmethod msx:-Quit ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::Cancel)
(declare (ignore ole.control::Cancel)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.WindowMove
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.WindowMove on ~s~%"
ole::this.control))
(msx:-WindowMove ole::this.control
ole::this.channel))
(defmethod msx:-WindowMove ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.WindowResize
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.WindowResize on ~s~%"
ole::this.control))
(msx:-WindowResize ole::this.control
ole::this.channel))
(defmethod msx:-WindowResize ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.WindowActivate
(ole::this.control ole::this.channel)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.WindowActivate on ~s~%"
ole::this.control))
(msx:-WindowActivate ole::this.control
ole::this.channel))
(defmethod msx:-WindowActivate ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents))
(declare (ignore)) nil))
(progn (defun ole.control::event.DWebBrowserEvents.PropertyChange
(ole::this.control ole::this.channel
ole.control::Property)
(when (slot-value ole::this.channel 'ole::tracing)
(format *trace-output*
";; event event.DWebBrowserEvents.PropertyChange on ~s~%"
ole::this.control))
(msx:-PropertyChange ole::this.control
ole::this.channel
ole.control::Property))
(defmethod msx:-PropertyChange ((ole::this.control t)
(ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole.control::Property)
(declare (ignore ole.control::Property)) nil))
(defmethod ole::dispatch-invocation ((ole::this.channel
ole.control::channel-DWebBrowserEvents)
ole::memid
ole::mode
ole::parms)
(declare (ignore-if-unused ole::mode ole::parms))
(let ((ole::this.control
(slot-value ole::this.channel 'ole::host)))
(case ole::memid
(100
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 5))
(ole.control::Headers
(ole::get-nth-arg ole::parms 4))
(ole.control::PostData
(ole::get-nth-arg ole::parms 3))
(ole.control::TargetFrameName
(ole::get-nth-arg ole::parms 2))
(ole.control::Flags
(ole::get-nth-arg ole::parms 1))
(ole.control::URL
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.BeforeNavigate
ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(101
(let ((ole.control::URL
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.NavigateComplete
ole::this.control ole::this.channel
ole.control::URL)
nil)))
(102
(let ((ole.control::Text
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.StatusTextChange
ole::this.control ole::this.channel
ole.control::Text)
nil)))
(108
(let ((ole.control::ProgressMax
(ole::get-nth-arg ole::parms 1))
(ole.control::Progress
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.ProgressChange
ole::this.control ole::this.channel
ole.control::Progress
ole.control::ProgressMax)
nil)))
(104
(let ()
(prog1 (ole.control::event.DWebBrowserEvents.DownloadComplete
ole::this.control ole::this.channel)
nil)))
(105
(let ((ole.control::Enable
(ole::get-nth-arg ole::parms 1))
(ole.control::Command
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.CommandStateChange
ole::this.control ole::this.channel
ole.control::Command ole.control::Enable)
nil)))
(106
(let ()
(prog1 (ole.control::event.DWebBrowserEvents.DownloadBegin
ole::this.control ole::this.channel)
nil)))
(107
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Processed))
(ole.control::Processed
(ole::get-nth-arg ole::parms 5))
(ole.control::Headers
(ole::get-nth-arg ole::parms 4))
(ole.control::PostData
(ole::get-nth-arg ole::parms 3))
(ole.control::TargetFrameName
(ole::get-nth-arg ole::parms 2))
(ole.control::Flags
(ole::get-nth-arg ole::parms 1))
(ole.control::URL
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.NewWindow
ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Processed)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(113
(let ((ole.control::Text
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.TitleChange
ole::this.control ole::this.channel
ole.control::Text)
nil)))
(200
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 5))
(ole.control::Headers
(ole::get-nth-arg ole::parms 4))
(ole.control::PostData
(ole::get-nth-arg ole::parms 3))
(ole.control::TargetFrameName
(ole::get-nth-arg ole::parms 2))
(ole.control::Flags
(ole::get-nth-arg ole::parms 1))
(ole.control::URL
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.FrameBeforeNavigate
ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(201
(let ((ole.control::URL
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.FrameNavigateComplete
ole::this.control ole::this.channel
ole.control::URL)
nil)))
(204
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Processed))
(ole.control::Processed
(ole::get-nth-arg ole::parms 5))
(ole.control::Headers
(ole::get-nth-arg ole::parms 4))
(ole.control::PostData
(ole::get-nth-arg ole::parms 3))
(ole.control::TargetFrameName
(ole::get-nth-arg ole::parms 2))
(ole.control::Flags
(ole::get-nth-arg ole::parms 1))
(ole.control::URL
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.FrameNewWindow
ole::this.control ole::this.channel
ole.control::URL ole.control::Flags
ole.control::TargetFrameName
ole.control::PostData ole.control::Headers
ole.control::Processed)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(103
(let ((ole::event-outval-values
(make-array 1 :initial-element :unchanged))
(ole::event-outval-slots #(0))
(ole::event-outval-names #(:Cancel))
(ole.control::Cancel
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.Quit
ole::this.control ole::this.channel
ole.control::Cancel)
(ole::propagate-event-retvals ole::parms
ole::event-outval-slots
ole::event-outval-values))))
(109
(let ()
(prog1 (ole.control::event.DWebBrowserEvents.WindowMove
ole::this.control ole::this.channel)
nil)))
(110
(let ()
(prog1 (ole.control::event.DWebBrowserEvents.WindowResize
ole::this.control ole::this.channel)
nil)))
(111
(let ()
(prog1 (ole.control::event.DWebBrowserEvents.WindowActivate
ole::this.control ole::this.channel)
nil)))
(112
(let ((ole.control::Property
(ole::get-nth-arg ole::parms 0)))
(prog1 (ole.control::event.DWebBrowserEvents.PropertyChange
ole::this.control ole::this.channel
ole.control::Property)
nil)))
(t (signal 'ole::member-not-found))))))
(declaim (ftype function msx:-PropertyChange
ole.control::event.DWebBrowserEvents.PropertyChange
msx:-WindowActivate
ole.control::event.DWebBrowserEvents.WindowActivate
msx:-WindowResize
ole.control::event.DWebBrowserEvents.WindowResize
msx:-WindowMove
ole.control::event.DWebBrowserEvents.WindowMove
msx:-Quit ole.control::event.DWebBrowserEvents.Quit
msx:-FrameNewWindow
ole.control::event.DWebBrowserEvents.FrameNewWindow
msx:-FrameNavigateComplete
ole.control::event.DWebBrowserEvents.FrameNavigateComplete
msx:-FrameBeforeNavigate
ole.control::event.DWebBrowserEvents.FrameBeforeNavigate
msx:-TitleChange
ole.control::event.DWebBrowserEvents.TitleChange
msx:-NewWindow
ole.control::event.DWebBrowserEvents.NewWindow
msx:-DownloadBegin
ole.control::event.DWebBrowserEvents.DownloadBegin
msx:-CommandStateChange
ole.control::event.DWebBrowserEvents.CommandStateChange
msx:-DownloadComplete
ole.control::event.DWebBrowserEvents.DownloadComplete
msx:-ProgressChange
ole.control::event.DWebBrowserEvents.ProgressChange
msx:-StatusTextChange
ole.control::event.DWebBrowserEvents.StatusTextChange
msx:-NavigateComplete
ole.control::event.DWebBrowserEvents.NavigateComplete
msx:-BeforeNavigate
ole.control::event.DWebBrowserEvents.BeforeNavigate))
(ole::def-control-class msx:ShellSearchAssistantOC :uuid
"{2e71fd0f-aab1-42c0-9146-6d2c4edcf07d}" :default-interface
ole.control:ISearchAssistantOC3 :interfaces
((ole.control:ISearchAssistantOC3
"{72423e8f-8011-11d2-be79-00a0c9a83da3}"
ole.control::i.ISearchAssistantOC3))
:default-event-interface ole.control:_SearchAssistantEvents
:event-interfaces
((ole.control:_SearchAssistantEvents
ole.control::channel-_SearchAssistantEvents)))
(defmethod msx:SearchCompanionAvailable ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC3.SearchCompanionAvailable
ole::this.object))
(defmethod (setf msx:UseSearchCompanion) (ole::set.value
(ole::this.object
msx:ShellSearchAssistantOC))
(setf (ole.control::ISearchAssistantOC3.UseSearchCompanion
ole::this.object)
ole::set.value))
(defmethod msx:UseSearchCompanion ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC3.UseSearchCompanion
ole::this.object))
(defmethod msx:ShowFindPrinter ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC2.ShowFindPrinter
ole::this.object))
(defmethod msx:AddNextMenuItem ((ole::this.object
msx:ShellSearchAssistantOC)
ole.control::bstrText
ole.control::idItem)
(ole.control::ISearchAssistantOC.AddNextMenuItem
ole::this.object ole.control::bstrText ole.control::idItem))
(defmethod msx:SetDefaultSearchUrl ((ole::this.object
msx:ShellSearchAssistantOC)
ole.control::bstrUrl)
(ole.control::ISearchAssistantOC.SetDefaultSearchUrl
ole::this.object ole.control::bstrUrl))
(defmethod msx:NavigateToDefaultSearch ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.NavigateToDefaultSearch
ole::this.object))
(defmethod msx:IsRestricted ((ole::this.object
msx:ShellSearchAssistantOC)
ole.control::bstrGuid)
(ole.control::ISearchAssistantOC.IsRestricted ole::this.object
ole.control::bstrGuid))
(defmethod msx:ShellFeaturesEnabled ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.ShellFeaturesEnabled
ole::this.object))
(defmethod msx:SearchAssistantDefault ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.SearchAssistantDefault
ole::this.object))
(defmethod msx:Searches ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.Searches ole::this.object))
(defmethod msx:InWebFolder ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.InWebFolder
ole::this.object))
(defmethod msx:PutProperty ((ole::this.object
msx:ShellSearchAssistantOC)
&rest
ole::other.args)
(apply 'ole.control::ISearchAssistantOC.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object
msx:ShellSearchAssistantOC)
&rest
ole::other.args)
(apply 'ole.control::ISearchAssistantOC.GetProperty
ole::this.object ole::other.args))
(defmethod (setf msx:EventHandled) (ole::set.value
(ole::this.object
msx:ShellSearchAssistantOC))
(setf (ole.control::ISearchAssistantOC.EventHandled
ole::this.object)
ole::set.value))
(defmethod msx:ResetNextMenu ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.ResetNextMenu
ole::this.object))
(defmethod msx:FindOnWeb ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.FindOnWeb ole::this.object))
(defmethod msx:FindFilesOrFolders ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.FindFilesOrFolders
ole::this.object))
(defmethod msx:FindComputer ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.FindComputer
ole::this.object))
(defmethod msx:FindPrinter ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.FindPrinter
ole::this.object))
(defmethod msx:FindPeople ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.FindPeople ole::this.object))
(defmethod msx:GetSearchAssistantURL ((ole::this.object
msx:ShellSearchAssistantOC)
ole.control::bSubstitute
ole.control::bCustomize)
(ole.control::ISearchAssistantOC.GetSearchAssistantURL
ole::this.object ole.control::bSubstitute
ole.control::bCustomize))
(defmethod msx:NotifySearchSettingsChanged ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.NotifySearchSettingsChanged
ole::this.object))
(defmethod (setf msx:ASProvider) (ole::set.value
(ole::this.object
msx:ShellSearchAssistantOC))
(setf (ole.control::ISearchAssistantOC.ASProvider
ole::this.object)
ole::set.value))
(defmethod msx:ASProvider ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.ASProvider ole::this.object))
(defmethod (setf msx:ASSetting) (ole::set.value
(ole::this.object
msx:ShellSearchAssistantOC))
(setf (ole.control::ISearchAssistantOC.ASSetting
ole::this.object)
ole::set.value))
(defmethod msx:ASSetting ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.ASSetting ole::this.object))
(defmethod msx:NETDetectNextNavigate ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.NETDetectNextNavigate
ole::this.object))
(defmethod msx:PutFindText ((ole::this.object
msx:ShellSearchAssistantOC)
ole.control::FindText)
(ole.control::ISearchAssistantOC.PutFindText ole::this.object
ole.control::FindText))
(defmethod msx:Version ((ole::this.object
msx:ShellSearchAssistantOC))
(ole.control::ISearchAssistantOC.Version ole::this.object))
(defmethod msx:EncodeString ((ole::this.object
msx:ShellSearchAssistantOC)
ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)
(ole.control::ISearchAssistantOC.EncodeString ole::this.object
ole.control::bstrValue ole.control::bstrCharSet
ole.control::bUseUTF8))
(ole::def-control-class msx:SearchAssistantOC :uuid
"{b45ff030-4447-11d2-85de-00c04fa35c89}" :default-interface
ole.control:ISearchAssistantOC3 :interfaces
((ole.control:ISearchAssistantOC3
"{72423e8f-8011-11d2-be79-00a0c9a83da3}"
ole.control::i.ISearchAssistantOC3))
:default-event-interface ole.control:_SearchAssistantEvents
:event-interfaces
((ole.control:_SearchAssistantEvents
ole.control::channel-_SearchAssistantEvents)))
(defmethod msx:SearchCompanionAvailable ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC3.SearchCompanionAvailable
ole::this.object))
(defmethod (setf msx:UseSearchCompanion) (ole::set.value
(ole::this.object
msx:SearchAssistantOC))
(setf (ole.control::ISearchAssistantOC3.UseSearchCompanion
ole::this.object)
ole::set.value))
(defmethod msx:UseSearchCompanion ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC3.UseSearchCompanion
ole::this.object))
(defmethod msx:ShowFindPrinter ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC2.ShowFindPrinter
ole::this.object))
(defmethod msx:AddNextMenuItem ((ole::this.object
msx:SearchAssistantOC)
ole.control::bstrText
ole.control::idItem)
(ole.control::ISearchAssistantOC.AddNextMenuItem
ole::this.object ole.control::bstrText ole.control::idItem))
(defmethod msx:SetDefaultSearchUrl ((ole::this.object
msx:SearchAssistantOC)
ole.control::bstrUrl)
(ole.control::ISearchAssistantOC.SetDefaultSearchUrl
ole::this.object ole.control::bstrUrl))
(defmethod msx:NavigateToDefaultSearch ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.NavigateToDefaultSearch
ole::this.object))
(defmethod msx:IsRestricted ((ole::this.object
msx:SearchAssistantOC)
ole.control::bstrGuid)
(ole.control::ISearchAssistantOC.IsRestricted ole::this.object
ole.control::bstrGuid))
(defmethod msx:ShellFeaturesEnabled ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.ShellFeaturesEnabled
ole::this.object))
(defmethod msx:SearchAssistantDefault ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.SearchAssistantDefault
ole::this.object))
(defmethod msx:Searches ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.Searches ole::this.object))
(defmethod msx:InWebFolder ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.InWebFolder
ole::this.object))
(defmethod msx:PutProperty ((ole::this.object
msx:SearchAssistantOC)
&rest
ole::other.args)
(apply 'ole.control::ISearchAssistantOC.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object
msx:SearchAssistantOC)
&rest
ole::other.args)
(apply 'ole.control::ISearchAssistantOC.GetProperty
ole::this.object ole::other.args))
(defmethod (setf msx:EventHandled) (ole::set.value
(ole::this.object
msx:SearchAssistantOC))
(setf (ole.control::ISearchAssistantOC.EventHandled
ole::this.object)
ole::set.value))
(defmethod msx:ResetNextMenu ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.ResetNextMenu
ole::this.object))
(defmethod msx:FindOnWeb ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.FindOnWeb ole::this.object))
(defmethod msx:FindFilesOrFolders ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.FindFilesOrFolders
ole::this.object))
(defmethod msx:FindComputer ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.FindComputer
ole::this.object))
(defmethod msx:FindPrinter ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.FindPrinter
ole::this.object))
(defmethod msx:FindPeople ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.FindPeople ole::this.object))
(defmethod msx:GetSearchAssistantURL ((ole::this.object
msx:SearchAssistantOC)
ole.control::bSubstitute
ole.control::bCustomize)
(ole.control::ISearchAssistantOC.GetSearchAssistantURL
ole::this.object ole.control::bSubstitute
ole.control::bCustomize))
(defmethod msx:NotifySearchSettingsChanged ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.NotifySearchSettingsChanged
ole::this.object))
(defmethod (setf msx:ASProvider) (ole::set.value
(ole::this.object
msx:SearchAssistantOC))
(setf (ole.control::ISearchAssistantOC.ASProvider
ole::this.object)
ole::set.value))
(defmethod msx:ASProvider ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.ASProvider ole::this.object))
(defmethod (setf msx:ASSetting) (ole::set.value
(ole::this.object
msx:SearchAssistantOC))
(setf (ole.control::ISearchAssistantOC.ASSetting
ole::this.object)
ole::set.value))
(defmethod msx:ASSetting ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.ASSetting ole::this.object))
(defmethod msx:NETDetectNextNavigate ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.NETDetectNextNavigate
ole::this.object))
(defmethod msx:PutFindText ((ole::this.object
msx:SearchAssistantOC)
ole.control::FindText)
(ole.control::ISearchAssistantOC.PutFindText ole::this.object
ole.control::FindText))
(defmethod msx:Version ((ole::this.object
msx:SearchAssistantOC))
(ole.control::ISearchAssistantOC.Version ole::this.object))
(defmethod msx:EncodeString ((ole::this.object
msx:SearchAssistantOC)
ole.control::bstrValue
ole.control::bstrCharSet
ole.control::bUseUTF8)
(ole.control::ISearchAssistantOC.EncodeString ole::this.object
ole.control::bstrValue ole.control::bstrCharSet
ole.control::bUseUTF8))
(ole::def-control-class msx:CScriptErrorList :uuid
"{efd01300-160f-11d2-bb2e-00805ff7efca}" :default-interface
ole.control:IScriptErrorList :interfaces
((ole.control:IScriptErrorList
"{f3470f24-15fd-11d2-bb2e-00805ff7efca}"
ole.control::i.IScriptErrorList))
:default-event-interface nil :event-interfaces nil)
(defmethod msx:advanceError ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.advanceError ole::this.object))
(defmethod msx:retreatError ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.retreatError ole::this.object))
(defmethod msx:canAdvanceError ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.canAdvanceError
ole::this.object))
(defmethod msx:canRetreatError ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.canRetreatError
ole::this.object))
(defmethod msx:getErrorLine ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getErrorLine ole::this.object))
(defmethod msx:getErrorChar ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getErrorChar ole::this.object))
(defmethod msx:getErrorCode ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getErrorCode ole::this.object))
(defmethod msx:getErrorMsg ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getErrorMsg ole::this.object))
(defmethod msx:getErrorUrl ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getErrorUrl ole::this.object))
(defmethod msx:getAlwaysShowLockState ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getAlwaysShowLockState
ole::this.object))
(defmethod msx:getDetailsPaneOpen ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getDetailsPaneOpen
ole::this.object))
(defmethod msx:setDetailsPaneOpen ((ole::this.object
msx:CScriptErrorList)
ole.control::fDetailsPaneOpen)
(ole.control::IScriptErrorList.setDetailsPaneOpen
ole::this.object ole.control::fDetailsPaneOpen))
(defmethod msx:getPerErrorDisplay ((ole::this.object
msx:CScriptErrorList))
(ole.control::IScriptErrorList.getPerErrorDisplay
ole::this.object))
(defmethod msx:setPerErrorDisplay ((ole::this.object
msx:CScriptErrorList)
ole.control::fPerErrorDisplay)
(ole.control::IScriptErrorList.setPerErrorDisplay
ole::this.object ole.control::fPerErrorDisplay))
(ole::def-control-class msx:ShellShellNameSpace :uuid
"{2f2f1f96-2bc1-4b1c-be28-ea3774f4676a}" :default-interface
ole.control:IShellNameSpace :interfaces
((ole.control:IShellNameSpace
"{e572d3c9-37be-4ae2-825d-d521763e3108}"
ole.control::i.IShellNameSpace))
:default-event-interface ole.control:DShellNameSpaceEvents
:event-interfaces
((ole.control:DShellNameSpaceEvents
ole.control::channel-DShellNameSpaceEvents)))
(defmethod (setf msx:EnumOptions) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.EnumOptions
ole::this.object)
ole::set.value))
(defmethod msx:EnumOptions ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.EnumOptions ole::this.object))
(defmethod (setf msx:SelectedItem) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.SelectedItem
ole::this.object)
ole::set.value))
(defmethod msx:SelectedItem ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.SelectedItem ole::this.object))
(defmethod (setf msx:Root) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.Root ole::this.object)
ole::set.value))
(defmethod msx:Root ((ole::this.object msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.Root ole::this.object))
(defmethod (setf msx:Depth) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.Depth ole::this.object)
ole::set.value))
(defmethod msx:Depth ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.Depth ole::this.object))
(defmethod (setf msx:Mode) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.Mode ole::this.object)
ole::set.value))
(defmethod msx:Mode ((ole::this.object msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.Mode ole::this.object))
(defmethod (setf msx:Flags) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.Flags ole::this.object)
ole::set.value))
(defmethod msx:Flags ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.Flags ole::this.object))
(defmethod (setf msx:TVFlags) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.TVFlags ole::this.object)
ole::set.value))
(defmethod msx:TVFlags ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.TVFlags ole::this.object))
(defmethod (setf msx:Columns) (ole::set.value
(ole::this.object
msx:ShellShellNameSpace))
(setf (ole.control::IShellNameSpace.Columns ole::this.object)
ole::set.value))
(defmethod msx:Columns ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.Columns ole::this.object))
(defmethod msx:CountViewTypes ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.CountViewTypes
ole::this.object))
(defmethod msx:SetViewType ((ole::this.object
msx:ShellShellNameSpace)
ole.control::iType)
(ole.control::IShellNameSpace.SetViewType ole::this.object
ole.control::iType))
(defmethod msx:SelectedItems ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.SelectedItems ole::this.object))
(defmethod msx:Expand ((ole::this.object
msx:ShellShellNameSpace)
ole.control::var ole.control::iDepth)
(ole.control::IShellNameSpace.Expand ole::this.object
ole.control::var ole.control::iDepth))
(defmethod msx:UnselectAll ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellNameSpace.UnselectAll ole::this.object))
(defmethod msx:MoveSelectionUp ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.MoveSelectionUp
ole::this.object))
(defmethod msx:MoveSelectionDown ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.MoveSelectionDown
ole::this.object))
(defmethod msx:ResetSort ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.ResetSort
ole::this.object))
(defmethod msx:NewFolder ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.NewFolder
ole::this.object))
(defmethod msx:Synchronize ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.Synchronize
ole::this.object))
(defmethod msx:Import ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.Import
ole::this.object))
(defmethod msx:Export ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.Export
ole::this.object))
(defmethod msx:InvokeContextMenuCommand ((ole::this.object
msx:ShellShellNameSpace)
ole.control::strCommand)
(ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand
ole::this.object ole.control::strCommand))
(defmethod msx:MoveSelectionTo ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.MoveSelectionTo
ole::this.object))
(defmethod msx:SubscriptionsEnabled ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled
ole::this.object))
(defmethod msx:CreateSubscriptionForSelection ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection
ole::this.object))
(defmethod msx:DeleteSubscriptionForSelection ((ole::this.object
msx:ShellShellNameSpace))
(ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection
ole::this.object))
(defmethod msx:SetRoot ((ole::this.object
msx:ShellShellNameSpace)
ole.control::bstrFullPath)
(ole.control::IShellFavoritesNameSpace.SetRoot
ole::this.object ole.control::bstrFullPath))
(ole::def-control-class msx:ShellNameSpace :uuid
"{55136805-b2de-11d1-b9f2-00a0c98bc547}" :default-interface
ole.control:IShellNameSpace :interfaces
((ole.control:IShellNameSpace
"{e572d3c9-37be-4ae2-825d-d521763e3108}"
ole.control::i.IShellNameSpace))
:default-event-interface ole.control:DShellNameSpaceEvents
:event-interfaces
((ole.control:DShellNameSpaceEvents
ole.control::channel-DShellNameSpaceEvents)))
(defmethod (setf msx:EnumOptions) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.EnumOptions
ole::this.object)
ole::set.value))
(defmethod msx:EnumOptions ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellNameSpace.EnumOptions ole::this.object))
(defmethod (setf msx:SelectedItem) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.SelectedItem
ole::this.object)
ole::set.value))
(defmethod msx:SelectedItem ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellNameSpace.SelectedItem ole::this.object))
(defmethod (setf msx:Root) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.Root ole::this.object)
ole::set.value))
(defmethod msx:Root ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellNameSpace.Root ole::this.object))
(defmethod (setf msx:Depth) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.Depth ole::this.object)
ole::set.value))
(defmethod msx:Depth ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellNameSpace.Depth ole::this.object))
(defmethod (setf msx:Mode) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.Mode ole::this.object)
ole::set.value))
(defmethod msx:Mode ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellNameSpace.Mode ole::this.object))
(defmethod (setf msx:Flags) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.Flags ole::this.object)
ole::set.value))
(defmethod msx:Flags ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellNameSpace.Flags ole::this.object))
(defmethod (setf msx:TVFlags) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.TVFlags ole::this.object)
ole::set.value))
(defmethod msx:TVFlags ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellNameSpace.TVFlags ole::this.object))
(defmethod (setf msx:Columns) (ole::set.value
(ole::this.object
msx:ShellNameSpace))
(setf (ole.control::IShellNameSpace.Columns ole::this.object)
ole::set.value))
(defmethod msx:Columns ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellNameSpace.Columns ole::this.object))
(defmethod msx:CountViewTypes ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellNameSpace.CountViewTypes
ole::this.object))
(defmethod msx:SetViewType ((ole::this.object
msx:ShellNameSpace)
ole.control::iType)
(ole.control::IShellNameSpace.SetViewType ole::this.object
ole.control::iType))
(defmethod msx:SelectedItems ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellNameSpace.SelectedItems ole::this.object))
(defmethod msx:Expand ((ole::this.object msx:ShellNameSpace)
ole.control::var ole.control::iDepth)
(ole.control::IShellNameSpace.Expand ole::this.object
ole.control::var ole.control::iDepth))
(defmethod msx:UnselectAll ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellNameSpace.UnselectAll ole::this.object))
(defmethod msx:MoveSelectionUp ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.MoveSelectionUp
ole::this.object))
(defmethod msx:MoveSelectionDown ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.MoveSelectionDown
ole::this.object))
(defmethod msx:ResetSort ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.ResetSort
ole::this.object))
(defmethod msx:NewFolder ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.NewFolder
ole::this.object))
(defmethod msx:Synchronize ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.Synchronize
ole::this.object))
(defmethod msx:Import ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.Import
ole::this.object))
(defmethod msx:Export ((ole::this.object msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.Export
ole::this.object))
(defmethod msx:InvokeContextMenuCommand ((ole::this.object
msx:ShellNameSpace)
ole.control::strCommand)
(ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand
ole::this.object ole.control::strCommand))
(defmethod msx:MoveSelectionTo ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.MoveSelectionTo
ole::this.object))
(defmethod msx:SubscriptionsEnabled ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled
ole::this.object))
(defmethod msx:CreateSubscriptionForSelection ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection
ole::this.object))
(defmethod msx:DeleteSubscriptionForSelection ((ole::this.object
msx:ShellNameSpace))
(ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection
ole::this.object))
(defmethod msx:SetRoot ((ole::this.object msx:ShellNameSpace)
ole.control::bstrFullPath)
(ole.control::IShellFavoritesNameSpace.SetRoot
ole::this.object ole.control::bstrFullPath))
(ole::def-control-class msx:ShellUIHelper :uuid
"{64ab4bb7-111e-11d1-8f79-00c04fc2fbe1}" :default-interface
ole.control:IShellUIHelper :interfaces
((ole.control:IShellUIHelper
"{729fe2f8-1ea8-11d1-8f85-00c04fc2fbe1}"
ole.control::i.IShellUIHelper))
:default-event-interface nil :event-interfaces nil)
(defmethod msx:ResetFirstBootMode ((ole::this.object
msx:ShellUIHelper))
(ole.control::IShellUIHelper.ResetFirstBootMode
ole::this.object))
(defmethod msx:ResetSafeMode ((ole::this.object
msx:ShellUIHelper))
(ole.control::IShellUIHelper.ResetSafeMode ole::this.object))
(defmethod msx:RefreshOfflineDesktop ((ole::this.object
msx:ShellUIHelper))
(ole.control::IShellUIHelper.RefreshOfflineDesktop
ole::this.object))
(defmethod msx:AddFavorite ((ole::this.object msx:ShellUIHelper)
ole.control::URL
&key
(ole.control::Title :missing))
(ole.control::IShellUIHelper.AddFavorite ole::this.object
ole.control::URL
:Title ole.control::Title))
(defmethod msx:AddChannel ((ole::this.object msx:ShellUIHelper)
ole.control::URL)
(ole.control::IShellUIHelper.AddChannel ole::this.object
ole.control::URL))
(defmethod msx:AddDesktopComponent ((ole::this.object
msx:ShellUIHelper)
ole.control::URL
ole.control::Type
&key
(ole.control::Left :missing)
(ole.control::Top :missing)
(ole.control::Width
:missing)
(ole.control::Height
:missing))
(ole.control::IShellUIHelper.AddDesktopComponent
ole::this.object ole.control::URL ole.control::Type
:Left ole.control::Left
:Top ole.control::Top
:Width ole.control::Width
:Height ole.control::Height))
(defmethod msx:IsSubscribed ((ole::this.object
msx:ShellUIHelper)
ole.control::URL)
(ole.control::IShellUIHelper.IsSubscribed ole::this.object
ole.control::URL))
(defmethod msx:NavigateAndFind ((ole::this.object
msx:ShellUIHelper)
ole.control::URL
ole.control::strQuery
ole.control::varTargetFrame)
(ole.control::IShellUIHelper.NavigateAndFind ole::this.object
ole.control::URL ole.control::strQuery
ole.control::varTargetFrame))
(defmethod msx:ImportExportFavorites ((ole::this.object
msx:ShellUIHelper)
ole.control::fImport
ole.control::strImpExpPath)
(ole.control::IShellUIHelper.ImportExportFavorites
ole::this.object ole.control::fImport
ole.control::strImpExpPath))
(defmethod msx:AutoCompleteSaveForm ((ole::this.object
msx:ShellUIHelper)
&key
(ole.control::Form
:missing))
(ole.control::IShellUIHelper.AutoCompleteSaveForm
ole::this.object
:Form ole.control::Form))
(defmethod msx:AutoScan ((ole::this.object msx:ShellUIHelper)
ole.control::strSearch
ole.control::strFailureUrl
&key
(ole.control::pvarTargetFrame
:missing))
(ole.control::IShellUIHelper.AutoScan ole::this.object
ole.control::strSearch
ole.control::strFailureUrl
:pvarTargetFrame ole.control::pvarTargetFrame))
(defmethod msx:AutoCompleteAttach ((ole::this.object
msx:ShellUIHelper)
&key
(ole.control::Reserved
:missing))
(ole.control::IShellUIHelper.AutoCompleteAttach
ole::this.object
:Reserved ole.control::Reserved))
(defmethod msx:ShowBrowserUI ((ole::this.object
msx:ShellUIHelper)
ole.control::bstrName
ole.control::pvarIn)
(ole.control::IShellUIHelper.ShowBrowserUI ole::this.object
ole.control::bstrName ole.control::pvarIn))
(ole::def-control-class msx:ShellWindows :uuid
"{9ba05972-f6a8-11cf-a442-00a0c90a8f39}" :default-interface
ole.control:IShellWindows :interfaces
((ole.control:IShellWindows
"{85cb6900-4d95-11cf-960c-0080c7f4ee85}"
ole.control::i.IShellWindows))
:default-event-interface ole.control:DShellWindowsEvents
:event-interfaces
((ole.control:DShellWindowsEvents
ole.control::channel-DShellWindowsEvents)))
(defmethod msx:Count ((ole::this.object msx:ShellWindows))
(ole.control::IShellWindows.Count ole::this.object))
(defmethod msx:Item ((ole::this.object msx:ShellWindows) &key
(ole.control::index :missing))
(ole.control::IShellWindows.Item ole::this.object
:index ole.control::index))
(defmethod msx:_NewEnum ((ole::this.object msx:ShellWindows))
(ole.control::IShellWindows._NewEnum ole::this.object))
(defmethod msx:Register ((ole::this.object msx:ShellWindows)
ole.control::pid
ole.control::HWND
ole.control::swClass)
(ole.control::IShellWindows.Register ole::this.object
ole.control::pid ole.control::HWND ole.control::swClass))
(defmethod msx:RegisterPending ((ole::this.object
msx:ShellWindows)
ole.control::lThreadId
ole.control::pvarloc
ole.control::pvarlocRoot
ole.control::swClass)
(ole.control::IShellWindows.RegisterPending ole::this.object
ole.control::lThreadId ole.control::pvarloc
ole.control::pvarlocRoot ole.control::swClass))
(defmethod msx:Revoke ((ole::this.object msx:ShellWindows)
ole.control::lCookie)
(ole.control::IShellWindows.Revoke ole::this.object
ole.control::lCookie))
(defmethod msx:OnNavigate ((ole::this.object msx:ShellWindows)
ole.control::lCookie
ole.control::pvarloc)
(ole.control::IShellWindows.OnNavigate ole::this.object
ole.control::lCookie ole.control::pvarloc))
(defmethod msx:OnActivated ((ole::this.object msx:ShellWindows)
ole.control::lCookie
ole.control::fActive)
(ole.control::IShellWindows.OnActivated ole::this.object
ole.control::lCookie ole.control::fActive))
(defmethod msx:FindWindowSW ((ole::this.object msx:ShellWindows)
ole.control::pvarloc
ole.control::pvarlocRoot
ole.control::swClass
ole.control::swfwOptions)
(ole.control::IShellWindows.FindWindowSW ole::this.object
ole.control::pvarloc ole.control::pvarlocRoot
ole.control::swClass ole.control::swfwOptions))
(defmethod msx:OnCreated ((ole::this.object msx:ShellWindows)
ole.control::lCookie
ole.control::punk)
(ole.control::IShellWindows.OnCreated ole::this.object
ole.control::lCookie ole.control::punk))
(defmethod msx:ProcessAttachDetach ((ole::this.object
msx:ShellWindows)
ole.control::fAttach)
(ole.control::IShellWindows.ProcessAttachDetach
ole::this.object ole.control::fAttach))
(ole::def-control-class msx:ShellBrowserWindow :uuid
"{c08afd90-f2a1-11d1-8455-00a0c91f3880}" :default-interface
ole.control:IWebBrowser2 :interfaces
((ole.control:IWebBrowser2
"{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
ole.control::i.IWebBrowser2)
(ole.control:IWebBrowserApp
"{0002df05-0000-0000-c000-000000000046}"
ole.control::i.IWebBrowserApp))
:default-event-interface ole.control:DWebBrowserEvents2
:event-interfaces
((ole.control:DWebBrowserEvents
ole.control::channel-DWebBrowserEvents)
(ole.control:DWebBrowserEvents2
ole.control::channel-DWebBrowserEvents2)))
(defmethod msx:Navigate2 ((ole::this.object
msx:ShellBrowserWindow)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser2.Navigate2 ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:QueryStatusWB ((ole::this.object
msx:ShellBrowserWindow)
ole.control::cmdID)
(ole.control::IWebBrowser2.QueryStatusWB ole::this.object
ole.control::cmdID))
(defmethod msx:ExecWB ((ole::this.object msx:ShellBrowserWindow)
ole.control::cmdID
ole.control::cmdexecopt &key
(ole.control::pvaIn :missing)
(ole.control::pvaOut :missing))
(ole.control::IWebBrowser2.ExecWB ole::this.object
ole.control::cmdID
ole.control::cmdexecopt
:pvaIn ole.control::pvaIn
:pvaOut ole.control::pvaOut))
(defmethod msx:ShowBrowserBar ((ole::this.object
msx:ShellBrowserWindow)
ole.control::pvaClsid
&key
(ole.control::pvarShow :missing)
(ole.control::pvarSize :missing))
(ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
ole.control::pvaClsid
:pvarShow ole.control::pvarShow
:pvarSize ole.control::pvarSize))
(defmethod msx:ReadyState ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.ReadyState ole::this.object))
(defmethod (setf msx:Offline) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.Offline ole::this.object)
ole::set.value))
(defmethod msx:Offline ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.Offline ole::this.object))
(defmethod (setf msx:Silent) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.Silent ole::this.object)
ole::set.value))
(defmethod msx:Silent ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.Silent ole::this.object))
(defmethod (setf msx:RegisterAsBrowser) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsBrowser ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object))
(defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsDropTarget ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object))
(defmethod (setf msx:TheaterMode) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
ole::set.value))
(defmethod msx:TheaterMode ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.TheaterMode ole::this.object))
(defmethod (setf msx:AddressBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
ole::set.value))
(defmethod msx:AddressBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.AddressBar ole::this.object))
(defmethod (setf msx:Resizable) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser2.Resizable ole::this.object)
ole::set.value))
(defmethod msx:Resizable ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser2.Resizable ole::this.object))
(defmethod msx:Quit ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Quit ole::this.object))
(defmethod msx:ClientToWindow ((ole::this.object
msx:ShellBrowserWindow)
ole.control::pcx
ole.control::pcy)
(ole.control::IWebBrowserApp.ClientToWindow ole::this.object
ole.control::pcx ole.control::pcy))
(defmethod msx:PutProperty ((ole::this.object
msx:ShellBrowserWindow)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object
msx:ShellBrowserWindow)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.GetProperty
ole::this.object ole::other.args))
(defmethod msx:Name ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Name ole::this.object))
(defmethod msx:HWND ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.HWND ole::this.object))
(defmethod msx:FullName ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.FullName ole::this.object))
(defmethod msx:Path ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Path ole::this.object))
(defmethod (setf msx:Visible) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.Visible ole::this.object)
ole::set.value))
(defmethod msx:Visible ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Visible ole::this.object))
(defmethod (setf msx:StatusBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
ole::set.value))
(defmethod msx:StatusBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.StatusBar ole::this.object))
(defmethod (setf msx:StatusText) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.StatusText
ole::this.object)
ole::set.value))
(defmethod msx:StatusText ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.StatusText ole::this.object))
(defmethod (setf msx:ToolBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
ole::set.value))
(defmethod msx:ToolBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.ToolBar ole::this.object))
(defmethod (setf msx:MenuBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
ole::set.value))
(defmethod msx:MenuBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.MenuBar ole::this.object))
(defmethod (setf msx:FullScreen) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.FullScreen
ole::this.object)
ole::set.value))
(defmethod msx:FullScreen ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.FullScreen ole::this.object))
(defmethod msx:GoBack ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object
msx:ShellBrowserWindow)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object
msx:ShellBrowserWindow)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Busy ole::this.object))
(defmethod msx:Quit ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Quit ole::this.object))
(defmethod msx:ClientToWindow ((ole::this.object
msx:ShellBrowserWindow)
ole.control::pcx
ole.control::pcy)
(ole.control::IWebBrowserApp.ClientToWindow ole::this.object
ole.control::pcx ole.control::pcy))
(defmethod msx:PutProperty ((ole::this.object
msx:ShellBrowserWindow)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object
msx:ShellBrowserWindow)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.GetProperty
ole::this.object ole::other.args))
(defmethod msx:Name ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Name ole::this.object))
(defmethod msx:HWND ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.HWND ole::this.object))
(defmethod msx:FullName ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.FullName ole::this.object))
(defmethod msx:Path ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Path ole::this.object))
(defmethod (setf msx:Visible) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.Visible ole::this.object)
ole::set.value))
(defmethod msx:Visible ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.Visible ole::this.object))
(defmethod (setf msx:StatusBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
ole::set.value))
(defmethod msx:StatusBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.StatusBar ole::this.object))
(defmethod (setf msx:StatusText) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.StatusText
ole::this.object)
ole::set.value))
(defmethod msx:StatusText ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.StatusText ole::this.object))
(defmethod (setf msx:ToolBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
ole::set.value))
(defmethod msx:ToolBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.ToolBar ole::this.object))
(defmethod (setf msx:MenuBar) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
ole::set.value))
(defmethod msx:MenuBar ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.MenuBar ole::this.object))
(defmethod (setf msx:FullScreen) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowserApp.FullScreen
ole::this.object)
ole::set.value))
(defmethod msx:FullScreen ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowserApp.FullScreen ole::this.object))
(defmethod msx:GoBack ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object
msx:ShellBrowserWindow)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object
msx:ShellBrowserWindow)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object
msx:ShellBrowserWindow))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object
msx:ShellBrowserWindow))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:ShellBrowserWindow))
(ole.control::IWebBrowser.Busy ole::this.object))
(ole::def-control-class msx:InternetExplorer :uuid
"{0002df01-0000-0000-c000-000000000046}" :default-interface
ole.control:IWebBrowser2 :interfaces
((ole.control:IWebBrowser2
"{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
ole.control::i.IWebBrowser2)
(ole.control:IWebBrowserApp
"{0002df05-0000-0000-c000-000000000046}"
ole.control::i.IWebBrowserApp))
:default-event-interface ole.control:DWebBrowserEvents2
:event-interfaces
((ole.control:DWebBrowserEvents
ole.control::channel-DWebBrowserEvents)
(ole.control:DWebBrowserEvents2
ole.control::channel-DWebBrowserEvents2)))
(defmethod msx:Navigate2 ((ole::this.object
msx:InternetExplorer)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser2.Navigate2 ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:QueryStatusWB ((ole::this.object
msx:InternetExplorer)
ole.control::cmdID)
(ole.control::IWebBrowser2.QueryStatusWB ole::this.object
ole.control::cmdID))
(defmethod msx:ExecWB ((ole::this.object msx:InternetExplorer)
ole.control::cmdID
ole.control::cmdexecopt &key
(ole.control::pvaIn :missing)
(ole.control::pvaOut :missing))
(ole.control::IWebBrowser2.ExecWB ole::this.object
ole.control::cmdID
ole.control::cmdexecopt
:pvaIn ole.control::pvaIn
:pvaOut ole.control::pvaOut))
(defmethod msx:ShowBrowserBar ((ole::this.object
msx:InternetExplorer)
ole.control::pvaClsid
&key
(ole.control::pvarShow :missing)
(ole.control::pvarSize :missing))
(ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
ole.control::pvaClsid
:pvarShow ole.control::pvarShow
:pvarSize ole.control::pvarSize))
(defmethod msx:ReadyState ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser2.ReadyState ole::this.object))
(defmethod (setf msx:Offline) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.Offline ole::this.object)
ole::set.value))
(defmethod msx:Offline ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser2.Offline ole::this.object))
(defmethod (setf msx:Silent) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.Silent ole::this.object)
ole::set.value))
(defmethod msx:Silent ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser2.Silent ole::this.object))
(defmethod (setf msx:RegisterAsBrowser) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsBrowser ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object))
(defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsDropTarget ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object))
(defmethod (setf msx:TheaterMode) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
ole::set.value))
(defmethod msx:TheaterMode ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser2.TheaterMode ole::this.object))
(defmethod (setf msx:AddressBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
ole::set.value))
(defmethod msx:AddressBar ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser2.AddressBar ole::this.object))
(defmethod (setf msx:Resizable) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser2.Resizable ole::this.object)
ole::set.value))
(defmethod msx:Resizable ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser2.Resizable ole::this.object))
(defmethod msx:Quit ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Quit ole::this.object))
(defmethod msx:ClientToWindow ((ole::this.object
msx:InternetExplorer)
ole.control::pcx
ole.control::pcy)
(ole.control::IWebBrowserApp.ClientToWindow ole::this.object
ole.control::pcx ole.control::pcy))
(defmethod msx:PutProperty ((ole::this.object
msx:InternetExplorer)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object
msx:InternetExplorer)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.GetProperty
ole::this.object ole::other.args))
(defmethod msx:Name ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Name ole::this.object))
(defmethod msx:HWND ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.HWND ole::this.object))
(defmethod msx:FullName ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.FullName ole::this.object))
(defmethod msx:Path ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Path ole::this.object))
(defmethod (setf msx:Visible) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.Visible ole::this.object)
ole::set.value))
(defmethod msx:Visible ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Visible ole::this.object))
(defmethod (setf msx:StatusBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
ole::set.value))
(defmethod msx:StatusBar ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.StatusBar ole::this.object))
(defmethod (setf msx:StatusText) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.StatusText
ole::this.object)
ole::set.value))
(defmethod msx:StatusText ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.StatusText ole::this.object))
(defmethod (setf msx:ToolBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
ole::set.value))
(defmethod msx:ToolBar ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.ToolBar ole::this.object))
(defmethod (setf msx:MenuBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
ole::set.value))
(defmethod msx:MenuBar ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.MenuBar ole::this.object))
(defmethod (setf msx:FullScreen) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.FullScreen
ole::this.object)
ole::set.value))
(defmethod msx:FullScreen ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.FullScreen ole::this.object))
(defmethod msx:GoBack ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object msx:InternetExplorer)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object msx:InternetExplorer)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Busy ole::this.object))
(defmethod msx:Quit ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Quit ole::this.object))
(defmethod msx:ClientToWindow ((ole::this.object
msx:InternetExplorer)
ole.control::pcx
ole.control::pcy)
(ole.control::IWebBrowserApp.ClientToWindow ole::this.object
ole.control::pcx ole.control::pcy))
(defmethod msx:PutProperty ((ole::this.object
msx:InternetExplorer)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object
msx:InternetExplorer)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.GetProperty
ole::this.object ole::other.args))
(defmethod msx:Name ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Name ole::this.object))
(defmethod msx:HWND ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.HWND ole::this.object))
(defmethod msx:FullName ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.FullName ole::this.object))
(defmethod msx:Path ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Path ole::this.object))
(defmethod (setf msx:Visible) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.Visible ole::this.object)
ole::set.value))
(defmethod msx:Visible ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.Visible ole::this.object))
(defmethod (setf msx:StatusBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
ole::set.value))
(defmethod msx:StatusBar ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.StatusBar ole::this.object))
(defmethod (setf msx:StatusText) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.StatusText
ole::this.object)
ole::set.value))
(defmethod msx:StatusText ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.StatusText ole::this.object))
(defmethod (setf msx:ToolBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
ole::set.value))
(defmethod msx:ToolBar ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.ToolBar ole::this.object))
(defmethod (setf msx:MenuBar) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
ole::set.value))
(defmethod msx:MenuBar ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowserApp.MenuBar ole::this.object))
(defmethod (setf msx:FullScreen) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowserApp.FullScreen
ole::this.object)
ole::set.value))
(defmethod msx:FullScreen ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowserApp.FullScreen ole::this.object))
(defmethod msx:GoBack ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object msx:InternetExplorer)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object msx:InternetExplorer)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object
msx:InternetExplorer))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object
msx:InternetExplorer))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:InternetExplorer))
(ole.control::IWebBrowser.Busy ole::this.object))
(ole::def-control-class msx:WebBrowser :uuid
"{8856f961-340a-11d0-a96b-00c04fd705a2}" :default-interface
ole.control:IWebBrowser2 :interfaces
((ole.control:IWebBrowser2
"{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
ole.control::i.IWebBrowser2)
(ole.control:IWebBrowser
"{eab22ac1-30c1-11cf-a7eb-0000c05bae0b}"
ole.control::i.IWebBrowser))
:default-event-interface ole.control:DWebBrowserEvents2
:event-interfaces
((ole.control:DWebBrowserEvents
ole.control::channel-DWebBrowserEvents)
(ole.control:DWebBrowserEvents2
ole.control::channel-DWebBrowserEvents2)))
(defmethod msx:Navigate2 ((ole::this.object msx:WebBrowser)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser2.Navigate2 ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:QueryStatusWB ((ole::this.object msx:WebBrowser)
ole.control::cmdID)
(ole.control::IWebBrowser2.QueryStatusWB ole::this.object
ole.control::cmdID))
(defmethod msx:ExecWB ((ole::this.object msx:WebBrowser)
ole.control::cmdID
ole.control::cmdexecopt &key
(ole.control::pvaIn :missing)
(ole.control::pvaOut :missing))
(ole.control::IWebBrowser2.ExecWB ole::this.object
ole.control::cmdID
ole.control::cmdexecopt
:pvaIn ole.control::pvaIn
:pvaOut ole.control::pvaOut))
(defmethod msx:ShowBrowserBar ((ole::this.object msx:WebBrowser)
ole.control::pvaClsid
&key
(ole.control::pvarShow :missing)
(ole.control::pvarSize :missing))
(ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
ole.control::pvaClsid
:pvarShow ole.control::pvarShow
:pvarSize ole.control::pvarSize))
(defmethod msx:ReadyState ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser2.ReadyState ole::this.object))
(defmethod (setf msx:Offline) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowser2.Offline ole::this.object)
ole::set.value))
(defmethod msx:Offline ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser2.Offline ole::this.object))
(defmethod (setf msx:Silent) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser2.Silent ole::this.object)
ole::set.value))
(defmethod msx:Silent ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser2.Silent ole::this.object))
(defmethod (setf msx:RegisterAsBrowser) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsBrowser ((ole::this.object
msx:WebBrowser))
(ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object))
(defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsDropTarget ((ole::this.object
msx:WebBrowser))
(ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object))
(defmethod (setf msx:TheaterMode) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
ole::set.value))
(defmethod msx:TheaterMode ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser2.TheaterMode ole::this.object))
(defmethod (setf msx:AddressBar) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
ole::set.value))
(defmethod msx:AddressBar ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser2.AddressBar ole::this.object))
(defmethod (setf msx:Resizable) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowser2.Resizable ole::this.object)
ole::set.value))
(defmethod msx:Resizable ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser2.Resizable ole::this.object))
(defmethod msx:Quit ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.Quit ole::this.object))
(defmethod msx:ClientToWindow ((ole::this.object msx:WebBrowser)
ole.control::pcx
ole.control::pcy)
(ole.control::IWebBrowserApp.ClientToWindow ole::this.object
ole.control::pcx ole.control::pcy))
(defmethod msx:PutProperty ((ole::this.object msx:WebBrowser)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object msx:WebBrowser)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.GetProperty
ole::this.object ole::other.args))
(defmethod msx:Name ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.Name ole::this.object))
(defmethod msx:HWND ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.HWND ole::this.object))
(defmethod msx:FullName ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.FullName ole::this.object))
(defmethod msx:Path ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.Path ole::this.object))
(defmethod (setf msx:Visible) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowserApp.Visible ole::this.object)
ole::set.value))
(defmethod msx:Visible ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.Visible ole::this.object))
(defmethod (setf msx:StatusBar) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
ole::set.value))
(defmethod msx:StatusBar ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.StatusBar ole::this.object))
(defmethod (setf msx:StatusText) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowserApp.StatusText
ole::this.object)
ole::set.value))
(defmethod msx:StatusText ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.StatusText ole::this.object))
(defmethod (setf msx:ToolBar) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
ole::set.value))
(defmethod msx:ToolBar ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.ToolBar ole::this.object))
(defmethod (setf msx:MenuBar) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
ole::set.value))
(defmethod msx:MenuBar ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.MenuBar ole::this.object))
(defmethod (setf msx:FullScreen) (ole::set.value
(ole::this.object
msx:WebBrowser))
(setf (ole.control::IWebBrowserApp.FullScreen
ole::this.object)
ole::set.value))
(defmethod msx:FullScreen ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowserApp.FullScreen ole::this.object))
(defmethod msx:GoBack ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object msx:WebBrowser)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:WebBrowser))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Busy ole::this.object))
(defmethod msx:GoBack ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object msx:WebBrowser)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:WebBrowser))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object msx:WebBrowser))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:WebBrowser))
(ole.control::IWebBrowser.Busy ole::this.object))
(ole::def-control-class msx:WebBrowser_V1 :uuid
"{eab22ac3-30c1-11cf-a7eb-0000c05bae0b}" :default-interface
ole.control:IWebBrowser2 :interfaces
((ole.control:IWebBrowser2
"{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
ole.control::i.IWebBrowser2)
(ole.control:IWebBrowser
"{eab22ac1-30c1-11cf-a7eb-0000c05bae0b}"
ole.control::i.IWebBrowser))
:default-event-interface ole.control:DWebBrowserEvents2
:event-interfaces
((ole.control:DWebBrowserEvents
ole.control::channel-DWebBrowserEvents)
(ole.control:DWebBrowserEvents2
ole.control::channel-DWebBrowserEvents2)))
(defmethod msx:Navigate2 ((ole::this.object msx:WebBrowser_V1)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName
:missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser2.Navigate2 ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:QueryStatusWB ((ole::this.object
msx:WebBrowser_V1)
ole.control::cmdID)
(ole.control::IWebBrowser2.QueryStatusWB ole::this.object
ole.control::cmdID))
(defmethod msx:ExecWB ((ole::this.object msx:WebBrowser_V1)
ole.control::cmdID
ole.control::cmdexecopt &key
(ole.control::pvaIn :missing)
(ole.control::pvaOut :missing))
(ole.control::IWebBrowser2.ExecWB ole::this.object
ole.control::cmdID
ole.control::cmdexecopt
:pvaIn ole.control::pvaIn
:pvaOut ole.control::pvaOut))
(defmethod msx:ShowBrowserBar ((ole::this.object
msx:WebBrowser_V1)
ole.control::pvaClsid
&key
(ole.control::pvarShow :missing)
(ole.control::pvarSize :missing))
(ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
ole.control::pvaClsid
:pvarShow ole.control::pvarShow
:pvarSize ole.control::pvarSize))
(defmethod msx:ReadyState ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser2.ReadyState ole::this.object))
(defmethod (setf msx:Offline) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.Offline ole::this.object)
ole::set.value))
(defmethod msx:Offline ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser2.Offline ole::this.object))
(defmethod (setf msx:Silent) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.Silent ole::this.object)
ole::set.value))
(defmethod msx:Silent ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser2.Silent ole::this.object))
(defmethod (setf msx:RegisterAsBrowser) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsBrowser ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser2.RegisterAsBrowser
ole::this.object))
(defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object)
ole::set.value))
(defmethod msx:RegisterAsDropTarget ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser2.RegisterAsDropTarget
ole::this.object))
(defmethod (setf msx:TheaterMode) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
ole::set.value))
(defmethod msx:TheaterMode ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser2.TheaterMode ole::this.object))
(defmethod (setf msx:AddressBar) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
ole::set.value))
(defmethod msx:AddressBar ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser2.AddressBar ole::this.object))
(defmethod (setf msx:Resizable) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser2.Resizable ole::this.object)
ole::set.value))
(defmethod msx:Resizable ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser2.Resizable ole::this.object))
(defmethod msx:Quit ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.Quit ole::this.object))
(defmethod msx:ClientToWindow ((ole::this.object
msx:WebBrowser_V1)
ole.control::pcx
ole.control::pcy)
(ole.control::IWebBrowserApp.ClientToWindow ole::this.object
ole.control::pcx ole.control::pcy))
(defmethod msx:PutProperty ((ole::this.object msx:WebBrowser_V1)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.PutProperty
ole::this.object ole::other.args))
(defmethod msx:GetProperty ((ole::this.object msx:WebBrowser_V1)
&rest
ole::other.args)
(apply 'ole.control::IWebBrowserApp.GetProperty
ole::this.object ole::other.args))
(defmethod msx:Name ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.Name ole::this.object))
(defmethod msx:HWND ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.HWND ole::this.object))
(defmethod msx:FullName ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.FullName ole::this.object))
(defmethod msx:Path ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.Path ole::this.object))
(defmethod (setf msx:Visible) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowserApp.Visible ole::this.object)
ole::set.value))
(defmethod msx:Visible ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.Visible ole::this.object))
(defmethod (setf msx:StatusBar) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
ole::set.value))
(defmethod msx:StatusBar ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.StatusBar ole::this.object))
(defmethod (setf msx:StatusText) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowserApp.StatusText
ole::this.object)
ole::set.value))
(defmethod msx:StatusText ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.StatusText ole::this.object))
(defmethod (setf msx:ToolBar) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
ole::set.value))
(defmethod msx:ToolBar ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.ToolBar ole::this.object))
(defmethod (setf msx:MenuBar) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
ole::set.value))
(defmethod msx:MenuBar ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.MenuBar ole::this.object))
(defmethod (setf msx:FullScreen) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowserApp.FullScreen
ole::this.object)
ole::set.value))
(defmethod msx:FullScreen ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowserApp.FullScreen ole::this.object))
(defmethod msx:GoBack ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object msx:WebBrowser_V1)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser_V1)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Busy ole::this.object))
(defmethod msx:GoBack ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoBack ole::this.object))
(defmethod msx:GoForward ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoForward ole::this.object))
(defmethod msx:GoHome ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoHome ole::this.object))
(defmethod msx:GoSearch ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.GoSearch ole::this.object))
(defmethod msx:Navigate ((ole::this.object msx:WebBrowser_V1)
ole.control::URL
&key
(ole.control::Flags :missing)
(ole.control::TargetFrameName :missing)
(ole.control::PostData :missing)
(ole.control::Headers :missing))
(ole.control::IWebBrowser.Navigate ole::this.object
ole.control::URL
:Flags ole.control::Flags
:TargetFrameName ole.control::TargetFrameName
:PostData ole.control::PostData
:Headers ole.control::Headers))
(defmethod msx:Refresh ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Refresh ole::this.object))
(defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser_V1)
&key
(ole.control::Level :missing))
(ole.control::IWebBrowser.Refresh2 ole::this.object
:Level ole.control::Level))
(defmethod msx:Stop ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Stop ole::this.object))
(defmethod msx:Application ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.Application ole::this.object))
(defmethod msx:Parent ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Parent ole::this.object))
(defmethod msx:Container ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Container ole::this.object))
(defmethod msx:Document ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Document ole::this.object))
(defmethod msx:TopLevelContainer ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.TopLevelContainer ole::this.object))
(defmethod msx:Type ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Type ole::this.object))
(defmethod (setf msx:Left) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Left ole::this.object)
ole::set.value))
(defmethod msx:Left ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Left ole::this.object))
(defmethod (setf msx:Top) (ole::set.value
(ole::this.object msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Top ole::this.object)
ole::set.value))
(defmethod msx:Top ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Top ole::this.object))
(defmethod (setf msx:Width) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Width ole::this.object)
ole::set.value))
(defmethod msx:Width ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Width ole::this.object))
(defmethod (setf msx:Height) (ole::set.value
(ole::this.object
msx:WebBrowser_V1))
(setf (ole.control::IWebBrowser.Height ole::this.object)
ole::set.value))
(defmethod msx:Height ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Height ole::this.object))
(defmethod msx:LocationName ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.LocationName ole::this.object))
(defmethod msx:LocationURL ((ole::this.object
msx:WebBrowser_V1))
(ole.control::IWebBrowser.LocationURL ole::this.object))
(defmethod msx:Busy ((ole::this.object msx:WebBrowser_V1))
(ole.control::IWebBrowser.Busy ole::this.object))
'"SHDocVw")
cl-user(11): (dribble)
