Mercurial > repos > rhope

comparison framework.rhope @ 1:b3f71490858c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small fixes and enhancements from main windows box
author Mike Pavone <pavone@retrodev.com>
date Wed, 29 Apr 2009 02:13:24 -0400
parents 76568becd6d6
children 6202b866d72c
comparison
equal deleted inserted replaced
0:76568becd6d6 1:b3f71490858c
321 { 321 {
322 code,rest <- [[list]Index[index]]Slice[2] 322 code,rest <- [[list]Index[index]]Slice[2]
323 newlist <- [destlist]Set[index, [[""]Put Byte[From Hex@Whole Number[code]]]Append[rest]] 323 newlist <- [destlist]Set[index, [[""]Put Byte[From Hex@Whole Number[code]]]Append[rest]]
324 [list]Next[index] 324 [list]Next[index]
325 { 325 {
326 out <- Decode Helper Straight[list, newlist, ~] 326 out <- Decode Helper Decode[list, newlist, ~]
327 }{ 327 }{
328 out <- Val[newlist] 328 out <- Val[newlist]
329 } 329 }
330 } 330 }
331 331
656 { 656 {
657 queryvars <- ["?"]Append[Key Value Join[[link]Query Params>>, "=","&"]] 657 queryvars <- ["?"]Append[Key Value Join[[link]Query Params>>, "=","&"]]
658 }{ 658 }{
659 queryvars <- "" 659 queryvars <- ""
660 } 660 }
661 out <- [[[[[[["<a href=\""]Append[[link]Target>>]]Append[queryvars]]Append["\""] 661 out <- [[[[[[["<a href=\""]Append[[[link]Target>>]Replace["\"", "%22"]]]Append[queryvars]]Append["\""]
662 ]Append[Get Class[link]]]Append[">"]]Append[Escape HTML Text[[link]Text>>]]]Append["</a>"] 662 ]Append[Get Class[link]]]Append[">"]]Append[Escape HTML Text[[link]Text>>]]]Append["</a>"]
663 } 663 }
664 664
665 Postback@Web Link[in,post data:out,events] 665 Postback@Web Link[in,post data:out,events]
666 { 666 {
746 [ 746 [
747 ["\t<table>\n"]Append[[table]Get Header Row] 747 ["\t<table>\n"]Append[[table]Get Header Row]
748 ]Append[ Fold[["Make Table Row"]<String@Worker, "", [table]Data >>] ] 748 ]Append[ Fold[["Make Table Row"]<String@Worker, "", [table]Data >>] ]
749 ]Append["\t</table>\n"] 749 ]Append["\t</table>\n"]
750 } 750 }
751
752 Blueprint Web Image
753 {
754 Source
755 Alt
756 }
757
758 New@Web Image[source,alt:out]
759 {
760 out <- [[Build["Web Image"]]Source <<[source]]Alt <<[alt]
761 }
762
763 Name@Web Image[image:name,none]
764 {
765 name <- [image]Source >>
766 }
767
768 Set Session@Web Image[in,session:out]
769 {
770 out <- in
771 }
772
773 Postback@Web Image[image,post data:out,events]
774 {
775 out <- image
776 events <- ()
777 }
778
779 Render@Web Image[image:out,headers]
780 {
781 out <- [[[["<img src=\""]Append[[image]Source >>]]Append["\" alt=\""]]Append[[image]Alt >>]]Append["\">"]
782 }