function shockOpen( theURL, winName, features) {
window.open( theURL);
}
Currently only works in netscape.
More info availalbe at http://www.flavoredthunder.com/diredu/
-- Written by Mark Daggett 1999 (mark@flavoredthunder.com)
-- Copyright 1999 Flavored Thunder Media. All rights reserved.
-- For more free code go to: Http://www.flavoredthunder.com
-- Use it till it is obsolete :)
-- this behavior will open a browser window with the properties that you specify.
property pSource
property pMenuBar
property pToolbar
property pLocation
property pStatus
property pScrollbars
property pResizable
property pWidth
property pHeight
on beginSprite me
end
on mouseUp me
externalEvent "shockOpen("" & pSource & "",',"toolbar=" & pToolBar & ",location=" & pLocation & ",status=" & pStatus & ",menubar=" & pMenuBar & ",scrollbars=" & pScrollbars & ",resizable=" & pResizable & ",width=" & pWidth & ",height=" & pHeight & "")"
end
on getPropertyDescriptionList me
set Browserlist to [:]
addprop Browserlist, #pSource, [#comment:"file to open", #format:#string, #default:"http://www.flavoredthunder.com"]
addprop Browserlist, #pMenuBar, [#comment:"MenuBar Yes or no", #format:#string, #range:["yes", "no"], #default:"yes"]
addprop Browserlist, #pToolbar, [#comment:"ToolBars Yes or No", #format:#string, #range:["yes", "no"], #default:"yes"]
addprop Browserlist, #pLocation, [#comment:"Location Yes or No", #format:#string, #range:["yes", "no"], #default:"yes"]
addprop Browserlist, #pStatus, [#comment:"StatusBar Yes or No", #format:#string, #range:["yes", "no"], #default:"yes"]
addprop Browserlist, #pScrollbars, [#comment:"Scrollbars Yes or No", #format:#string, #range:["yes", "no"], #default:"yes"]
addprop Browserlist, #pResizable, [#comment:"Resizable Win Yes or No", #format:#string, #range:["yes", "no"], #default:"yes"]
addprop Browserlist, #pWidth, [#comment:"Win Width", #format:#integer, #default:0]
addprop Browserlist, #pHeight, [#comment:"Win Height", #format:#integer, #default:0]
return Browserlist
end getPropertyDescriptionList
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA