Versions Compared

Old Version 3

changes.mady.by.user user-2c621

Saved on

compared with

New Version 4

changes.mady.by.user user-2c621

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...


Mthroutine Name(DesignChanged)
Define_Map For(*input) Class(#Prim_desn.Design) Name(#Design) Pass(*By_reference)
 
#ActiveDesign <= #Design
 
If (#Design *Is *null)
 
#Com_Owner.ActivateDesktopView
 
Else
 
  If (#Design.Name = MobileDesign)
 
   #Com_Owner.ActivateMobileView
 
  Else
 
   #Com_Owner.ActivateTabletView
 
  Endif
 
Endif
 
Endroutine
 
Mthroutine Name(ActivateMobileView)
 
  Signal Event(HideContent)
 
  #ActiveView := MOBILE
 
  Signal Event(MobileView)
 
  Signal Event(ShowContent)
 
Endroutine
 
Mthroutine Name(ActivateTabletView)
 
  Signal Event(HideContent)
 
  #ActiveView := TABLET
 
  Signal Event(TabletView)
 
  Signal Event(ShowContent)
 
Endroutine
 
Mthroutine Name(ActivateDesktopView)
 
  Signal Event(HideContent)
 
  #ActiveView := DESKTOP
 
  Signal Event(DesktopView)
 
  Signal Event(ShowContent)
 
Endroutine

Refer to the code generated when Using a Web Page Template for examples on how to implement designs for effective Responsive Design.