WOLFRAM

Wolfram Language & System Documentation Center
GUIKit Example: GraphEditor

GUIKit Example: GraphEditor

The functionality provided by GUIKit has been superseded by the interface construction and controls functions native to the built-in Wolfram Language.

Code
Wolfram Language code: Needs["GUIKit`"]
Wolfram Language code: GraphEdit[expr_] := GUIRunModal[PrepareInterfaceReference[expr]]
Wolfram Language code: GraphEditNonModal[expr_] := GUIRun[PrepareInterfaceReference[expr]]
Wolfram Language code: PrepareInterfaceReference[expr_] := Module[{ref}, ref = GUILoad["Graph/GraphEditor"]; ref @ InvokeMethod[{"graphFrame", "pack"}]; JavaShow[ref @ WidgetReference["graphFrame"]]; ref @ SetPropertyValue[{"graphPanel", "expr"}, CreateGraphExpr[expr]]; ref]
Wolfram Language code: CreateGraphExpr[gr_Graph] := gr
Wolfram Language code: CreateGraphExpr[mat_SparseArray] := ArrayRules[mat]
Wolfram Language code: CreateGraphExpr[mat_ ? MatrixQ] := ArrayRules[mat]
Wolfram Language code: CreateGraphExpr[r : {___Rule}] := r
Wolfram Language code: CreateGraphExpr[x___] := {}

Examples

This example demonstrates the benefit of supplementing Wolfram Language functionality with GUIKit user interface elements leveraging existing third-party graph model and editing libraries. GraphEdit widgets take advantage of the Graph expression supported by Combinatorica` and also SparseArray ArrayRules.

The user interface of the graph editing canvas allows you to do the following.

  • Create a new node (Ctrl+click or Right (alternate) click).
  • Create a new edge (Ctrl+click or Right (alternate) click inside a node).
  • Move selection (Drag selected nodes and edges).
  • Change selection (Drag, click, or Shift+click).
  • Delete currently selected nodes and edges (Del or Backspace key).
Matrix
Wolfram Language code: mat = {{a + b, f[x, x'], 0}, {x, Sqrt[c], (d/e)}}
Wolfram Language code: MatrixForm[mat]
Wolfram Language code: outRules = GraphEdit[mat]
Wolfram Language code: Normal[SparseArray[outRules]] // MatrixForm
SparseArray
Wolfram Language code: mat = SparseArray[{{i_, i_} :> -(1/i), {i_, j_} /; Mod[Abs[i - j], 5] == 1 -> 1}, {6, 6}]
Wolfram Language code: mat // MatrixForm
Wolfram Language code: outRules = GraphEdit[mat]
Wolfram Language code: Normal[SparseArray[outRules]] //MatrixForm
Create
Wolfram Language code: gr = GraphEdit[ Graph[{}, {}, EdgeDirection -> True]]
Wolfram Language code: ShowGraph[gr]

Here is another version run in a modeless session where you can interact with and change the displayed graph.

Wolfram Language code: ref = GraphEditNonModal[{{a, b, 0}, {0, c, d}}]
Wolfram Language code: ref @ SetPropertyValue[{"graphPanel", "expr"}, ArrayRules[{{e, f, g, n}, {h, i, j, m}}]]
Wolfram Language code: ref @ PropertyValue[{"graphPanel", "expr"}]