Changed asp and dotnet examples to use css sprites instead of images. Changed dotnet...

[infodrom/rico3] / plugins / asp / LoadRicoClient.asp

diff --git a/plugins/asp/LoadRicoClient.asp b/plugins/asp/LoadRicoClient.asp
index 107997d..3f35828 100644 (file)
--- a/plugins/asp/LoadRicoClient.asp
+++ b/plugins/asp/LoadRicoClient.asp
@@ -21,8 +21,7 @@ Public jsDir      ' directory containing Rico's javascript files
 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
@@ -32,8 +31,8 @@ Public SupportedLangs    ' comma-separated list of 2-character codes, representi
 ' 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
@@ -43,17 +42,13 @@ End Sub
 \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
@@ -61,7 +56,6 @@ Public Sub SetRicoClientPaths(ByVal jsPath, cssPath, imgPath)
   jsDir = jsPath\r
   cssDir= cssPath\r
   imgDir= imgPath\r
-  transDir=jsDir\r
 End Sub\r
 \r
 \r
@@ -74,8 +68,8 @@ End Sub
 ' 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
@@ -83,16 +77,24 @@ end Sub
 ' 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
@@ -105,21 +107,6 @@ sub SetConfig()
 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
@@ -133,8 +120,7 @@ sub setLang()
     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
@@ -144,7 +130,7 @@ end sub
 ' 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
@@ -159,12 +145,12 @@ sub LoadTheme(theme)
 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