Mercurial > repos > tabletprog

comparison modules/object.tp @ 332:ead24192ed45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }