tw5-graph 1.7.1

package/plugins/graph/ui/Settings/Graphs.tid

@@ -0,0 +1,49 @@
+title: $:/plugins/flibbles/graph/ui/Settings/Graphs
+tags: $:/tags/flibbles/graph/SettingsTab
+caption: Graphs
+
+\whitespace trim
+\procedure graphList() :cache[all[shadows+tiddlers]insertafter{$:/config/flibbles/graph/sidebar}prefix[$:/graph/]else[$:/graph/Default]sort[]]
+
+<$transclude $tiddler="$:/plugins/flibbles/graph/ui/grouped-tabs"
+	tabsList=<<graphList>>
+	default={{{ [subfilter<graphList>] }}}
+	explicitState="$:/state/flibbles/graph/settings/graphs"
+>
+  <$fill $name=addButton>
+    <$button class="group-tab-new">
+      {{$:/core/images/new-button}}
+      <$action-modal $tiddler="$:/plugins/flibbles/graph/ui/Modals/NewGraph">
+        <$vars newTitle=`$:/graph/$(selection)$`>
+          <$action-createtiddler $basetitle=<<newTitle>> type="application/json" />
+          <$action-setfield $tiddler=<<qualifiedState>> text=<<newTitle>> />
+        </$vars>
+      </$action-modal>
+      <$action-sendmessage $message=tm-focus-selector $param="input.graph-select" />
+    </$button>
+  </$fill>
+  <$fill $name=button>
+    <$view tiddler=<<currentTab>> field=caption>
+      <$text text={{{ [<currentTab>removeprefix[$:/graph/]] }}} />
+    </$view>
+  </$fill>
+  <$fill $name=body>
+    <$let currentTiddler=<<currentTab>> >
+      <$transclude $tiddler="$:/plugins/flibbles/graph/ui/Settings/Graphs/EditTemplate" $mode=block />
+    </$let>
+
+    <$button>
+
+      <$vars graphName={{{ [<currentTab>removeprefix[$:/graph/]] }}}>
+        <$action-confirm $message=`Are you sure you wish to delete '$(graphName)$'`>
+          <%if [{$:/config/flibbles/graph/sidebar}match<currentTab>] %>
+            <$action-deletetiddler $tiddler="$:/config/flibbles/graph/sidebar"/>
+          <%endif%>
+          <$action-deletetiddler $tiddler=<<currentTab>>/>
+        </$action-confirm>
+      </$vars>
+
+      Delete Graph
+    </$button>
+  </$fill>
+</$transclude>

package/plugins/graph/ui/Settings/Properties/ObjectsTypeTemplate.tid

@@ -0,0 +1,46 @@
+title: $:/plugins/flibbles/graph/ui/Settings/Properties/ObjectsTypeTemplate
+
+\define groupPrefix() $:/config/flibbles/graph/$(currentType)$/$(currentGroup)$/
+\whitespace trim
+
+<$let
+	currentType=<<currentTab>>
+	presetPrefix=`$:/plugins/flibbles/graph/presettypes/$(currentType)$/`
+	configPrefix=`$:/config/flibbles/graph/$(currentTab)$/`>
+
+
+<$transclude $tiddler="$:/plugins/flibbles/graph/ui/grouped-tabs"
+	groupsList="[all[shadows+tiddlers]removeprefix<presetPrefix>]"
+	tabsList="[all[shadows+tiddlers]prefix<groupPrefix>]"
+	default={{{ [all[shadows+tiddlers]prefix[$:/graph/]else[$:/graph/core/Default]] }}}
+	state=`$:/state/flibbles/graph/settings/$(currentType)$`
+	orderFilter="[<currentGroup>addprefix<presetPrefix>get[orderable]match[yes]then<currentGroup>addprefix<configPrefix>]"
+>
+  <$fill $name=addButton>
+    <%if [<currentGroup>addprefix<presetPrefix>get[fixed]else[no]!match[yes]] %>
+      <$button class="group-tab-new">
+        {{$:/core/images/new-button}}
+        <$action-modal $tiddler="$:/plugins/flibbles/graph/ui/Modals/NewPropertySet">
+          <$vars newTitle=`$(groupPrefix)$$(selection)$`>
+            <$action-createtiddler $basetitle=<<newTitle>> type="application/json" />
+            <$action-setfield $tiddler=<<tabsState>> text=<<newTitle>> />
+          </$vars>
+        </$action-modal>
+        <$action-sendmessage $message=tm-focus-selector $param="input.graph-select" />
+      </$button>
+    <%endif%>
+  </$fill>
+  <$fill $name=button>
+    <$view tiddler=<<currentTab>> field=caption><$text text={{{ [<currentTab>removeprefix<groupPrefix>] }}} /></$view>
+  </$fill>
+  <$fill $name=body>
+
+<$let currentTiddler=<<currentTab>>
+      currentCategory={{{ [all[current]removeprefix<configPrefix>split[/]nth[]] }}} >
+
+! <$link><$view field=caption><$text text={{{ [all[current]removeprefix<configPrefix>removeprefix<currentCategory>removeprefix[/]] }}} /></$view></$link>
+
+{{||$:/core/ui/ViewTemplate/body}}
+</$let>
+  </$fill>
+</$transclude>

package/plugins/graph/ui/Settings/Properties.tid

@@ -0,0 +1,14 @@
+title: $:/plugins/flibbles/graph/ui/Settings/Properties
+tags: $:/tags/flibbles/graph/SettingsTab
+caption: Properties
+
+\function .tabs() :cache[all[shadows+tiddlers]removeprefix[$:/plugins/flibbles/graph/presettypes/]splitbefore[/]removesuffix[/]unique[]sort[]]
+
+<$parameters default=<<.tabs>> >
+
+<$transclude $variable=tabs
+	tabsList="[function[.tabs]]"
+	default=<<default>>
+	explicitState="$:/state/flibbles/graph/settings/properties"
+	template="$:/plugins/flibbles/graph/ui/Settings/Properties/ObjectsTypeTemplate"
+/>

package/plugins/graph/ui/Settings/Toolbar.tid

@@ -0,0 +1,5 @@
+title: $:/plugins/flibbles/graph/ui/Settings/Toolbar
+tags: $:/tags/flibbles/graph/SettingsTab
+caption: Toolbar
+
+{{$:/plugins/flibbles/graph/ui/Toolbars/GraphToolbar}}

package/plugins/graph/ui/SideBar/Graph.tid

@@ -0,0 +1,77 @@
+title: $:/plugins/flibbles/graph/ui/SideBar
+caption: Graph
+tags: $:/tags/SideBar
+
+\procedure fs-state() $:/state/flibbles/graph/fullscreen
+
+\whitespace trim
+
+\parameters (state: "$:/config/flibbles/graph/sidebar", defaultGraph: "$:/graph/Default")
+
+\function graph() [<state>get[text]else<defaultGraph>]
+
+<$keyboard key="escape" actions="""<%if [<fs-state>is[tiddler]] %><$action-deletetiddler $tiddler=<<fs-state>> />""" >
+
+<div class="graph-sidebar-disabled graph-error tc-page-controls">
+
+<!-- Sidebar only works in fullscreen during mobile mode.
+     Otherwise, it's taking up too much space. -->
+
+  <$transclude $tiddler="$:/plugins/flibbles/graph/ui/Buttons/fullscreen" class=tc-btn-invisible $mode=inline />
+
+</div>
+<$boundingbox
+  class={{{ graph-sidebar-enabled [<fs-state>get[text]] +[join[ ]] }}}
+  width="[<windowWidth>subtract<boundingLeft>subtract[15]addsuffix[px]]"
+  height="[<windowHeight>subtract<boundingTop>subtract[15]addsuffix[px]]">
+
+  <$vars
+      graph-sidebar=yes
+      relayState=<<qualify graph-toolbar->> >
+
+    <$messagerelay to=<<relayState>> >
+
+      <div class="graph-sidebar-banner">
+
+        <$slot $name="banner">
+
+          <$select tiddler=<<state>> default=<<defaultGraph>> >
+
+            <$list filter="[<state>get[text]] [prefix[$:/graph/]else<defaultGraph>]"  >
+
+              <option value=<<currentTiddler>> >
+
+                <$view field=caption>
+
+                  <$text text={{{ [{!!title}removeprefix[$:/graph/]] }}} />
+
+                </$view>
+              </option>
+            </$list>
+          </$select>
+          <$vars currentTiddler=<<graph>> >
+
+            <$list filter="[[$:/tags/flibbles/graph/GraphToolbar]tagging[]!is[draft]] :filter[{!!title}addprefix[$:/config/flibbles/graph/GraphToolbarButtons/Visibility/]!text[hide]]" variable=listItem>
+
+              <$transclude tiddler=<<listItem>> mode=inline />
+
+            </$list>
+          </$vars>
+        </$slot>
+      </div>
+    </$messagerelay>
+    <$linkcatcher actions="""\whitespace trim
+      <%if [<fs-state>is[tiddler]] %>
+        <$action-listops $tiddler='$:/state/flibbles/graph/modal' $filter='[<navigateTo>]' />
+        <$action-sendmessage $message=tm-modal $param='$:/plugins/flibbles/graph/ui/Modals/Tiddler' tv-story-list='$:/state/flibbles/graph/modal' />
+      <%else%>
+        <$action-navigate $to=<<navigateTo>> />""">
+
+      <$graph.view $tiddler=<<graph>> $mode=inline >
+
+        <$messagerelay name=<<relayState>> />
+
+      </$graph.view>
+    </$linkcatcher>
+  </$vars>
+</$boundingbox>

package/plugins/graph/ui/Toolbars/GraphToolbar.tid

@@ -0,0 +1,15 @@
+title: $:/plugins/flibbles/graph/ui/Toolbars/GraphToolbar
+caption: Graph Toolbar
+tags: $:/tags/ControlPanel/Toolbars
+
+\procedure config-base() $:/config/flibbles/graph/GraphToolbarButtons/Visibility/
+
+Choose which buttons are displayed on the sidebar graph's toolbar. Drag and drop to change the ordering
+
+Buttons may not show up anyway if the assigned graph engine does not support them.
+
+<$set name="tv-config-toolbar-icons" value="yes">
+
+<$set name="tv-config-toolbar-text" value="yes">
+
+<$macrocall $name="list-tagged-draggable" tag="$:/tags/flibbles/graph/GraphToolbar" itemTemplate="$:/core/ui/ControlPanel/Toolbars/ItemTemplate"/>

package/plugins/graph/ui/ViewTemplate/graph-object.tid

@@ -0,0 +1,13 @@
+title: $:/plugins/flibbles/graph/ui/ViewTemplate/graph-object
+
+\whitespace trim
+
+<$let
+	descriptors={{{[all[current]removeprefix[$:/config/flibbles/graph/]]}}}
+	type={{{ [<descriptors>split[/]nth[1]] }}}
+	category={{{ [<descriptors>split[/]nth[2]] }}} >
+
+<$transclude $tiddler=`$:/plugins/flibbles/graph/presettypes/$(type)$/$(category)$` />
+
+<$transclude $tiddler="$:/plugins/flibbles/graph/ui/ViewTemplate/properties"
+	type={{{ [all[current]removeprefix[$:/config/flibbles/graph/]splitbefore[/]removesuffix[/]] }}} />

package/plugins/graph/ui/ViewTemplate/graph.tid

@@ -0,0 +1,11 @@
+title: $:/plugins/flibbles/graph/ui/ViewTemplate/graph
+
+\whitespace trim
+
+<$let graphengine={{{ [{!!engine}!is[blank]] ~[<graphengine>] }}}>
+
+<$transclude tiddler={{{ [{!!template}!is[blank]] ~[[$:/tags/flibbles/graph/Template]tagging[]] }}} >
+
+<$transclude tiddler="$:/language/MissingTiddler/Hint"/>
+
+</$transclude></$let>

package/plugins/graph/ui/ViewTemplate/properties.tid

@@ -0,0 +1,80 @@
+title: $:/plugins/flibbles/graph/ui/ViewTemplate/properties
+
+\procedure row(depth:0)
+<$reveal tag=tr type="match" state=<<dropdownStateTitle>> text=open default=<<default>> >
+  <$let jsonEntry={{{ [<json>jsonextract<property>] }}}
+        propertyType={{{ [<jsonEntry>jsonget[type]] }}} >
+    <td class=graph-property-label>
+      <$list filter="[range<depth>]">&nbsp;&nbsp;</$list>
+      <$text text=<<property>> />
+    </td>
+    <td class=`graph-property-input graph-property-input-$(propertyType)$`>
+      <$transclude
+        $tiddler=`$:/plugins/flibbles/graph/ui/PropertyTypes/$(propertyType)$`
+        $mode=inline>
+        <$edit-text tag=input index=<<property>> />
+      </$transclude>
+    </td>
+    <td class=graph-property-remove>
+      <%if [all[current]getindex<property>] %>
+        <$button class=tc-btn-invisible tooltip="Unset this property">
+          <$action-setfield $index=<<property>> />
+          <$transclude $tiddler="$:/core/images/delete-button" $mode=inline />
+        </$button>
+      <%endif%>
+    </td>
+  </$let>
+</$reveal>
+<$list variable=property filter="[<json>jsonindexes[]] :filter[<json>jsonextract<currentTiddler>jsonget[parent]match<property>]">
+  <$transclude $variable=row depth={{{ [<depth>add[1]] }}} />
+\end
+
+\procedure arrows(state, default)
+\whitespace trim
+<$reveal type="nomatch" state=<<state>> text=open default=<<default>> >
+  <$button class=tc-btn-invisible>
+    <$action-setfield $tiddler=<<state>> $value=open />
+    {{$:/core/images/right-arrow}}
+  </$button>
+</$reveal>
+<$reveal type="match" state=<<state>> text=open default=<<default>> >
+  <$button class="tc-btn-invisible">
+    <$action-setfield $tiddler=<<state>> $value=close  default=<<default>> />
+    {{$:/core/images/down-arrow}}
+  </$button>
+</$reveal>
+\end
+
+\procedure section(header, filter, default)
+\whitespace trim
+<$qualify name=dropdownStateTitle title=`$:/state/dropdown/$(header)$`>
+  <tr>
+    <th colspan=3 align=left>
+      <$transclude $variable=arrows state=<<dropdownStateTitle>> default=<<default>> />
+      &#32;
+      <<header>>
+    </th>
+  </tr>
+  <$list variable=property filter=<<filter>> >
+    <<row>>
+\end
+
+\parameters (type)
+\whitespace trim
+
+<$list variable=json filter="[[graphengine]modules[]] :filter[moduleproperty[name]match<graphengine>] +[moduleproperty[properties]jsonextract<type>]" >
+
+<table class=graph-property>
+
+<$transclude $variable=section $mode=inline
+	header=Style
+	default=open
+	filter="""[<json>jsonindexes[]]
+		:filter[<json>jsonextract<currentTiddler>jsonget[type]!match[actions]]
+		:filter[<json>jsonextract<currentTiddler>jsonget[parent]count[]match[0]]
+		:filter[<json>jsonextract<currentTiddler>jsonget[hidden]else[false]!match[true]]""" />
+
+<$transclude $variable=section $mode=inline
+	header=Actions
+	default=closed
+	filter="[<json>jsonindexes[]] :filter[<json>jsonextract<currentTiddler>jsonget[type]match[actions]]" />

package/plugins/graph/ui/grouped-tabs.tid

@@ -0,0 +1,109 @@
+title: $:/plugins/flibbles/graph/ui/grouped-tabs
+code-body: yes
+
+\procedure grouped-tabs-button()
+\whitespace trim
+<$button
+  class="group-tab-button"
+  set=<<tabsState>>
+  setTo=<<currentTab>>
+  dragTiddler=<<currentTab>>
+  default=<<default>>
+  selectedClass="tc-tab-selected"
+  tooltip={{!!tooltip}}
+  role="switch"
+  data-tab-title=<<currentTab>>
+>
+  <%if [<orderable>match[yes]] %>
+    {{$:/plugins/flibbles/graph/images/drag}}
+  <%endif%>
+  <$tiddler tiddler=<<save-currentTiddler>>>
+    <$vars tv-wikilinks="no">
+      <span>
+        <$slot $name=button>
+          <$transclude tiddler=<<currentTab>> field="caption">
+            <$macrocall $name="currentTab" $type="text/plain" $output="text/plain"/>
+          </$transclude>
+        </$slot>
+      </span>
+    </$vars>
+  </$tiddler>
+</$button>
+\end
+
+\define grouped-tabs-tab()
+\whitespace trim
+<$set name="save-currentTiddler" value=<<currentTiddler>>>
+  <$tiddler tiddler=<<currentTab>>>
+    <$transclude $variable=grouped-tabs-button $fillignore=yes />
+  </$tiddler>
+</$set>
+\end
+
+\procedure grouped-tabs-tab-body()
+\whitespace trim
+<$list filter=<<groupsList>> variable="currentGroup">
+  <$list filter=<<tabsList>> variable="currentTab">
+    <$reveal type="match" state=<<tabsState>> text=<<currentTab>> default=<<default>> retain=<<retain>> tag="div">
+      <$slot $name=body />
+    </$reveal>
+  </$list>
+</$list>
+\end
+
+\function sort.by(tiddler) [<tiddler>each:list-item[list]is[tiddler]] =[all[]] +[unique[]]
+
+\procedure grouped-tabs-drop-actions()
+<$action-log
+	actionTiddler=<<actionTiddler>>
+	currentTab=<<currentTiddler>>
+/>
+<$action-listops
+  $tiddler=<<orderTiddler>>
+  $field=list
+  $filter="[subfilter<tabsList>sort.by<orderTiddler>] +[insertbefore<actionTiddler>,<currentTab>]"/>
+\end
+
+\procedure grouped-tabs-tab-list()
+\whitespace trim
+<$list variable=currentGroup filter=<<groupsList>> >
+  <$let orderTiddler={{{ [<currentGroup>subfilter<orderFilter>] }}}
+        orderable={{{ [<orderTiddler>!is[blank]then[yes]else[no]] }}} >
+    <%if [<currentGroup>!is[blank]] %>
+      <div class="group-tab-header"><$text text={{{ [<currentGroup>titlecase[]] }}} /></div>
+    <%endif%>
+    <$list variable=currentTab filter="[subfilter<tabsList>sort.by<orderTiddler>]" >
+      <$droppable
+          actions=<<grouped-tabs-drop-actions>>
+          enable=<<orderable>> >
+        <div class="tc-droppable-placeholder"/>
+        <$transclude $variable=grouped-tabs-tab $fillignore=yes/>
+      </$droppable>
+    </$list>
+    <$tiddler tiddler="">
+      <$droppable
+          actions=<<grouped-tabs-drop-actions>>
+          enable=<<orderable>> >
+        <div class="tc-droppable-placeholder"/>
+        <$slot $name=addButton />
+      </$droppable>
+    </$tiddler>
+  </$let>
+</$list>
+\end
+
+\parameters (tabsList, groupsList:"[[]]", state:"$:/state/flibbles/graph/grouped-tab", explicitState, default, class:"tc-vertical", retain, orderFilter)
+
+<$qualify title=<<state>> name=qualifiedState>
+  <$let tabsState={{{ [<explicitState>minlength[1]] ~[<qualifiedState>] }}}>
+    <div class={{{ [[tc-tab-set]addsuffix[ ]addsuffix<class>] }}}>
+      <div class={{{ [[tc-tab-buttons]addsuffix[ ]addsuffix<class>] }}}>
+        <$transclude $variable=grouped-tabs-tab-list $fillignore=yes />
+      </div>
+      <div class={{{ [[tc-tab-divider]addsuffix[ ]addsuffix<class>] }}}/>
+      <div class={{{ [[tc-tab-content]addsuffix[ ]addsuffix<class>] }}}>
+        <$transclude $variable=grouped-tabs-tab-body $fillignore=yes />
+      </div>
+    </div>
+  </$let>
+</$qualify>

package/plugins/graph/ui/selector.tid

@@ -0,0 +1,74 @@
+title: $:/plugins/flibbles/graph/ui/selector
+code-body: yes
+
+\whitespace trim
+\procedure select-accept-actions()
+\whitespace trim
+<$vars selectedTiddler={{$:/temp/graph/select/tiddler}}>
+<$slot $name=action />
+<$action-deletetiddler $filter="[[$:/temp/graph/select]] [[$:/temp/graph/select/tiddler]] [[$:/temp/graph/select/selected-item]] [[$:/temp/graph/select/refresh]]" />
+</$vars>
+\end
+
+\procedure select-click-actions()
+<$messagecatcher $completed="""<$transclude $variable=select-accept-actions $fillignore=yes />""" >
+  <$action-setfield $tiddler="$:/temp/graph/select/tiddler" text=<<navigateTo>> />
+  <$action-sendmessage $message=completed />
+\end
+
+\procedure select-close-actions()
+\whitespace trim
+<$slot $name=cancel />
+<$action-deletetiddler $filter="[[$:/temp/graph/select]] [[$:/temp/graph/select/tiddler]] [[$:/temp/graph/select/selected-item]] [[$:/temp/graph/select/refresh]]" />
+\end
+
+\procedure select-cancel-actions()
+\whitespace trim
+<% if [{$:/temp/graph/select}match[]] %>
+	<$transclude $variable=select-close-actions $fillignore=yes />
+<% elseif [{$:/temp/graph/select}!match{$:/temp/graph/select/tiddler}] %>
+	<$action-setfield $tiddler="$:/temp/graph/select/tiddler" text={{$:/temp/graph/select}}/>
+	<$action-deletetiddler $filter="$:/temp/graph/select/selected-item" />
+	<$action-setfield $tiddler="$:/temp/graph/select/refresh" text="yes"/>
+<% else %>
+	<$action-deletetiddler $filter="[[$:/temp/graph/select]] [[$:/temp/graph/select/tiddler]] [[$:/temp/graph/select/selected-item]] [[$:/temp/graph/select/refresh]]" />
+<% endif %>
+\end
+
+\parameters (configTiddler)
+
+<$transclude
+	$variable=keyboard-driven-input
+	$fillignore=yes
+	$mode=inline
+	storeTitle="$:/temp/graph/select"
+	tiddler="$:/temp/graph/select/tiddler"
+	refreshTitle="$:/temp/graph/select/refresh"
+	selectionStateTitle="$:/temp/graph/select/selected-item"
+	configTiddlerFilter="[<configTiddler>]"
+	tag=input
+	placeholder="Type something"
+	class="tc-edit-texteditor graph-select"
+	focus=yes
+	inputCancelActions="<$transclude $variable=select-cancel-actions $fillignore=yes />"
+	inputAcceptActions="<$transclude $variable=select-accept-actions $fillignore=yes />"
+/>
+
+<p>
+
+<$linkcatcher actions=<<select-click-actions>> >
+
+<$list filter={{{ [<configTiddler>get[first-search-filter]] }}} >
+
+<$list-empty>
+
+<$text text="New result" />
+
+</$list-empty>
+<$list-template>
+
+<span class={{{[{$:/temp/graph/select/tiddler}match<currentTiddler>then[tc-list-item-selected]] }}}>
+
+<$slot $name=list-item>
+
+<$transclude tiddler="$:/core/ui/ListItemTemplate" mode=inline/>

package/plugins/graph/utils/propertyholder.js

@@ -0,0 +1,80 @@
+/*\
+title: $:/plugins/flibbles/graph/utils/propertyholder.js
+type: application/javascript
+module-type: graphutils
+
+Class which holds properties, and evaluates their compiled value based on
+a supplied set of definitions.
+
+\*/
+
+var Holder = exports.PropertyHolder = {};
+
+var PropertyTypes = $tw.modules.getModulesByTypeAsHashmap("graphpropertytype");
+
+/*
+Takes an object of properties and converts them into values ready to be passed
+to the engine, using the catalog and this as the context to define them.
+*/
+Holder.evaluateProperties = function(properties, definitions) {
+	var output = Object.create(null);
+	// We set the definition and properties to the holder,
+	// because some properties may need to evaluate others
+	// and the holder will need to remember its rules and properties
+	// to do that nested evaluation without passing it around
+	this.definitions = definitions;
+	this.properties = properties;
+	for (var key in this.properties) {
+		var value = this.evaluateProperty(key);
+		if (value !== null) {
+			output[key] = value;
+		}
+	}
+	return output;
+};
+
+Holder.evaluateProperty = function(propertyName) {
+	var rule = this.definitions[propertyName],
+		value = this.properties[propertyName];
+	if (rule) {
+		if (value === undefined) {
+			value = rule.default;
+		}
+		if (rule && PropertyTypes[rule.type]) {
+			 value = PropertyTypes[rule.type].toProperty(rule, value, {wiki: this.wiki, widget: this});
+		} else {
+			value = value || null;
+		}
+	}
+	return value;
+};
+
+/*
+Checks if any property in the holder needs to check for refresh, and returns
+true if any do need to refresh.
+*/
+Holder.refreshProperties = function(changedTiddlers) {
+	for (var name in this.properties) {
+		if (this.refreshProperty(name, changedTiddlers)) {
+			return true;
+		}
+	}
+	return false;
+};
+
+Holder.refreshProperty = function(propertyName, changedTiddlers) {
+	var rule = this.definitions[propertyName];
+	if (rule) {
+		var type = PropertyTypes[rule.type],
+			raw = this.properties[propertyName];
+		if (raw === undefined) {
+			raw = rule.default;
+		}
+		if (type
+		&& type.refresh
+		&& type.refresh(rule, raw, changedTiddlers, this)) {
+			return true;
+		}
+	}
+	return false;
+};

package/plugins/graph/utils/widgetiterator.js

@@ -0,0 +1,47 @@
+/*\
+title: $:/plugins/flibbles/graph/utils/widgetiterator.js
+type: application/javascript
+module-type: graphutils
+
+Can be used to iterate through a tree of widgets, given a root.
+
+It goes depth-first, starting the the first leaf widget, and finishes with
+the root widget.
+
+\*/
+
+exports.WidgetIterator = function(root) {
+	this.stack = [];
+	this.ptr = root;
+	while (this.ptr.children && this.ptr.children.length > 0) {
+		this.stack.push(0);
+		this.ptr = this.ptr.children[0];
+	}
+};
+
+exports.WidgetIterator.prototype.next = function() {
+	var rtn, ptr = this.ptr;
+	if (!ptr) {
+		rtn = {done: true};
+	} else {
+		rtn = {value: ptr, done: false};
+		ptr = ptr.parentWidget;
+		var index = this.stack.pop();
+		if (index !== undefined) {
+			index++;
+			if (ptr && ptr.children.length > index) {
+				ptr = ptr.children[index];
+				this.stack.push(index);
+				// Now dive to the lowest child
+				while (ptr.children && ptr.children.length > 0) {
+					this.stack.push(0);
+					ptr = ptr.children[0];
+				}
+			}
+		} else {
+			ptr = null;
+		}
+	}
+	this.ptr = ptr;
+	return rtn;
+};