-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathDemo.bbj
executable file
·97 lines (64 loc) · 3.29 KB
/
Demo.bbj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
use ::PendoAuthProvider.bbj::PendoAuthProvider
use ::WebKit/framework/LoginDialog/LoginDialog.bbj::LoginDialog
use ::WebKit/framework/PortalFrame/PortalFrame.bbj::PortalFrame
use ::WebKit/util/ClientUtil.bbj::ClientUtil
use ::WebKit/model/Menu.bbj::Menu
use ::WebKit/model/Menu.bbj::MenuItem
use ::WebKit/demo/Showcase/components/ShowCaseFrame.bbj::ShowCaseFrame
if INFO(3,6)<>"6" then call "WebKit/util/deploy.bbj",pgm(-1)
ClientUtil.init()
ClientUtil.addStyleURL("https://fonts.googleapis.com/icon?family=Material+Icons")
ClientUtil.addStyleURL("https://fonts.googleapis.com/css?family=Lato")
ClientUtil.loadThemeFile("WebKit/demo/ChileCompanyCustomerPortal/ChileCompany.css")
ClientUtil.addLocalCSS("WebKit/css/webkit.css")
bbjutils! = new ::BBUtils.bbj::BBUtils()
iconPool$ = STBL("icon-pool", "tabler")
authProvider! = new PendoAuthProvider()
login! = new LoginDialog("Showcase", authProvider!)
login!.setLogo("WebKit/demo/assets/basislogo.png")
login!.setAllowRemember(Boolean.TRUE)
if !login!.doModal() then
a=msgbox("ERROR",0,"Error while logging in")
release
endif
declare Menu menu!
declare MenuItem menuItem!
menu! = new Menu()
rem Toast
menuItem! = menu!.addMenuItem(menu!.getRoot(),101,"Toast","Toast Demo","bulb")
menuItem!.setProgram("::WebKit/demo/Showcase/ShowcasePanels/ToastShowcase.bbj::ToastShowcase")
menuItem!.setStartType(0)
declare PortalFrame portal!
showCase! = menu!.addMenuItem(menu!.getRoot(),104,"Sales - Options","Sales - Options","list")
showCase!.setStartType(2)
showCaseItem! = menu!.addMenuItem(showCase!,212,"Sales Statistics","Sales Statistics","table")
showCaseItem!.setStartType(2)
showCaseItem! = menu!.addMenuItem(showCase!,211,"Diagrams","Diagrams","table")
showCaseItem!.setStartType(2)
showCaseItem! = menu!.addMenuItem(showCase!,201,"Direct - Sales - Options","Direct - Sales - Options","table")
showCaseItem!.setStartType(2)
showCaseSubItem! = menu!.addMenuItem(showCaseItem!,202,"Personal - Sale","Personal - Sale","table")
showCaseSubItem!.setStartType(2)
showCaseSubItem! = menu!.addMenuItem(showCaseItem!,203,"Electronic - Sale","Electronic - Sale","table")
showCaseSubItem!.setStartType(2)
showCaseItem! = menu!.addMenuItem(showCase!,204,"Reseller Options","Reseller Options","table")
showCaseItem!.setStartType(2)
showCaseSubItem! = menu!.addMenuItem(showCaseItem!,205,"Fast Reseller","Fast Reseller","")
showCaseSubItem!.setStartType(2)
showCaseSubItem! = menu!.addMenuItem(showCaseItem!,206,"Reliable Reseller","Reliable Reseller","")
showCaseSubItem!.setStartType(2)
showCaseSubItem! = menu!.addMenuItem(showCaseItem!,207,"Reseller in Europe","Reseller in Europe","")
showCaseSubItem!.setStartType(2)
showCaseSubItem! = menu!.addMenuItem(showCaseItem!,208,"Reseller in America","Reseller in America","")
showCaseSubItem!.setStartType(2)
showCaseSSubItem! = menu!.addMenuItem(showCaseSubItem!,209,"Reseller in North America","Reseller in North America","")
showCaseSSubItem!.setStartType(2)
showCaseSSubItem! = menu!.addMenuItem(showCaseSubItem!,210,"Reseller in South America","Reseller in South America","")
showCaseSSubItem!.setStartType(2)
declare PortalFrame portal!
portal! = new ShowCaseFrame()
portal!.setMenu(menu!)
portal!.setLogoUrl("WebKit/demo/assets/basislogo_svg.svg")
portal!.setLogoSmallUrl("WebKit/demo/assets/basislogo_svg.svg")
portal!.doModal()
release