- extensions
...
--- a/Make.proto Thu Apr 19 08:35:05 2012 +0000
+++ b/Make.proto Wed May 30 20:45:25 2012 +0000
@@ -1,7 +1,7 @@
# $Header$
#
# DO NOT EDIT
-# automagically generated from the projectDefinition: stx_libwebkit at 2012-03-29 18:45:35.947.
+# automagically generated from the projectDefinition: stx_libwebkit.
#
# Warning: once you modify this file, do not rerun
# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
--- a/Make.spec Thu Apr 19 08:35:05 2012 +0000
+++ b/Make.spec Wed May 30 20:45:25 2012 +0000
@@ -1,7 +1,7 @@
# $Header$
#
# DO NOT EDIT
-# automagically generated from the projectDefinition: stx_libwebkit at 2012-03-29 18:45:35.879.
+# automagically generated from the projectDefinition: stx_libwebkit.
#
# Warning: once you modify this file, do not rerun
# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
--- a/WebKitRenderer.st Thu Apr 19 08:35:05 2012 +0000
+++ b/WebKitRenderer.st Wed May 30 20:45:25 2012 +0000
@@ -96,6 +96,15 @@
!WebKitRenderer methodsFor:'event handling'!
+INSTANCE_EXIT: event
+
+ (pid notNil and:[pid ~~ event second]) ifTrue:[
+ self breakPoint: #jv.
+ ]
+
+ "Created: / 30-05-2012 / 18:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
KEY_PRESS: event
"Created: / 19-04-2012 / 10:25:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -106,6 +115,20 @@
"Created: / 19-04-2012 / 10:26:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+LINK_HOVER: event
+
+ view link value: event second
+
+ "Created: / 30-05-2012 / 18:23:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+LINK_UNHOVER: event
+
+ view link value: nil
+
+ "Created: / 30-05-2012 / 18:26:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
LOAD_COMMIT: event
view url value ~= event second ifTrue:
--- 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)"
--- a/bc.mak Thu Apr 19 08:35:05 2012 +0000
+++ b/bc.mak Wed May 30 20:45:25 2012 +0000
@@ -1,7 +1,7 @@
# $Header$
#
# DO NOT EDIT
-# automagically generated from the projectDefinition: stx_libwebkit at 2012-03-29 18:45:35.993.
+# automagically generated from the projectDefinition: stx_libwebkit.
#
# Warning: once you modify this file, do not rerun
# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
--- a/libwebkit.rc Thu Apr 19 08:35:05 2012 +0000
+++ b/libwebkit.rc Wed May 30 20:45:25 2012 +0000
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
VALUE "ProductName", "Smalltalk/X\0"
VALUE "ProductVersion", "6.2.1.1\0"
- VALUE "ProductDate", "Thu, 29 Mar 2012 17:45:36 GMT\0"
+ VALUE "ProductDate", "Wed, 30 May 2012 20:48:23 GMT\0"
END
END