Mercurial > repos > tabletprog
comparison modules/object.tp @ 332:ead24192ed45
Initial work on a UI module
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 28 Mar 2015 14:21:22 -0700 |
parents | b74956a2196f |
children |
comparison
equal
deleted
inserted
replaced
331:61f5b794d939 | 332:ead24192ed45 |
---|---|
66 obj <- object ptr | 66 obj <- object ptr |
67 methodId <- obj_int32 ptr | 67 methodId <- obj_int32 ptr |
68 } andCode: :methodId :obj { | 68 } andCode: :methodId :obj { |
69 mcall: (methodId num) 1 obj | 69 mcall: (methodId num) 1 obj |
70 } | 70 } |
71 | |
72 llMessage: setProperty:on:to withVars: { | |
73 obj <- object ptr | |
74 methodId <- obj_int32 ptr | |
75 val <- object ptr | |
76 } andCode: :methodId :obj :val { | |
77 mcall: (methodId num) 1 obj val | |
78 } | |
71 } | 79 } |
72 getMethodDict <- { | 80 getMethodDict <- { |
73 methodDict <- dict hash | 81 methodDict <- dict hash |
74 i <- 0 | 82 i <- 0 |
75 n <- rt numMessages | 83 n <- rt numMessages |
112 potentials filter: :el { setters contains?: el } | 120 potentials filter: :el { setters contains?: el } |
113 } | 121 } |
114 | 122 |
115 sendMessage:to <- :message :obj { | 123 sendMessage:to <- :message :obj { |
116 d <- getMethodDict: | 124 d <- getMethodDict: |
117 d ifget: message :messageId{ | 125 d ifget: message :messageId { |
118 rt sendMessage: messageId to: obj | 126 rt sendMessage: messageId to: obj |
127 } else: { false } | |
128 } | |
129 | |
130 setProperty:on:to <- :message :obj :val { | |
131 d <- getMethodDict: | |
132 d ifget: (message. "!") :messageId { | |
133 rt setProperty: messageId on: obj to: val | |
119 } else: { false } | 134 } else: { false } |
120 } | 135 } |
121 } | 136 } |
122 } | 137 } |