Subversion Repositories Kolibri OS

Rev

Rev 617 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 617 Rev 629
Line 106... Line 106...
106 
  forward
 106 
  forward
107 
      if (lang eq _lang) | (_lang eq @!)
 107 
      if (lang eq _lang) | (_lang eq @!)
108 
	if _title eq '-'
 108 
	if _title eq '-'
109 
	  db 1,'-'
 109 
	  db 1,'-'
110 
	  c2 = c2+1
 110 
	  c2 = c2+2
111 
	else
 111 
	else
112 
	  virtual at 0
 112 
	  virtual at 0
113 
	    db _title
 113 
	    db _title
114 
	    s1 = $
 114 
	    s1 = $
115 
	  end virtual
 115 
	  end virtual
116 
	  if m1 < s1
 116 
	  if m1 < s1
Line 148... Line 148...
148 
      if (m2 = 0)
 148 
      if (m2 = 0)
149 
	m2 = -2
 149 
	m2 = -2
150 
      end if
 150 
      end if
151 
      store word (m1*6+m2*6+6*8) at _name+POPUP.width
 151 
      store word (m1*6+m2*6+6*8) at _name+POPUP.width
152 
      store word (c1*POP_IHEIGHT+c2*POP_SHEIGHT+3) at _name+POPUP.height
 152 
      store word (c1*POP_IHEIGHT+c2*POP_SHEIGHT+4) at _name+POPUP.height
153 
      store dword (((m1+2)*6-1)*65536) at _name+POPUP.acc_ofs
 153 
      store dword (((m1+2)*6-1)*65536) at _name+POPUP.acc_ofs
154 
    end if
 154 
    end if
155 
}
 155 
}
156 
 
 156 
 
Line 157... Line 157...
157 
macro menubar_res _name,[_lang,_title,_popup,_onshow]
 157 
macro menubar_res _name,[_lang,_title,_popup,_onshow]