1 include "Simantics/All"
\r
4 usedSharedOntologies2 :: Variable -> <ReadGraph> [Resource]
\r
5 usedSharedOntologies2 model = usedSharedOntologies $ represents model
\r
7 availableSharedOntologies2 :: Variable -> <ReadGraph> [Resource]
\r
8 availableSharedOntologies2 model = availableSharedOntologies $ represents model
\r
10 useSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
\r
11 useSelectedHandler input parameters = do
\r
12 model = represents input
\r
13 resources = map wseResource $ decodeWSES $ parameters "selection"
\r
14 for resources $ linkSharedOntology model
\r
17 unlinkSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
\r
18 unlinkSelectedHandler input parameters = do
\r
19 model = represents input
\r
20 resources = map wseResource $ decodeWSES $ parameters "selection"
\r
21 unlinkSharedOntologyWithUI input resources
\r
24 createNewHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
\r
25 createNewHandler input parameters = do
\r
26 createSharedOntologyWithUI L0.SharedOntology
\r
29 importHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
\r
30 importHandler input parameters = do
\r
31 importSharedOntologyWithUI input
\r
34 fooHandler :: Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
\r
35 fooHandler self ctx = do
\r
36 val = fromJust $ possibleString ctx "selected"
\r
37 setProjectComponentState self "currentSelection" val
\r
40 availableRanges :: Variable -> <ReadGraph> [String]
\r
41 availableRanges input = do
\r
43 res = represents input
\r
44 ranges = objectsWithType res L0.ConsistsOf SHEET.Range
\r
47 defaultRange :: Variable -> <ReadGraph> String
\r
48 defaultRange input = do
\r
49 ranges = availableRanges input
\r
50 if (length ranges) == 0 then "" else ranges!0
\r
52 currentRangeName :: Variable -> Variable -> <ReadGraph> String
\r
53 currentRangeName self input =
\r
54 projectComponentState self "#currentSelection" (defaultRange input)
\r
56 currentRangeExpressionVariable :: Variable -> Variable -> <ReadGraph> Variable
\r
57 currentRangeExpressionVariable self input = do
\r
58 name = projectComponentState self "./Combo#currentSelection" (defaultRange input)
\r
59 browse input ("/" + name + "#cells")
\r
61 currentRangeExpression :: Variable -> Variable -> <ReadGraph> String
\r
62 currentRangeExpression self input = do
\r
63 variable = currentRangeExpressionVariable self input
\r
64 value $ browse variable "#expression"
\r
66 currentRangeTextAndErrors :: Variable -> Variable -> <ReadGraph> TextAndErrors
\r
67 currentRangeTextAndErrors self input = do
\r
68 expression = currentRangeExpression self input
\r
69 createTextAndErrors expression []
\r
71 fooHandler2 :: Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
\r
72 fooHandler2 self ctx = do
\r
73 val = fromJust $ possibleString ctx "text"
\r
74 setExpression self val
\r
77 modifyCodeHandler :: Variable -> Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
\r
78 modifyCodeHandler self input ctx = do
\r
79 val = fromJust $ possibleString ctx "text"
\r
80 variable = currentRangeExpressionVariable self input
\r
81 setExpression variable val
\r