--- a/WebKitView.st	Thu Apr 19 08:35:05 2012 +0000
+++ b/WebKitView.st	Wed May 30 20:45:25 2012 +0000
@@ -1,7 +1,7 @@
 "{ Package: 'stx:libwebkit' }"
 
 SimpleView subclass:#WebKitView
-	instanceVariableNames:'rendererView url title progress'
+	instanceVariableNames:'rendererView url title progress link'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-WebKit'
@@ -93,6 +93,35 @@
 
 !WebKitView methodsFor:'aspects'!
 
+link
+    "return/create the 'link' value holder (automatically generated)"
+
+    link isNil ifTrue:[
+        link := ValueHolder new.
+        link addDependent:self.
+    ].
+    ^ link
+!
+
+link:something
+    "set the 'link' value holder (automatically generated)"
+
+    |oldValue newValue|
+
+    link notNil ifTrue:[
+        oldValue := link value.
+        link removeDependent:self.
+    ].
+    link := something.
+    link notNil ifTrue:[
+        link addDependent:self.
+    ].
+    newValue := link value.
+    oldValue ~~ newValue ifTrue:[
+        self update:#value with:newValue from:link.
+    ].
+!
+
 progress
     "return/create the 'progress' value holder (automatically generated)"