Changeset 16259 for lang/actionscript

Timestamp:

07/24/08 22:55:25 (4 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• jsonDB.html (modified) (1 diff)
• nohada.cgi (modified) (2 diffs)
• perl/HtmlTag.pm (modified) (1 diff)
• perl/Obj.pm (modified) (1 diff)
• suggest.js (added)

lang/actionscript/todoshare/jsonDB.html

@@ -13 +13 @@
                    //alert(httpObj);
                    //alert(httpObj.responseText);
+//                 $("res").value=httpObj.responseText.evalJSON(  );
                    $("res").value=httpObj.responseText;
+                   
                 },
                 onFailure:function(httpObj) {

lang/actionscript/todoshare/nohada.cgi

@@ -13 +13 @@
 my $scr=<<'EOF';
 
-function test() {
-  alert("aho");
+function doFocus(target) {
+  var tName=target.id;
+  var val=function (name) {
+    return (name==tName?["*"]:["like",$(name).value+"%"]);
+  }
+  var list=[
+     "FINDREL" ,
+     val("obj"),
+     val("name"),
+     val("val")
+  ];
+  
+  $("test").innerHTML=Object.toJSON(list);
+  get(list,function(data) {
+     var cand=data.map(function (e) {
+         return e[tName];
+     }).sort().uniq();
+     $("test").innerHTML=cand.length;
+     if (cand.length==1) {$(tName).value=cand[0];}
+     else {sugs[tName].candidateList=cand;}
+  });
+}
+function get(cmd,onComplete) {
+   new Ajax.Request("db.cgi", {
+                method: "put",
+                parameters: 'cmd='+encodeURI(Object.toJSON(cmd)) ,
+                onSuccess:function(httpObj){
+                   //alert(httpObj);
+                   //alert(httpObj.responseText);
+                   try {
+                     onComplete( httpObj.responseText.evalJSON() );
+                   } catch(e) {$("test").innerHTML=e;}
+                   //$("test").innerHTML=httpObj.responseText;
+                   
+                },
+                onFailure:function(httpObj) {
+                   $("test").innerHTML=httpObj.responseText;
+                }
+   });
 }
 
+var sugs=[];
+function init(id) {
+   sugs[id]= new Suggest.Local(
+             id, id+"_suggest",[id,id+"!"],
+             {dispAllKey: true});   
+} 
+var start = function(){
+   init("obj");
+   init("name");
+   init("val");
+};
+function () {   
+              var suggest = new Suggest.LocalMulti("obj", "suggest",
+               list[0/*document.getElementById('select').selectedIndex*/], {dispAllKey: true});
+              /*var select = document.getElementById('select')
+              var change = function(){
+                suggest.candidateList = list[select.selectedIndex];
+              };
+              select.addEventListener ?
+                select.addEventListener('change', change, false) :
+                select.attachEvent('onchange', change);*/
+};
+window.addEventListener ?
+  window.addEventListener('load', start, false) :
+  window.attachEvent('onload', start);
+
 EOF
+my $style=<<'EOF';
+div.suggest {
+    position: absolute;
+    background-color: #FFFFFF;
+    border: 1px solid #CCCCFF;
+    font-size: 90%;
+    width: 200px;
+}
+div.select{ /* キー上下で選択した場合のスタイル */
+    color: #FFFFFF;
+    background-color: #3366FF;
+}
+div.over{ /* マウスオーバ時のスタイル */
+    background-color: #99CCFF;
+}
+EOF
+
 
 &Html::p(
@@ -23 +103 @@
     [head,
       [title,"のはだ"],
-      [script(src=>"prototype.js")],
+      script(src=>"prototype.js"),
+      script(src=>"suggest.js"),
       [script,$scr],
+      [style,$style],
     ],
     [body,[center,
-      [table,
-        [&tr,
-          [td,input(type=>"text",name=>"obj",size=>50),"の"],
-        ],"\n",
-        [&tr,
-          [td,input(type=>"text",name=>"name",size=>50),"は"],
-        ],"\n",
-        [&tr,
-          [td,input(type=>"text",name=>"val",size=>50),"だ"],
-        ],"\n",
-      ],
-      [button(onClick=>"test()"),"OK"],
+      [table,"\n",
+        &area("obj","の"),"\n",
+        &area("name","は"),"\n",
+        &area("val","だ"),"\n",
+      ],"\n",
+      [button(onClick=>"test()"),"OK"],[div(id=>"test"),"test"]
     ]]
   ]
 );
+
+sub area {
+  my ($id,$tail)=@_;
+  [&tr,
+       [td,
+            input(id=>$id,type=>"text",name=>$id,size=>50
+                  ,onFocus=>"doFocus(this)", autocomplete=>"off" ),
+            $tail,
+            div(id=>"$id\_suggest",class=>"suggest")]
+  ];
+}
+

lang/actionscript/todoshare/perl/HtmlTag.pm

@@ -227 +227 @@
 sub s { closure q(s),@_;}
 sub samp { closure q(samp),@_;}
-sub script { closure q(script),@_;}
+sub script {my %params=@_; sub {
+    my $t=shift;
+    $t->out("<script ");
+    while (my ($k,$v)= each %params) {
+       $t->out(&stream::sym($k)."=".&stream::attr($v)." " ); 
+    }
+    if (@_>0) {
+      $t->out(">\n//<!--\n");
+      for (@_) {
+         $t->out($_);
+      }
+      $t->out("\n//-->\n</script>");
+    } else {
+      $t->out("></script>");
+    }
+  };
+}
 sub select { closure q(select),@_;}
 sub server { closure q(server),@_;}

lang/actionscript/todoshare/perl/Obj.pm

@@ -372 +372 @@
   my @res;
   while (my ($k,$v)=each %{$w}) {
+      next if (&isAny($v));
       push @res, &whereElem($k,$v); 
   }