Updated to v5.2

Author: seamus-brady

build/IWP_VERSION.txt

@@ -1 +1 @@
-v5.1.2-rc7
+v5.2.0

core/config/iwp-osx.ini

@@ -69,7 +69,7 @@ IWPHostServPassword=iwp
 
 [UI]
 buttonSleepAfterClick=1
-showWPResourcesTab=no
+showWPResourcesTab=yes
 HideReadMeFile=osx/noreadme
 WebServerWarnMessage=osx/webserverwarn
 readMeLimit=6

core/config/iwp-win.ini

@@ -70,7 +70,7 @@ IWPHostServPassword=iwp
 
 [UI]
 buttonSleepAfterClick=1
-showWPResourcesTab=no
+showWPResourcesTab=yes
 HideReadMeFile=win/noreadme
 WebServerWarnMessage=win/webserverwarn
 readMeLimit=6

core/controlpanel/iwp-actions.rkt

@@ -33,6 +33,8 @@
  do-phpinfo-action
  ;; start edit config
  do-start-edit-config
+ ;; open wp resource
+do-wp-resources-action
  ;; should quit?
  should-quit-iwp?
  ;; test
@@ -114,6 +116,9 @@
 (define (do-phpinfo-action)
   (do-open-url (get-phpinfo-url)))
 
+(define (do-wp-resources-action)
+  (do-open-url (get-wp-resources-url)))
+
 ;; process system event functions
 
 ;; build a command string

core/controlpanel/iwp-config.rkt

@@ -19,6 +19,8 @@
  get-phpinfo-url
  ;; web filemanager url
  get-filemanager-url
+ ;; wp resources url
+ get-wp-resources-url
  ;; ssh path
  get-ssh-script-path
  ;; sftp path
@@ -139,6 +141,9 @@
   (define local-portoffset (get-config-setting PORTOFFSET))
   (string-append "http://" LOCALHOST ":" (number->string (get-vm-http-port)) "/" (get-config-setting WEB_FILEMANAGER)))
 
+;; filemanager url
+(define (get-wp-resources-url)
+  "https://www.instantwp.com/unleashed")
 
 ;; startSSHScript
 (define (get-ssh-script-path)

core/controlpanel/iwp-main-dialog.rkt

@@ -293,5 +293,27 @@
 (define phpinfo-label
   (create-new-label PHP_INFO_INFO ADV_LBL_WIDTH ADV_LBL_HEIGHT advanced-panel-h5))
 
+;; --------------------------------------
+;; wp resources panel control definitions
+;; --------------------------------------
+
 
+;; wp-resources panel vertical panel for holding horizontal panels
+(define wp-resources-panel-v0 (new vertical-pane% (parent wp-resources-panel) [alignment '(center center)] [border 10]))
 
+;; wp-resources panel horizontal panel for holding horizontal panels
+(define wp-resources-h0 (new horizontal-pane% (parent wp-resources-panel-v0) [alignment '(center top)]))
+(define wp-resources-h1 (new horizontal-pane% (parent wp-resources-panel-v0) [alignment '(center top)]))
+
+;; WP Resources image
+(define wp-resources-logo (new message% (parent wp-resources-h0) (label (wp-resources))))
+
+;; WP Resources button
+(define  wp-resources-button
+  (new button% [parent wp-resources-h1]
+     [label (list (info-sign) (lpad "Click here to learn more about InstantWP Unleashed") 'left)]
+     [min-width 350]
+     [min-height 20]
+     [stretchable-height 50 ]
+     [callback (lambda (button event)
+                       (do-wp-resources-action))]))

core/controlpanel/iwp-resources.rkt

@@ -61,6 +61,12 @@
 (define (iwp-logo)
   (read-bitmap  (build-path (iwp-images-dir-path) "logo-top.png")))
 
+(define (wp-resources)
+  (read-bitmap  (build-path (iwp-images-dir-path) "wp-resources.png")))
+
+(define (info-sign)
+  (read-bitmap  (build-path (iwp-images-dir-path) "info.png")))
+
 ;; start up wizard bitmap
 (define (readme-bitmap)
   (read-bitmap  (build-path (iwp-images-dir-path) "readme1.png")))