From 9ff30672fc05c26ea0e137bc1048d2f06ff9dfee Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Jan 2012 11:54:11 +0100
Subject: [PATCH] add deprecation note for the ActiveX part of MysterX

---
 collects/mysterx/scribblings/activex.scrbl     |  2 ++
 collects/mysterx/scribblings/browsers.scrbl    |  2 ++
 collects/mysterx/scribblings/common.rkt        | 18 ++++++++++++++++--
 collects/mysterx/scribblings/documents.scrbl   |  2 ++
 .../mysterx/scribblings/html-element.scrbl     |  2 ++
 collects/mysterx/scribblings/html-events.scrbl |  2 ++
 collects/mysterx/scribblings/html.scrbl        |  8 ++++++++
 collects/mysterx/scribblings/mysterx.scrbl     |  4 ++++
 8 files changed, 38 insertions(+), 2 deletions(-)

diff --git a/collects/mysterx/scribblings/activex.scrbl b/collects/mysterx/scribblings/activex.scrbl
index 73b623e3e1..c2577903df 100644
--- a/collects/mysterx/scribblings/activex.scrbl
+++ b/collects/mysterx/scribblings/activex.scrbl
@@ -6,6 +6,8 @@
 A MysterX application consists of one or more browsers, which are
 instances of the class @racket[mx-browser%].
 
+@(deprecated)
+
 @local-table-of-contents[]
 
 @include-section["browsers.scrbl"]
diff --git a/collects/mysterx/scribblings/browsers.scrbl b/collects/mysterx/scribblings/browsers.scrbl
index 29b505f8ea..7fe5881b93 100644
--- a/collects/mysterx/scribblings/browsers.scrbl
+++ b/collects/mysterx/scribblings/browsers.scrbl
@@ -3,6 +3,8 @@
 
 @title[#:tag "browsers"]{Browsers}
 
+@(deprecated)
+
 @defclass[mx-browser% object% ()]{
 
 @defconstructor[([label string? "MysterX"] 
diff --git a/collects/mysterx/scribblings/common.rkt b/collects/mysterx/scribblings/common.rkt
index fd97ef2c2c..940ed1be75 100644
--- a/collects/mysterx/scribblings/common.rkt
+++ b/collects/mysterx/scribblings/common.rkt
@@ -1,13 +1,27 @@
-#lang scheme/base
+#lang at-exp scheme/base
 
 (require scribble/manual
+         scribble/core
          (for-label mysterx
                     scheme/class
                     scheme/base
                     scheme/contract))
 
-(provide (all-from-out scribble/manual)
+(provide deprecated yellow
+         (all-from-out scribble/manual)
          (for-label (all-from-out mysterx
                                   scheme/class
                                   scheme/base
                                   scheme/contract)))
+
+(define (yellow . content)
+  (make-element (make-style
+                 #f
+                 (list (make-background-color-property "yellow")))
+                content))
+
+(define (deprecated)
+  @para{@yellow{@bold{WARNING:}} All bindings in this section are scheduled for removal
+        after version 5.2.1.})
+
+
diff --git a/collects/mysterx/scribblings/documents.scrbl b/collects/mysterx/scribblings/documents.scrbl
index 91e7412908..7098b9aa58 100644
--- a/collects/mysterx/scribblings/documents.scrbl
+++ b/collects/mysterx/scribblings/documents.scrbl
@@ -3,6 +3,8 @@
 
 @title[#:tag "documents"]{Documents}
 
+@(deprecated)
+
  A browser contains one document at a time.  If
  hyperlinks are clicked, or the navigation methods
  (navigate, go-forward, go-back) are used, the
diff --git a/collects/mysterx/scribblings/html-element.scrbl b/collects/mysterx/scribblings/html-element.scrbl
index 24bf3dc323..26ff8d910e 100644
--- a/collects/mysterx/scribblings/html-element.scrbl
+++ b/collects/mysterx/scribblings/html-element.scrbl
@@ -89,6 +89,8 @@
 
 @title[#:tag "html-element"]{HTML Elements}
 
+@(deprecated)
+
 @defclass[mx-element% object% ()]{
 
 @defmethod[(get-html)
diff --git a/collects/mysterx/scribblings/html-events.scrbl b/collects/mysterx/scribblings/html-events.scrbl
index 3506906959..80e11bd61b 100644
--- a/collects/mysterx/scribblings/html-events.scrbl
+++ b/collects/mysterx/scribblings/html-events.scrbl
@@ -3,6 +3,8 @@
 
 @title[#:tag "html-events"]{HTML Events}
 
+@(deprecated)
+
   MysterX HTML events are generated by mouse and
   keyboard interaction with HTML elements in a
   document.
diff --git a/collects/mysterx/scribblings/html.scrbl b/collects/mysterx/scribblings/html.scrbl
index be755d2d9c..694d674bc8 100644
--- a/collects/mysterx/scribblings/html.scrbl
+++ b/collects/mysterx/scribblings/html.scrbl
@@ -5,6 +5,8 @@
 
 @title[#:tag "html" #:style 'toc]{HTML and Dynamic HTML}
 
+@(deprecated)
+
   The @racket[mx-element%] class encapsulates HTML elements.  By
   calling the methods of the class, you can change the appearance of
   elements, and place new HTML before or after the element.  While the
@@ -28,6 +30,8 @@
 
 @section{Generating ActiveX HTML}
 
+@(deprecated)
+
 @deftogether[(
 @defproc[(coclass->html [name string?]
                         [width exact-integer?]
@@ -54,6 +58,8 @@
 
 @section{CSS}
 
+@(deprecated)
+
   In the @racket[mx-element%] method descriptions, ``CSS'' refers to
   the Cascading Style Sheets specification.  A CSS length is string
   consisting of a decimal integer number followed by one of the units
@@ -76,6 +82,8 @@
 
 @section{Colors}
 
+@(deprecated)
+
  Many element properties represent colors.  In HTML, colors may be
  represented by an RGB string, which contains 7 characters.  The first
  character is @litchar{#}, the rest are hexadecimal digits
diff --git a/collects/mysterx/scribblings/mysterx.scrbl b/collects/mysterx/scribblings/mysterx.scrbl
index 487301135e..f03ecea588 100644
--- a/collects/mysterx/scribblings/mysterx.scrbl
+++ b/collects/mysterx/scribblings/mysterx.scrbl
@@ -10,6 +10,10 @@
 Dynamic HTML (DHTML) is used for component presentation and
 event-handling.
 
+@yellow{@bold{WARNING:}} All ActiveX support (as described in
+@secref["activex"]) is scheduled for removal from MysterX after
+version 5.2.1.
+
 @defmodule[mysterx]
 
 @table-of-contents[]