Re: Creating a Custom Dialog Box which returns text to editor

  •  02-16-2007, 11:15 AM

    Re: Creating a Custom Dialog Box which returns text to editor

    Thanks Adam,
     
    I have tried it and am now encountering a javascript error "obj_editor1" is undefined
    The code is below:
     
     ========================================
    <script language="JavaScript" type="text/javascript" >
         function insertReviloDownload(editor)
         {
          //show the dialog page , and pass the editor as newwin.dialogArguments
          var newwin=showModalDialog("/commom/cuteeditor5/cuteeditor_files/insert_Revilo_download.asp?_rand="+new Date().getTime()
        ,editor,"dialogWidth:400px;dialogHeight:240px");
         }
    </script>
     
     sub makeRTEce(inputFieldName, defaultContent, imageDirectory)
        Dim editor
        Set editor = New CuteEditor
     
        editor.ID = inputFieldName
        editor.Text = defaultContent
        editor.FilesPath = "/common/cuteeditor5/CuteEditor_Files"
        editor.ImageGalleryPath = imageDirectory
     
    editor.CustomAddons = "<img title=""Underline"" class=""CuteEditorButton"" onclick=""insertReviloDownload(obj_Editor1)"" type=""btn"" src='/common/cuteeditor5/CuteEditor_Files/Themes/office2003/Images/document.gif' hspace=2 border=0 />"
     
        editor.Width = 640
        editor.Height = 480
        editor.EditorBodyStyle = "none"
        editor.EditorWysiwygModeCss = "/main_style.css"
        editor.Draw()
                      
    end sub
View Complete Thread