equal
deleted
inserted
replaced
254 addWorkspaceVariable:name |
254 addWorkspaceVariable:name |
255 "create a new workspace variable" |
255 "create a new workspace variable" |
256 |
256 |
257 |holder| |
257 |holder| |
258 |
258 |
259 WorkspaceVariables isNil ifTrue:[ |
259 holder := self workspaceVariables at:name ifAbsentPut:[ ValueHolder new ]. |
260 WorkspaceVariables := Dictionary new. |
|
261 ]. |
|
262 holder := WorkspaceVariables at:name ifAbsentPut:[ ValueHolder new ]. |
|
263 ^ holder |
260 ^ holder |
264 ! |
261 ! |
265 |
262 |
266 anyWorkspaceVariableIsDefined |
263 anyWorkspaceVariableIsDefined |
267 ^ WorkspaceVariables notEmptyOrNil |
264 ^ WorkspaceVariables notEmptyOrNil |
310 |
307 |
311 workspaceVariables |
308 workspaceVariables |
312 "retrieve the collection of workspace variables. |
309 "retrieve the collection of workspace variables. |
313 That is a dictionary associating names to values." |
310 That is a dictionary associating names to values." |
314 |
311 |
315 ^ WorkspaceVariables ? #() |
312 WorkspaceVariables isNil ifTrue:[ |
|
313 WorkspaceVariables := Dictionary new. |
|
314 ]. |
|
315 ^ WorkspaceVariables |
316 |
316 |
317 "Modified: / 20-04-2005 / 11:43:14 / cg" |
317 "Modified: / 20-04-2005 / 11:43:14 / cg" |
318 ! ! |
318 ! ! |
319 |
319 |
320 !Workspace methodsFor:'accessing'! |
320 !Workspace methodsFor:'accessing'! |
1313 ! ! |
1313 ! ! |
1314 |
1314 |
1315 !Workspace class methodsFor:'documentation'! |
1315 !Workspace class methodsFor:'documentation'! |
1316 |
1316 |
1317 version |
1317 version |
1318 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.161 2006-07-27 07:43:13 cg Exp $' |
1318 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.162 2006-08-09 12:39:39 cg Exp $' |
1319 ! ! |
1319 ! ! |