Changeset 101 for trunk/lingosource/castlib2/PseudoXMLPS.ls

Timestamp:

03/05/09 12:45:14 (3 years ago)

Author:

alex

Message:

adressed wrong text position on line. bug in my code was revealed through fixedLineSpace bug in D11

File:

• trunk/lingosource/castlib2/PseudoXMLPS.ls (modified) (2 diffs)

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -757 +757 @@
   
   if val.length = 7 then
-    if (val.char[1] = "#") and (offset(val.char[2], "abcdef0123456789") > 0) then return rgb(val)
+    if (val.char[1] = "#") then
+      isColor = 1
+      repeat with n = 2 to 7
+        if (offset(val.char[n], "abcdef0123456789") < 1) then
+          isColor = 0
+          exit repeat
+        end if
+      end repeat
+      if isColor = 1 then return rgb(val)
+    end if
   end if 
   
@@ -1186 +1195 @@
 
 on mGetListFromPListString me, str
-  return mConvertKeyList(me, mGetListFromXMLString(me, str, 0))
+  return mConvertKeyList(me, mGetListFromXMLStringX(me, str, 0))
 end