Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.106.2.44 -r1.106.2.45
--- openacs-4/packages/xotcl-core/xotcl-core.info 22 Aug 2022 17:06:40 -0000 1.106.2.44
+++ openacs-4/packages/xotcl-core/xotcl-core.info 30 Oct 2022 10:00:55 -0000 1.106.2.45
@@ -10,7 +10,7 @@
t
xotcl
-
+
Gustaf Neumann
XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)
2021-09-16
@@ -42,7 +42,7 @@
BSD-Style
2
-
+
Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.70.2.37 -r1.70.2.38
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 20 Aug 2022 09:36:09 -0000 1.70.2.37
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 30 Oct 2022 10:00:55 -0000 1.70.2.38
@@ -526,7 +526,7 @@
Class create ::xo::Table::Action \
-superclass ::xo::OrderedComposite::Child \
- -parameter {label url {tooltip {}} {confirm_message {}}}
+ -parameter {{CSSclass ""} label url {tooltip {}} {confirm_message {}}}
#-proc destroy {} {
# :log "-- DESTROY "
# show_stack
@@ -776,7 +776,7 @@
Class create TABLE::Action \
-superclass ::xo::Drawable \
-instproc render {} {
- html::a -class button -title [:_ tooltip] -href [:url] {
+ html::a -class "button ${:CSSclass}" -title [:_ tooltip] -href ${:url} {
html::t [:_ label]
}
#:log "-- "