Messi - nice popup library
Posted: Sun Mar 26, 2017 9:51 am
http://messijs.github.io/MessiJS/demos/
Simple example (does 4 example popups)
More complex (with call back to SB code)
Compile with debugger on as that's what I am using in callback to test interaction
Simple example (does 4 example popups)
Code: Select all
!$("head").append("<link rel='stylesheet' type='text/css' href='http://messijs.github.io/MessiJS/stylesheets/messi.css' />");
!$.getScript("http://messijs.github.io/MessiJS/javascripts/messi.js", loadok);
!function loadok()
!{
Debug "OK"
!}
Procedure messi(title.s,message.s)
! new Messi(v_message, {title: v_title, titleClass: 'anim error', modal: true , buttons: [{id: 0, label: 'Close', val: 'X'}]});
! new Messi(v_message, {title: v_title, titleClass: 'anim info', modal: true , buttons: [{id: 0, label: 'Close', val: 'X'}]});
! new Messi(v_message, {title: v_title, titleClass: 'anim warning ', modal: true , buttons: [{id: 0, label: 'Close', val: 'X'}]});
! new Messi(v_message, {title: v_title, titleClass: 'anim success', modal: true , buttons: [{id: 0, label: 'Close', val: 'X'}]});
EndProcedure
Procedure buttonpressed()
messi("Error","No Problem !!")
EndProcedure
If OpenWindow(1, 1, 1, 200, 100, "TEST", #PB_Window_SystemMenu|#PB_Window_TitleBar)
ButtonGadget(1 ,60, 50, 75, 30, "GO")
BindGadgetEvent(1,@buttonpressed(),#PB_EventType_LeftClick)
EndIf
More complex (with call back to SB code)
Compile with debugger on as that's what I am using in callback to test interaction
Code: Select all
!$("head").append("<link rel='stylesheet' type='text/css' href='http://messijs.github.io/MessiJS/stylesheets/messi.css' />");
!$.getScript("http://messijs.github.io/MessiJS/javascripts/messi.js", loadok);
!function loadok()
!{
Debug "OK"
!}
Procedure messi(title.s,message.s)
! new Messi(v_message,{title: v_title,modal: true,buttons: [{id: 0, label: 'Yes', val: 'Y'},{id: 1, label: 'No', val: 'N'}],callback: function(val) { v_sb=val;
If sb.s="Y"
Debug "Yes"
EndIf
If sb.s="N"
Debug "No"
EndIf
!}
!}
!);
EndProcedure
Procedure buttonpressed()
messi("This is the title","This is the message")
EndProcedure
If OpenWindow(1, 1, 1, 200, 100, "TEST", #PB_Window_SystemMenu|#PB_Window_TitleBar)
ButtonGadget(1 ,60, 50, 75, 30, "GO")
BindGadgetEvent(1,@buttonpressed(),#PB_EventType_LeftClick)
EndIf