Source Code:

package require gridplus 1.0
namespace import gridplus::*

#---------------#
# Style Section #
#---------------#

option add *Font                 {arial 8}
option add *Entry.borderWidth    1
option add *Entry.relief         solid
option add *Entry.background     white
option add *Entry.foreground     black
option add *highlightThickness   0
option add *Gridplus.borderWidth 0
option add *Gridplus.iconFile    tkIcons.sat

gridplus style title {
   -background dodgerblue
   -labelcolor white
   -labelstyle +8,bold
}

gridplus style action_title {
   -background slategray
   -labelcolor white
   -labelstyle bold
   -linewidth  5
}

gridplus style action {
   -background lightgray
   -icon       right1wbw
   -pad        0
   -space      0
}

gridplus style work_title {
   -background white
   -labelcolor dodgerblue 
   -labelstyle +4,bold
   -pad        0
}

gridplus style work_area {
   -background white
   -borderwidth 10
} 

gridplus style work_text {
   -background white
   -pad        0 
}

gridplus style work {
   -background lightgray
}

#----------------#
# Example Screen #
#----------------#

gridplus grid .title -style title {
   {"Example"} {}
}

gridplus grid .action_title -style action_title {
   {"Actions"} {}
}

gridplus link .action -style action {
   {: "Customer" .customer}
   {: "Order" .order}
   {:right1wrw "Delivery" .delivery}
   {+ "Create Delivery" .delivery_create}
   {+ "Update Delivery" .delivery_update}
   {+ "Cancel Delivery" .delivery_cancel}
   {: "Invoice" .invoice}
   {: "Reports" .reports}
   {: "Log Off" .logoff}
}

gridplus line .action_end -style action_title

gridplus grid .action_bar -style action {
   .action_title:ew
   .action
   .action_end:ew
}

gridplus link .help -style work {
   {:help1wbw "Help" .display}
}

gridplus grid .work_title -style work_title {
   {"Create Delivery Request"}
}

gridplus grid .work_text -style work_text {
   {"^Important: "}
   {"Make sure that the delivery arrangements have been\
    \nagreed with both the Customer and the Transport\
    \nSupervisor before creating a Delivery Request."}
}

gridplus entry .order -style work -size 25 -state disabled {
   {"^Order: "} {}
   {"Order Number " .number 8}
   {"Customer Contact " .contact}
   {"Customer Company " .company}
}

gridplus entry .delivery -style work -size 25 {
   {"^Delivery: "} {}
   {"Date " .date 10 +}
   {"Contact " .contact}
   {"Company " .company}
   {"Building " .building}
   {"Street " .street}
   {"City " .city}
   {"County " .county}
   {"Post Code " .postcode 8}
}

gridplus radiobutton .send_invoice -style work -space 0 {
   {"^Send Invoice: "} {.order "With Order" +withorder} {.post "By Post" -bypost} {}
}

gridplus link .delivery_create -style work {
   {:left1wmw "Cancel" .cancel} {"Proceed" .proceed :right1wmw}
}

gridplus layout .work_area -style work_area {
   .action_bar:n .work_title
   ^             .work_text
   ^             .order:ew
   ^             .delivery:ew
   ^             .send_invoice:ew
   .help:nsew    .delivery_create:ew
}

gridplus layout .main -background white -title "Demo Application" {
   .title:ew
   .work_area
}

pack .main

Comments: