Code: Select all
DeclareModule Summernote
Global IsInitialized
Declare Init(Callback)
Declare BindGadget(element_id.s, lang.s="es-ES",placeholder.s="",tabsize.i=2,width.i=500,height.i=150)
EndDeclareModule
Module Summernote
Procedure.i PageInclude(FileName.s, FileType.s="")
; by eddy (http://forums.spiderbasic.com/viewtopic.php?f=9&t=153)
If FileType = "" : FileType = GetExtensionPart(FileName) : EndIf
Select LCase(FileType)
Case "less"
!$('<link rel="stylesheet/less" type="text/css">').attr('href',v_filename).appendTo('head');
Case "css"
!$('<link rel="stylesheet" type="text/css">').attr('href',v_filename).appendTo('head');
Case "js"
!$('<script type="text/javascript"></script>').attr('src',v_filename).appendTo('head');
EndSelect
EndProcedure
Procedure Init(Callback)
If IsInitialized: ProcedureReturn: EndIf
PageInclude("https://code.jquery.com/jquery-3.2.1.slim.min.js")
PageInclude("https://cdnjs.cloudflare.com/ajax/libs/summernote/0.8.9/summernote-lite.css")
PageInclude("https://cdnjs.cloudflare.com/ajax/libs/summernote/0.8.9/summernote-lite.js")
;PageInclude("lang/summernote-es-ES.js") ; is not included or found
IsInitialized = #True
! v_callback();
EndProcedure
Procedure BindGadget(element_id.s, lang.s="es-ES",placeholder.s="",tabsize.i=2,width.i=500,height.i=150)
! $(v_element_id).summernote({
; ! lang: v_lang,
! placeholder: v_placeholder,
! tabsize: v_tabsize,
! width: v_width,
! height: v_height
! });
EndProcedure
EndModule
Code: Select all
XIncludeFile "summernote.sbi"
Procedure Main()
Protected Element_Id.s
OpenWindow(0,0,0,700,500,"Summernote test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
EditorGadget(0,10,10,100,100)
Element_Id = "#dijit_form_SimpleTextarea_"+"0"
Summernote::BindGadget(Element_Id)
EndProcedure
Summernote::Init(@Main())