Public cssDir ' directory containing Rico's css files\r
Public imgDir ' directory containing Rico's image files\r
Public imgHeading ' background image for grid headings and window titles, used in grayedout theme\r
-Public transDir ' directory containing ricoLocale_xx files, set to jsDir when jsDir is set\r
-Public ricoLib ' base library - prototype, jquery, etc\r
+Public BaseLib ' base library - prototype, jquery, etc\r
Public ricoLogging ' enable console logging?\r
Public grid_striping ' apply row striping to LiveGrids?\r
Public LoadBaseLib ' load base Javascript library (prototype, jQuery, etc)?\r
' Constructor\r
\r
Private Sub Class_Initialize\r
- ricoLib="proto_min" ' default base library\r
- ricoTheme="j-ui-lightness"\r
+ BaseLib="proto_min" ' default base library\r
+ jTheme="ui-lightness"\r
ricoLogging=false\r
grid_striping = true\r
LoadBaseLib = true\r
\r
\r
' jquery themes start with j-, rico themes start with r-\r
-Private m_ricoTheme \r
-Public Property Get ricoTheme()\r
- ricoTheme = m_ricoTheme\r
-End Property\r
-Public Property Let ricoTheme(theme)\r
- Dim prefix\r
- prefix=left(theme,2)\r
- if prefix="r-" or prefix="j-" then\r
- m_ricoTheme = theme\r
- if theme="r-grayedout" then imgHeading="grayedout.gif"\r
- end if\r
+Private theme \r
+Public Property Let ricoTheme(ThemeName)\r
+ theme = "r-" & ThemeName\r
+ if ThemeName="grayedout" then imgHeading="grayedout.gif"\r
+End Property \r
+Public Property Let jTheme(ThemeName)\r
+ theme = "j-" & ThemeName\r
End Property \r
\r
\r
jsDir = jsPath\r
cssDir= cssPath\r
imgDir= imgPath\r
- transDir=jsDir\r
End Sub\r
\r
\r
' Used by demo to switch libraries & themes\r
' Do no call in production\r
Public Sub CheckQueryString()\r
- ricoLib=LCase(Request.QueryString("lib"))\r
- ricoTheme=trim(Request.QueryString("theme"))\r
+ BaseLib=LCase(Request.QueryString("lib"))\r
+ theme=trim(Request.QueryString("theme"))\r
ricoLogging=CBool(trim(Request.QueryString("log")) <> "")\r
end Sub\r
\r
' This is the main method, which creates the Javscript and CSS links\r
Public Sub CreateLinks()\r
SetConfig\r
- LoadLib ricoLib, LoadBaseLib\r
- setLang\r
- if ricoTheme<>"" then\r
- LoadTheme ricoTheme\r
+ if LoadBaseLib then\r
+ if InStr(baseLib,"/") > 0 then\r
+ Response.Write vbLf & "<script src='http://ajax.googleapis.com/ajax/libs/" & baseLib & "' type='text/javascript'></script>"\r
+ else\r
+ Response.Write vbLf & "<script src='" & jsDir & baseLib & "' type='text/javascript'></script>"\r
+ end if\r
end if\r
+ requireRicoJS ""\r
+ requireRicoJS "2" & left(baseLib,3)\r
+ requireRicoCSS "rico"\r
+ requireRicoJS "_min"\r
+ setLang\r
+ if theme<>"" then LoadTheme\r
End sub\r
\r
\r
' Create Rico client initialization object\r
-sub SetConfig()\r
+Private sub SetConfig()\r
Response.Write vbLf & "<script type='text/javascript'>"\r
Response.Write vbLf & "Rico_CONFIG = {"\r
if ricoLogging then Response.Write vbLf & "enableLogging: true,"\r
end sub\r
\r
\r
-sub LoadLib(baseLib, baseLoadFlag)\r
- if baseLoadFlag then\r
- if InStr(baseLib,"/") > 0 then\r
- Response.Write vbLf & "<script src='http://ajax.googleapis.com/ajax/libs/" & baseLib & "' type='text/javascript'></script>"\r
- else\r
- Response.Write vbLf & "<script src='" & jsDir & baseLib & "' type='text/javascript'></script>"\r
- end if\r
- end if\r
- requireRicoJS ""\r
- requireRicoJS "2" & left(baseLib,3)\r
- requireRicoCSS "rico"\r
- requireRicoJS "_min"\r
-end sub\r
-\r
-\r
' -------------------------------------------------------------\r
' Check languages accepted by browser\r
' and see if there is a match\r
lang2=lcase(left(trim(arLang(i)),2))\r
if lang2="en" then exit for\r
If InStr(SupportedLangs, lang2) > 0 Then\r
- fname=transDir & "ricoLocale_" & lang2 & ".js"\r
- Response.Write "<script src='" & fname & "' type='text/javascript'></script>"\r
+ requireRicoJS "Locale_" & lang2\r
exit for\r
end if\r
next\r
' set theme\r
' "j-ui-lightness" for a Themeroller theme\r
' "r-greenHdg" for a native Rico theme\r
-sub LoadTheme(theme)\r
+Private sub LoadTheme()\r
dim prefix,themeFile\r
prefix=left(theme,1)\r
themeFile=mid(theme,3)\r
end sub\r
\r
\r
-sub requireRicoJS(filename)\r
+Public sub requireRicoJS(filename)\r
Response.Write vbLf & "<script src='" & jsDir & "rico" & filename & ".js' type='text/javascript'></script>"\r
end sub\r
\r
\r
-sub requireRicoCSS(filename)\r
+Public sub requireRicoCSS(filename)\r
Response.Write vbLf & "<link href='" & cssDir & filename & ".css' type='text/css' rel='stylesheet' />"\r
end sub\r
\r